$ od -c -N 50000 [eris]<LispCore>SOURCES>CMLEVAL.DCOM!6
0000000 ( D E F I N E - F I L E - I N F
0000020 O 247 R E A D T A B L E " I N
0000040 T E R L I S P " 247 P A C K A G
0000060 E " I N T E R L I S P " ) \r (
0000100 F I L E C R E A T E D " 2 2 -
0000120 O c t - 8 6 1 2 : 4 5 : 1 6 "
0000140 ( " c o m p i l e d o n "
0000160 { E R I S } < L I S P C O R E
0000200 > S O U R C E S > C M L E V A L
0000220 . ; 8 ) \r " 2 1 - O c t - 8 6
0000240 0 4 : 1 3 : 0 1 " " C O M P
0000260 I L E - F I L E d " i n " X
0000300 e r o x L i s p 2 1 - O c t
0000320 - 8 6 . . . " d a t e d "
0000340 2 1 - O c t - 8 6 0 4 : 4 8 :
0000360 4 3 " ) \r ( F I L E C R E A T E
0000400 D " 2 2 - O c t - 8 6 1 2 :
0000420 4 2 : 5 6 " { E R I S } < L I
0000440 S P C O R E > S O U R C E S > C
0000460 M L E V A L . ; 8 6 8 0 8 1
0000500 c h a n g e s t o % : ( F N
0000520 S \r C L : C O N S T A N T P
0000540 C L : E V A L ) p r e v i o u
0000560 s d a t e % : " 8 - O c t
0000600 - 8 6 1 2 : 1 3 : 5 6 " { E
0000620 R I S } < L I S P C O R E > S O
0000640 U R C E S > C M L E V A L . ; 5
0000660 ) \r ( R P A Q Q C M L E V A L
0000700 C O M S ( ( C O M S ( * ;
0000720 " F o r m f o r d e f i n
0000740 i n i n g i n t e r p r e t e
0000760 r s o f s p e c i a l f o
0001000 r m s " ) ( D E F I N E - T Y
0001020 P E S \r S P E C I A L - F O R
0001040 M S ) ( F U N C T I O N S D
0001060 E F I N E - S P E C I A L - F O
0001100 R M ) ( F U N C T I O N S C
0001120 L : S P E C I A L - F O R M - P
0001140 ) ) ( C O M S ( S P E C I A
0001160 L - F O R M S \r I N T E R L I
0001200 S P ) ( P R O P D M A C R O
0001220 I N T E R L I S P C O M M O
0001240 N - L I S P ) ( F N S C O M
0001260 M O N - L I S P ) ) ( C O M S
0001300 ( A D D V A R S ( L A M B D
0001320 A S P L S T C L : L A M B D A
0001340 \r ) ) ( F N S \ T R A N S L
0001360 A T E - C L % : L A M B D A )
0001400 ( V A R I A B L E S * C H E C
0001420 K - A R G U M E N T - C O U N T
0001440 S * ) ( P R O P D M A C R O
0001460 C O M M O N - L I S P ) ) (
0001500 \r V A R I A B L E S C L : L A
0001520 M B D A - L I S T - K E Y W O R
0001540 D S C L : C A L L - A R G U M
0001560 E N T S - L I M I T C L : L A
0001600 M B D A - P A R A M E T E R S -
0001620 L I M I T ) ( S T R U C T U R
0001640 E S \r C L O S U R E E N V I
0001660 R O N M E N T ) ( C O M S (
0001700 F N S C L : E V A L E V A L
0001720 - I N V O K E - L A M B D A \
0001740 I N T E R P R E T - A R G U M E
0001760 N T S \ I N T E R P R E T E R
0002000 - L A M B D A \r C H E C K - B
0002020 I N D A B L E C H E C K - K E
0002040 Y W O R D S ) ( F U N C T I O
0002060 N S A R G - R E F ) ( P R O
0002100 P D M A C R O . C O M P I L
0002120 E R - S P R E A D - A R G U M E
0002140 N T S . ) ) ( F N S \r D E C
0002160 L A R E D - S P E C I A L E V
0002200 A L H O O K ) ( C O M S ( *
0002220 ; " F U N C A L L a n d
0002240 A P P L Y , n o t q u i t e
0002260 s a m e a s I n t e r l i
0002300 s p " ) ( F N S C L : F U N
0002320 C A L L \r C L : A P P L Y )
0002340 ( P R O P D M A C R O C L :
0002360 A P P L Y C L : F U N C A L L
0002400 ) ) ( C O M S ( * ; \r "
0002420 C O M P I L E R - L E T n e e
0002440 d s t o w o r k d i f f e
0002460 r e n t l y c o m p i l e d
0002500 a n d i n t e r p r e t e d "
0002520 ) ( F N S C L : C O M P I L
0002540 E R - L E T \r C O M P . C O M
0002560 P I L E R - L E T ) ( P R O P
0002600 D M A C R O C L : C O M P I
0002620 L E R - L E T ) ( S P E C I A
0002640 L - F O R M S C L : C O M P I
0002660 L E R - L E T ) ) ( S P E C I
0002700 A L - F O R M S Q U O T E \r )
0002720 ( C O M S ( S P E C I A L -
0002740 F O R M S T H E ) ( P R O P
0002760 D M A C R O T H E ) ) ( C
0003000 O M S ( P R O P D M A C R O
0003020 C L : E V A L - W H E N ) (
0003040 F N S C L : E V A L - W H E N
0003060 ) ( \r S P E C I A L - F O R M
0003100 S C L : E V A L - W H E N ) )
0003120 ( C O M S ( S P E C I A L -
0003140 F O R M S D E C L A R E ) (
0003160 F U N C T I O N S C L : L O C
0003200 A L L Y ) ) ( C O M S ( *
0003220 ; \r " I n t e r l i s p v e
0003240 r s i o n o n L L I N T E R
0003260 P " ) ( S P E C I A L - F O R
0003300 M S P R O G N ) ( F N S E
0003320 V A L - P R O G N ) ) ( C O M
0003340 S ( * ; \r " C o n f u s e
0003360 d b e c a u s e c u r r e n
0003400 t l y I n t e r l i s p s p
0003420 e c i a l f o r m , f i x i
0003440 n g M A C R O - F U N C T I O
0003460 N i s c o m p l e x " ) (
0003500 * ; \r " T h e I n t e r l
0003520 i s p f u n c t i o n i s
0003540 o n L L I N T E R P " ) ( S
0003560 P E C I A L - F O R M S P R O
0003600 G 1 ) ( F U N C T I O N S P
0003620 R O G 1 ) ) ( C O M S ( S P
0003640 E C I A L - F O R M S \r L E T
0003660 * L E T ) ( P R O P M A C
0003700 R O L E T L E T * ) ( F N
0003720 S E V A L - L E T * - R E C U
0003740 R S I O N \ L E T t r a n ) )
0003760 ( C O M S ( S P E C I A L -
0004000 F O R M S C O N D ) ( \r F U
0004020 N C T I O N S C O N D ) ) (
0004040 C O M S ( * ; " c o n s i
0004060 d e r m a k i n g C L : I F
0004100 e x t e n d e d t o h a v
0004120 e I n t e r l i s p ' s f e
0004140 a t u r e s " ) ( F N S C L
0004160 : I F ) \r ( S P E C I A L - F
0004200 O R M S C L : I F ) ( P R O
0004220 P D M A C R O C L : I F ) )
0004240 ( C O M S ( * ; " I n t
0004260 e r l i s p N L A M B D A d
0004300 e f i n i t i o n s o n L L
0004320 I N T E R P " ) ( * \r ; "
0004340 b o t h s p e c i a l f o r
0004360 m a n d m a c r o " ) ( F
0004400 U N C T I O N S A N D O R )
0004420 ( S P E C I A L - F O R M S
0004440 A N D O R ) ) ( C O M S (
0004460 * ; \r " B L O C K a n d
0004500 R E T U R N g o t o g e t h
0004520 e r " ) ( F N S C L : B L O
0004540 C K ) ( P R O P D M A C R O
0004560 C L : B L O C K ) ( S P E C
0004600 I A L - F O R M S C L : B L O
0004620 C K ) ( \r F U N C T I O N S
0004640 R E T U R N ) ( F N S C L :
0004660 R E T U R N - F R O M ) ( S P
0004700 E C I A L - F O R M S C L : R
0004720 E T U R N - F R O M ) ) ( C O
0004740 M S ( * ; \r " e v e n t u
0004760 a l l y s h o u l d n ' t b
0005000 e s h a d o w e d b u t c
0005020 u r r e n t l y * r e a l l y
0005040 * d i f f e r e n t " ) ( F
0005060 N S C L : F U N C T I O N F
0005100 U N C T I O N ) ( P R O P \r
0005120 D M A C R O C L : F U N C T I
0005140 O N ) ( S P E C I A L - F O R
0005160 M S C L : F U N C T I O N F
0005200 U N C T I O N ) ) ( S P E C I
0005220 A L - F O R M S C L : M U L T
0005240 I P L E - V A L U E - C A L L )
0005260 ( F N S \r C O M P . C L - E
0005300 V A L ) ( V A R I A B L E S
0005320 * E V A L H O O K * * A P P L
0005340 Y H O O K * ) ( I N I T V A R
0005360 S ( * S K I P - E V A L H O O
0005400 K * N I L ) ( * S K I P - A
0005420 P P L Y H O O K * N I L \r ) )
0005440 ( F N S C L : C O N S T A N
0005460 T P ) ( C O M S ( * ; "
0005500 I n t e r l i s p S E T Q f
0005520 o r C o m m o n L i s p a
0005540 n d v i c e v e r s a " )
0005560 ( S P E C I A L - F O R M S C
0005600 L : S E T Q \r S E T Q ) ( P
0005620 R O P D M A C R O C L : S E
0005640 T Q ) ( P R O P M A C R O
0005660 S E T Q ) ( F N S S E T - S
0005700 Y M B O L ) ( F U N C T I O N
0005720 S C L : P S E T Q ) ) ( C O
0005740 M S ( * ; \r " C o m m o n
0005760 L i s p s t y l e C A T C H
0006000 a n d T H R O W " ) ( S P
0006020 E C I A L - F O R M S C L : C
0006040 A T C H C L : T H R O W ) (
0006060 F N S C L : C A T C H \ C A
0006100 T C H - F U N C A L L \r \ C A
0006120 T C H - E V A L \ C A T C H -
0006140 C L - E V A L C L : T H R O W
0006160 E V A L - T H R O W \ D O -
0006200 T H R O W ) ( P R O P D M A
0006220 C R O C L : C A T C H C L :
0006240 T H R O W ) ) ( C O M S ( \r
0006260 F U N C T I O N S P R O G P
0006300 R O G * ) ( S P E C I A L - F
0006320 O R M S G O C L : T A G B O
0006340 D Y ) ( F N S C L : T A G B
0006360 O D Y ) ) ( C O M S ( S P E
0006400 C I A L - F O R M S \r C L : U
0006420 N W I N D - P R O T E C T ) (
0006440 M A C R O S C L : U N W I N D
0006460 - P R O T E C T ) ) ( F I L E
0006500 S C M L P R O G V ) ( C O M
0006520 S ( * ; \r " h a c k t o
0006540 g e t N L S E T Q s t o
0006560 w o r k o n c o m m o n l
0006600 i s p i n t e r p r e t e r "
0006620 ) ( S P E C I A L - F O R M S
0006640 . E R R S E T Q . ) ( F N S
0006660 E V A L - E R R O R S E T \r )
0006700 ) ( L O C A L V A R S . T
0006720 ) ( P R O P F I L E T Y P E
0006740 C M L E V A L ) ( D E C L A
0006760 R E % : D O N T E V A L @ L O
0007000 A D D O C O P Y ( P ( f o
0007020 r X i n S Y S S P E C V A
0007040 R S d o \r ( C L : S E T F
0007060 ( V A R I A B L E - G L O B A L
0007100 L Y - S P E C I A L - P X )
0007120 T ) ) ) ) ( C O M S ( * ;
0007140 " f o r m a c r o c a c h
0007160 i n g " ) ( F N S C A C H E
0007200 M A C R O ) ( \r V A R I A B L
0007220 E S * M A C R O E X P A N D -
0007240 H O O K * ) ( V A R S ( * I
0007260 N - C O M P I L E R - L E T *
0007300 N I L ) ) ) ( D E C L A R E %
0007320 : D O N T E V A L @ L O A D
0007340 D O E V A L @ C O M P I L E \r
0007360 D O N T C O P Y C O M P I L E
0007400 R V A R S ( A D D V A R S (
0007420 N L A M A C L : T A G B O D Y
0007440 C L : C A T C H C L : B L O
0007460 C K C L : E V A L - W H E N
0007500 C L : C O M P I L E R - L E T
0007520 \r C O M M O N - L I S P ) ( N
0007540 L A M L C L : T H R O W F U
0007560 N C T I O N C L : F U N C T I
0007600 O N C L : R E T U R N - F R O
0007620 M C L : I F ) ( L A M A C
0007640 L : A P P L Y C L : F U N C A
0007660 L L \r E V A L H O O K ) ) ) )
0007700 ) \r ( A D D T O V A R P R E T
0007720 T Y D E F M A C R O S ( S P E
0007740 C I A L - F O R M S X ( P
0007760 * ( M A P C A R ( Q U O T E
0010000 X ) ( F U N C T I O N ( L
0010020 A M B D A ( I T E M ) ( C L
0010040 : D O ( ( \r D E F ( G E T D
0010060 E F I T E M ( Q U O T E S
0010100 P E C I A L - F O R M S ) ) ) )
0010120 ( D E F D E F ) ( C L : C
0010140 E R R O R " R e - f e t c h
0010160 t h e d e f i n i t i o n "
0010200 \r " N o ~ S d e f i n i t i
0010220 o n f o r ~ S " ( Q U O T
0010240 E S P E C I A L - F O R M S )
0010260 I T E M ) ) ) ) ) ) ) ) \r ( A
0010300 D D T O V A R P R E T T Y T Y
0010320 P E L S T ( C H A N G E D S P
0010340 E C I A L - F O R M S L S T S
0010360 P E C I A L - F O R M S " C o
0010400 m m o n L i s p s p e c i a
0010420 l f o r m s " ) ) \r ( C O N D
0010440 ( ( N O T ( C L : G E T H A
0010460 S H ( Q U O T E S P E C I A
0010500 L - F O R M S ) * D E F I N I
0010520 T I O N - H A S H - T A B L E *
0010540 ) ) ( L E T * ( ( A 0 6 9 7
0010560 ( Q U O T E \r S P E C I A L
0010600 - F O R M S ) ) ( A 0 6 9 8
0010620 * D E F I N I T I O N - H A S H
0010640 - T A B L E * ) ( A 0 7 0 0
0010660 ( C L : M A K E - H A S H - T A
0010700 B L E ( Q U O T E : T E S T
0010720 ) ( Q U O T E C L : E Q U A
0010740 L \r ) ( Q U O T E : S I Z E
0010760 ) 5 0 ( Q U O T E : R E H
0011000 A S H - S I Z E ) 5 0 ) ) )
0011020 ( C L : : P U T H A S H A 0 6
0011040 9 7 A 0 6 9 8 A 0 7 0 0 ) )
0011060 ) ) \r ( A D D T O V A R F I L
0011100 E P K G T Y P E S S P E C I A
0011120 L - F O R M S ) \r ( P U T P R O
0011140 P S S P E C I A L - F O R M S
0011160 G E T D E F \ D E F I N E -
0011200 T Y P E - G E T D E F ) \r ( P U
0011220 T P R O P S S P E C I A L - F
0011240 O R M S F I L E P K G C O N T
0011260 E N T S N I L L ) \r ( P U T P
0011300 R O P S S P E C I A L - F O R
0011320 M S P R O P T Y P E S P E C
0011340 I A L - F O R M S ) \r e x p a n
0011360 d - D E F I N E - S P E C I A L
0011400 - F O R M D 1 \r ( L ( 1 $
0011420 $ M A C R O - E N V I R O N M E
0011440 N T 0 $ $ M A C R O - F O R
0011460 M ) ) \0 371 \n \0 \0 002 @ 002 \t \0 \0 021
0011500 221 \t @ 271 H 001 272 H 002 [ 001 274 K 002 275 g
0011520 \0 \0 g \0 \0 M 263 ! M 004 l 004 360 264 024 \b
0011540 \0 \0 277 g \0 \0 J g \0 \0 L h 032 032 261 \0
0011560 203 \t \0 \0 277 260 343 o \0 \0 \0 J \n \0 \0 _
0011600 022 277 L g \0 \0 M J h g \0 \0 g \0 \0 g
0011620 \0 \0 g \0 \0 \r \t \0 \0 \t \0 \0 _ 020 001 _
0011640 016 277 O 020 002 001 276 O 022 274 g \0 \0 g \0 \0
0011660 g \0 \0 g \0 \0 O 022 h 032 032 h 032 032 g \0
0011700 \0 g \0 \0 o \0 \0 \0 g \0 \0 J N O 016 h
0011720 032 \n \0 \0 032 032 h 032 032 032 h 032 032 h 032 032
0011740 032 g \0 \0 J g \0 \0 O 022 h 032 032 032 032 h
0011760 032 032 032 h 032 032 g \0 \0 o \0 \0 \0 g \0 \0
0012000 g \0 \0 g \0 \0 g \0 \0 J h 032 032 o \0 \0
0012020 \0 g \0 \0 I h 032 032 h 032 032 032 032 h 032 032
0012040 032 h 032 032 032 g \0 \0 J h 032 032 h 032 032 032
0012060 032 020 \0 ( 1 5 3 \ A P P E N D 2
0012100 9 7 \ M V L I S T 9 4 P
0012120 A R S E - D E F M A C R O 6 8
0012140 P A C K * 5 7 A S S E R T
0012160 - F A I L 3 9 C L : V A L U
0012200 E S 4 R E M O V E - C O M M
0012220 E N T S ) \r ( 2 3 7 Q U O T E
0012240 2 1 7 Q U O T E 2 0 6 Q
0012260 U O T E 2 0 3 \ D E F I N E
0012300 - T Y P E - S A V E - D E F N
0012320 2 0 0 F I L E P K G F L G 1
0012340 9 7 A N D 1 9 0 C L : E V
0012360 A L - W H E N 1 7 3 S P E C
0012400 I A L - F O R M 1 6 9 P U T
0012420 P R O P S 1 4 4 C L : B L O
0012440 C K 1 3 7 C L : L A M B D A
0012460 1 3 4 F U N C T I O N 1 2
0012500 3 Q U O T E 1 2 0 C L : S
0012520 Y M B O L - F U N C T I O N 1
0012540 1 7 C L : S E T F 1 1 4 P
0012560 R O G N 9 0 $ $ E N V 8 7
0012600 : E N V I R O N M E N T 8 4
0012620 $ $ T A I L 8 1 : P A T H
0012640 7 5 $ $ T A I L 4 7 S P
0012660 E C I A L - F O R M 4 3 P U
0012700 T P R O P S 2 6 W I T H O U
0012720 T - F I L E P K G 2 3 P R O
0012740 G N ) \r ( 2 1 4 ( Q U O T E
0012760 S P E C I A L - F O R M S )
0013000 1 9 4 ( C L : E V A L ) 1 4
0013020 1 ( $ $ T A I L $ $ E N V )
0013040 6 4 " \ i n t e r p r e t -
0013060 " ) \r ( S E T F - M A C R O - F
0013100 U N C T I O N ( Q U O T E D
0013120 E F I N E - S P E C I A L - F O
0013140 R M ) ( Q U O T E e x p a n
0013160 d - D E F I N E - S P E C I A L
0013200 - F O R M ) ) \r ( A D D T O V A
0013220 R P R E T T Y P R I N T M A C
0013240 R O S ( D E F I N E - S P E C
0013260 I A L - F O R M . P P R I N
0013300 T - D E F I N E R ) ) \r C L : S
0013320 P E C I A L - F O R M - P D 1
0013340 \r ( L ( 0 X ) ) \0 \v \0 \0 \0
0013360 001 @ 301 002 311 \0 g \0 \0 ' 020 \0 N I L \r
0013400 ( 7 S P E C I A L - F O R M )
0013420 \r ( ) \r ( P U T P R O P S I N
0013440 T E R L I S P S P E C I A L -
0013460 F O R M P R O G N ) \r ( P U T
0013500 P R O P S I N T E R L I S P
0013520 D M A C R O ( ( X . Y )
0013540 ( P R O G N X . Y ) ) ) \r
0013560 ( P U T P R O P S C O M M O N
0013600 - L I S P D M A C R O ( ( X
0013620 ) X ) ) \r C O M M O N - L I S
0013640 P D 1 \r ( L ( 0 C O M M O
0013660 N - L I S P - F O R M S ) ) \0
0013700 006 \0 \0 003 001 @ \t \0 \0 020 \0 ( 3 E V
0013720 A L - P R O G N ) \r N I L \r ( )
0013740 \r ( A D D T O V A R L A M B D
0013760 A S P L S T C L : L A M B D A
0014000 ) \r \ T R A N S L A T E - C L %
0014020 : L A M B D A D 1 \r ( L ( 0
0014040 E X P R ) F 2 4 * C H E
0014060 C K - A R G U M E N T - C O U N
0014100 T S * ) 003 1 030 001 \0 001 k j d i 021
0014120 364 022 @ 002 001 _ 003 265 / @ 002 002 h \n \0
0014140 \0 \t \0 \0 _ $ 001 _ 024 277 O $ 002 001 _ 026
0014160 277 K 242 261 002 ? g \0 \0 L \t \0 \0 021 0 025
0014200 N \t \0 \0 261 002 005 001 _ " g \0 \0 360 250 O
0014220 " d g \0 \0 360 230 277 g \0 \0 _ 022 261 001 315
0014240 g \0 \0 360 226 O " _ 022 261 001 301 O " d g
0014260 \0 \0 360 224 _ 022 261 001 264 g \0 \0 360 262 026 O
0014300 022 g \0 \0 360 222 261 001 245 o \0 \0 \0 \t \0 \0
0014320 261 001 232 O " g \0 \0 360 227 g \0 \0 _ 022 261
0014340 001 213 O 022 265 036 O " L 032 274 H k 324 270 I
0014360 k 324 271 J k 324 272 W 0 242 261 001 q h [ 261
0014400 001 k g \0 \0 360 262 $ O " g \0 \0 g \0 \0
0014420 g \0 \0 H o \0 \0 \0 032 032 032 032 h 032 032 h
0014440 032 _ 020 277 h Z [ 261 001 C O 022 d g \0 \0
0014460 360 232 277 O " O 016 032 _ 016 261 001 0 g \0 \0
0014500 360 242 261 \0 256 h _ 034 277 O " 003 264 024 O "
0014520 002 001 O " 002 002 001 _ 034 277 O " 001 _ " 277
0014540 _ 032 277 O " d 003 230 001 O " 002 001 _ " 277
0014560 202 \t \0 \0 _ 030 277 O 034 265 O O " g \0 \0
0014600 g \0 \0 g \0 \0 H g \0 \0 g \0 \0 g \0 \0
0014620 l 002 g \0 \0 g \0 \0 o \0 \0 \0 O 030 h 032
0014640 032 032 g \0 \0 o \0 \0 \0 g \0 \0 g \0 \0 O
0014660 034 262 g \0 \0 g \0 \0 O 034 o \0 \0 \0 032
0014700 032 O 032 h 032 032 032 212 i h 032 032 M 032 275 260
0014720 254 O 032 h 032 032 h 032 032 032 032 032 032 032 032 032
0014740 032 032 032 032 032 h 032 032 M 032 275 h Z [ 260 |
0014760 O 022 g \0 \0 360 262 q O " d 003 243 h 032 _
0015000 " 002 002 001 _ 036 265 Z O " d 002 001 224 277 h
0015020 273 O " 001 g \0 \0 g \0 \0 H o \0 \0 \0 032
0015040 032 O " 002 001 h 032 032 i O 036 264 017 g \0 \0
0015060 O 036 o \0 \0 \0 032 032 h 032 g \0 \0 g \0 \0
0015100 H h 032 032 032 h 032 \n \0 \0 032 h 032 032 032 h
0015120 032 032 N 032 276 J 223 J k 324 272 H k 324 X 211
0015140 N 032 276 h 273 260 243 \b \0 \0 277 O 002 261 375
0015160 347 d 001 001 _ & 277 O ( 265 \t O & h 032 _
0015200 * 202 O & & _ ( 277 002 003 265 347 O * 022 \n
0015220 \0 \0 o \0 \0 \0 O 026 g \0 \0 O 016 \t \0 \0
0015240 O 026 O 024 \n \0 \0 032 032 h 032 \n \0 \0 032 032
0015260 032 020 g \0 \0 g \0 \0 o \0 \0 \0 W 0 264 $
0015300 I d 262 j 360 263 033 g \0 \0 g \0 \0 g \0
0015320 \0 I h 032 032 032 o \0 \0 \0 032 h 032 032 h 032
0015340 200 h W 0 264 035 J 264 032 g \0 \0 g \0 \0 g
0015360 \0 \0 J h 032 032 032 o \0 \0 \0 032 h 032 032 h
0015400 032 g \0 \0 L \t \0 \0 k 021 2 027 O & 003 265
0015420 5 O * 022 N \t \0 \0 M \t \0 \0 O 020 O 016
0015440 \t \0 \0 \n \0 \0 \n \0 \0 \n \0 \0 \n \0 \0 O
0015460 026 O 024 \n \0 \0 032 032 h 032 \n \0 \0 \n \0 \0
0015500 032 032 032 020 001 g \0 \0 g \0 \0 O ( h 032 032
0015520 032 h 032 032 _ . 277 O , 265 032 O . h 032 _
0015540 , _ * 277 O & 002 _ & 277 O ( k 324 _ (
0015560 277 260 233 O . & _ , 277 260 353 \0 ( 7 5 6
0015600 \ A P P E N D 2 7 5 3 \ A
0015620 P P E N D 2 7 4 6 \ A P P E
0015640 N D 2 7 3 9 \ A P P E N D 2
0015660 7 3 6 \ A P P E N D 2 7 3
0015700 3 \ A P P E N D 2 7 3 0 \
0015720 A P P E N D 2 7 2 7 R E V E
0015740 R S E 7 2 0 R E V E R S E
0015760 7 1 6 R E V E R S E 7 0 0
0016000 R E V E R S E 6 1 0 \ A P P
0016020 E N D 2 6 0 3 \ A P P E N D
0016040 2 5 9 6 R E V E R S E 5 8
0016060 2 \ A P P E N D 2 5 4 2 S
0016100 H O U L D N T 5 1 0 \ A P P
0016120 E N D 2 2 9 6 M A K E - K E
0016140 Y W O R D 1 3 2 E R R O R
0016160 5 6 R E V E R S E 4 9 R E
0016200 V E R S E 2 4 \ M V L I S T
0016220 2 1 P A R S E - B O D Y ) \r
0016240 ( 7 6 7 - a r g s - 7 6 4
0016260 A R G 6 9 6 L E T * 6 7 8
0016300 - a r g s - 6 7 5 I G R E
0016320 A T E R P 6 7 2 C O N D 6
0016340 4 5 - a r g s - 6 4 2 I L
0016360 E S S P 6 3 9 C O N D 6 2
0016400 0 - a r g s - 6 1 7 L A M
0016420 B D A 5 9 1 L E T * 5 0 0
0016440 - a r g s - 4 9 7 A R G
0016460 4 8 4 S E T Q 4 6 2 I G R
0016500 E A T E R P 4 5 9 C O N D
0016520 4 2 5 & O P T I O N A L 3 6
0016540 5 S E T Q 3 6 2 P R O G N
0016560 3 5 5 R E T U R N 3 5 2
0016600 f i n a l l y 3 4 5 d o 3
0016620 3 2 E Q 3 2 9 w h e n 3
0016640 2 4 b y 3 2 1 - a r g s -
0016660 3 1 8 t o 3 1 4 f r o m
0016700 3 1 1 \ I N D E X 3 0 8
0016720 f o r 2 4 4 & K E Y 2 2 8
0016740 & A U X 1 9 9 f r o m 1
0016760 9 6 I 1 9 3 f o r 1 8 5
0017000 & R E S T 1 4 5 & K E Y
0017020 1 4 0 & K E Y 1 2 0 & K E
0017040 Y 1 1 2 & A L L O W - O T H
0017060 E R - K E Y S 1 0 2 & A U X
0017100 8 7 & O P T I O N A L 7 9
0017120 & R E S T 7 3 & B O D Y
0017140 6 5 & R E S T 4 5 L A M B
0017160 D A ) \r ( 6 8 7 ( ( E R R O
0017200 R " T o o m a n y a r g s
0017220 " - a r g s - ) ) 6 5 4 (
0017240 ( E R R O R " T o o f e w
0017260 a r g s " - a r g s - ) ) 6
0017300 2 4 ( D E C L A R E ( L O C
0017320 A L V A R S . T ) ) \r 5 8
0017340 6 ( D E C L A R E ( L O C A
0017360 L V A R S . T ) ) 4 9 0
0017400 ( T ) 4 6 7 ( - a r g s - )
0017420 3 7 1 ( N I L ) 3 4 9 (
0017440 R E T U R N ( A R G - a r g
0017460 s - ( A D D 1 \ I N D E X )
0017500 ) ) 3 3 6 \r ( A R G - a r
0017520 g s - \ I N D E X ) 2 0 4
0017540 ( t o - a r g s - c o l l e
0017560 c t ( A R G - a r g s - I
0017600 ) ) 1 2 9 " & A L L O W - O
0017620 T H E R - K E Y S n o t i n
0017640 & K E Y " ) \r ( C L : P R O C
0017660 L A I M ( Q U O T E ( C L :
0017700 S P E C I A L * C H E C K - A
0017720 R G U M E N T - C O U N T S * )
0017740 ) ) \r ( S E T Q * C H E C K -
0017760 A R G U M E N T - C O U N T S *
0020000 N I L ) \r ( P U T P R O P S
0020020 C O M M O N - L I S P D M A C
0020040 R O ( ( X ) X ) ) \r ( C L :
0020060 P R O C L A I M ( Q U O T E
0020100 ( C L : S P E C I A L C L : L
0020120 A M B D A - L I S T - K E Y W O
0020140 R D S ) ) ) \r ( S E T Q C L :
0020160 L A M B D A - L I S T - K E Y W
0020200 O R D S ( Q U O T E ( & O P
0020220 T I O N A L & R E S T & K E
0020240 Y & A U X & B O D Y & W H
0020260 O L E & A L L O W - O T H E R
0020300 - K E Y S \r & E N V I R O N M
0020320 E N T ) ) ) \r ( C L : P R O C L
0020340 A I M ( Q U O T E ( C L : S
0020360 P E C I A L C L : C A L L - A
0020400 R G U M E N T S - L I M I T ) )
0020420 ) \r ( S E T Q C L : C A L L -
0020440 A R G U M E N T S - L I M I T
0020460 5 1 2 ) \r ( C L : P R O C L A I
0020500 M ( Q U O T E ( C L : S P E
0020520 C I A L C L : L A M B D A - P
0020540 A R A M E T E R S - L I M I T )
0020560 ) ) \r ( S E T Q C L : L A M B
0020600 D A - P A R A M E T E R S - L I
0020620 M I T 5 1 2 ) \r ( L E T * (
0020640 ( A 0 7 0 7 ( Q U O T E C L
0020660 O S U R E ) ) ( A 0 7 0 8 (
0020700 Q U O T E S T R U C T U R E )
0020720 ) ( A 0 7 0 9 \r " A n i n
0020740 t e r p r e t e d l e x i c a
0020760 l c l o s u r e . C o n t a
0021000 i n s t h e f u n c t i o n
0021020 a n d a n e n v i r o n m
0021040 e n t o b j e c t " ) ) ( P
0021060 R O G N ( C O N D ( ( \r C L
0021100 : F B O U N D P ( Q U O T E
0021120 S E T - D O C U M E N T A T I O
0021140 N ) ) ( S E T - D O C U M E N
0021160 T A T I O N A 0 7 0 7 A 0 7
0021200 0 8 A 0 7 0 9 ) ) ) A 0 7 0
0021220 9 ) ) \r ( % % S T R U C T U R E
0021240 - D E C L A R E - D A T A T Y P
0021260 E ( Q U O T E C L O S U R E
0021300 ) ( Q U O T E ( P O I N T E
0021320 R P O I N T E R ) ) ( Q U O
0021340 T E ( ( C L O S U R E 0 P
0021360 O I N T E R ) ( \r C L O S U R
0021400 E 2 P O I N T E R ) ) ) 4
0021420 ( Q U O T E N I L ) ) \r t y
0021440 p e - e x p a n d - C L O S U R
0021460 E D 1 \r ( L ( 0 $ $ T Y P
0021500 E - F O R M ) ) \0 006 \0 \0 \0 001 o
0021520 \0 \0 \0 020 \0 N I L \r N I L \r ( 3
0021540 ( D A T A T Y P E C L O S U
0021560 R E ) ) \r ( P U T ( Q U O T E
0021600 C L O S U R E ) ( Q U O T E
0021620 T Y P E - E X P A N D E R )
0021640 ( Q U O T E t y p e - e x p a
0021660 n d - C L O S U R E ) ) \r C L O
0021700 S U R E - P D 1 \r ( L ( 0
0021720 O B J E C T ) ) \0 \t \0 \0 \0 001 @
0021740 303 \0 \0 264 003 i 020 \0 N I L \r ( 3 C
0021760 L O S U R E ) \r ( ) \r C L O S U
0022000 R E - F U N C T I O N D 1 \r (
0022020 L ( 0 C L O S U R E ) ) \0
0022040 \b \0 \0 \0 001 @ 006 \0 \0 311 \0 020 \0 N I L
0022060 \r ( 3 C L O S U R E ) \r ( ) \r
0022100 C L O S U R E - E N V I R O N M
0022120 E N T D 1 \r ( L ( 0 C L O
0022140 S U R E ) ) \0 \b \0 \0 \0 001 @ 006 \0
0022160 \0 311 002 020 \0 N I L \r ( 3 C L O S
0022200 U R E ) \r ( ) \r ( R E M P R O P
0022220 ( Q U O T E C L O S U R E -
0022240 F U N C T I O N ) ( Q U O T E
0022260 S E T F - M E T H O D - E X P
0022300 A N D E R ) ) \r ( P U T P R O P
0022320 S C L O S U R E - F U N C T I
0022340 O N S E T F - I N V E R S E
0022360 % % S E T F - C L O S U R E - F
0022400 U N C T I O N ) \r % % S E T F -
0022420 C L O S U R E - F U N C T I O N
0022440 D 1 \r ( L ( 1 V A L U E
0022460 0 C L O S U R E ) ) \0 \n \0 \0
0022500 \0 002 @ 006 \0 \0 A 024 \0 A 020 \0 N I L \r
0022520 ( 3 C L O S U R E ) \r ( ) \r (
0022540 R E M P R O P ( Q U O T E C
0022560 L O S U R E - E N V I R O N M E
0022600 N T ) ( Q U O T E S E T F -
0022620 M E T H O D - E X P A N D E R )
0022640 ) \r ( P U T P R O P S C L O S
0022660 U R E - E N V I R O N M E N T
0022700 S E T F - I N V E R S E % % S
0022720 E T F - C L O S U R E - E N V I
0022740 R O N M E N T ) \r % % S E T F -
0022760 C L O S U R E - E N V I R O N M
0023000 E N T D 1 \r ( L ( 1 V A L
0023020 U E 0 C L O S U R E ) ) \0
0023040 \n \0 \0 \0 002 @ 006 \0 \0 A 024 002 A 020 \0 N
0023060 I L \r ( 3 C L O S U R E ) \r (
0023100 ) \r M A K E - C L O S U R E D
0023120 1 \r ( L ( 0 - a r g s - ) )
0023140 \0 ] 006 \0 002 \0 e 021 001 \0 H k 021 002 002
0023160 J d I 363 262 ) 277 h 022 021 A 005 H k 273 272
0023200 K d J 363 262 , 277 h 274 ` \0 \0 037 ] 006 \0
0023220 \0 I 024 \0 M 006 \0 \0 L 024 002 M 020 a g \0
0023240 \0 360 225 J k 330 a 260 321 J l 002 324 Z 260 303
0023260 a g \0 \0 360 225 K k 330 a 260 316 K l 002 324
0023300 [ 260 300 \0 N I L \r ( 7 6 : E N V
0023320 I R O N M E N T 5 7 : F U N
0023340 C T I O N 4 8 C L O S U R E
0023360 4 1 C L O S U R E 3 6 |
0023400 004 003 C L O S U R E T Y P E # | )
0023420 \r ( ) \r C O P Y - C L O S U R E
0023440 D 1 \r ( L ( 0 C L O S U R
0023460 E ) ) \0 7 001 \0 \0 001 @ 021 001 \0 H 303
0023500 \0 \0 262 036 023 ` \0 \0 037 021 001 \0 H 006 \0 \0
0023520 @ 311 \0 024 \0 H 006 \0 \0 @ 311 002 024 002 H 020
0023540 i g \0 \0 H g \0 \0 \f \0 \0 b \0 023 260 314
0023560 \0 ( 4 8 C H E C K - T Y P E -
0023600 F A I L ) \r ( 4 5 C L O S U R
0023620 E 4 1 C L O S U R E 3 0
0023640 C L O S U R E 2 1 C L O S U
0023660 R E 1 3 | 004 003 C L O S U R E
0023700 T Y P E # | 7 C L O S U R E
0023720 ) \r ( ) \r ( D E F P R I N T (
0023740 Q U O T E C L O S U R E ) (
0023760 Q U O T E D E F A U L T - S T
0024000 R U C T U R E - P R I N T E R )
0024020 ) \r ( S E T - P A R S E D - S T
0024040 R U C T U R E ( Q U O T E C
0024060 L O S U R E ) ( Q U O T E (
0024100 P S C L O S U R E M A K E -
0024120 C L O S U R E ( F U N C T I O
0024140 N E N V I R O N M E N T ) D
0024160 A T A T Y P E \r N I L N I L
0024200 C L O S U R E - ( M A K E -
0024220 C L O S U R E ) C L O S U R E
0024240 - P D E F A U L T - S T R U C
0024260 T U R E - P R I N T E R C O P
0024300 Y - C L O S U R E N I L 0
0024320 ( ( F U N C T I O N N I L \r
0024340 T N I L ( C L O S U R E 0
0024360 P O I N T E R ) C L O S U R
0024400 E - F U N C T I O N ) ( E N V
0024420 I R O N M E N T N I L T N
0024440 I L ( C L O S U R E 2 P O
0024460 I N T E R ) \r C L O S U R E -
0024500 E N V I R O N M E N T ) ) ( (
0024520 F U N C T I O N N I L T N
0024540 I L ( C L O S U R E 0 P O
0024560 I N T E R ) C L O S U R E - F
0024600 U N C T I O N ) ( E N V I R O
0024620 N M E N T N I L T \r N I L
0024640 ( C L O S U R E 2 P O I N
0024660 T E R ) C L O S U R E - E N V
0024700 I R O N M E N T ) ) N I L \r
0024720 " A n i n t e r p r e t e d
0024740 l e x i c a l c l o s u r e .
0024760 C o n t a i n s t h e f u
0025000 n c t i o n a n d a n e n
0025020 v i r o n m e n t o b j e c t
0025040 " ( P O I N T E R P O I N T
0025060 E R ) ) ) ) \r ( L E T * ( ( A
0025100 0 7 1 4 ( Q U O T E E N V I
0025120 R O N M E N T ) ) ( A 0 7 1 5
0025140 ( Q U O T E S T R U C T U R
0025160 E ) ) ( A 0 7 1 6 \r " A n
0025200 e n v i r o n m e n t u s e d
0025220 b o t h b y i n t e r p r
0025240 e t e r a n d m a c r o e
0025260 x p a n d e r " ) ) ( P R O G
0025300 N ( C O N D ( ( C L : F B O
0025320 U N D P ( Q U O T E \r S E T
0025340 - D O C U M E N T A T I O N ) )
0025360 ( S E T - D O C U M E N T A T
0025400 I O N A 0 7 1 4 A 0 7 1 5
0025420 A 0 7 1 6 ) ) ) A 0 7 1 6 ) )
0025440 \r ( % % S T R U C T U R E - D E
0025460 C L A R E - D A T A T Y P E (
0025500 Q U O T E E N V I R O N M E N
0025520 T ) ( Q U O T E ( P O I N T
0025540 E R P O I N T E R P O I N T
*
0025600 E R \r P O I N T E R ) ) ( Q
0025620 U O T E ( ( E N V I R O N M E
0025640 N T 0 P O I N T E R ) ( E
0025660 N V I R O N M E N T 2 P O I
0025700 N T E R ) ( E N V I R O N M E
0025720 N T 4 P O I N T E R ) ( E
0025740 N V I R O N M E N T \r 6 P O
0025760 I N T E R ) ( E N V I R O N M
0026000 E N T 8 P O I N T E R ) (
0026020 E N V I R O N M E N T 1 0 P
0026040 O I N T E R ) ) ) 1 2 ( Q U
0026060 O T E N I L ) ) \r t y p e - e
0026100 x p a n d - E N V I R O N M E N
0026120 T D 1 \r ( L ( 0 $ $ T Y P
0026140 E - F O R M ) ) \0 006 \0 \0 \0 001 o
0026160 \0 \0 \0 020 \0 N I L \r N I L \r ( 3
0026200 ( D A T A T Y P E E N V I R
0026220 O N M E N T ) ) \r ( P U T ( Q
0026240 U O T E E N V I R O N M E N T
0026260 ) ( Q U O T E T Y P E - E X
0026300 P A N D E R ) ( Q U O T E t
0026320 y p e - e x p a n d - E N V I R
0026340 O N M E N T ) ) \r E N V I R O N
0026360 M E N T - P D 1 \r ( L ( 0
0026400 O B J E C T ) ) \0 \t \0 \0 \0 001 @
0026420 303 \0 \0 264 003 i 020 \0 N I L \r ( 3 E
0026440 N V I R O N M E N T ) \r ( ) \r E
0026460 N V I R O N M E N T - V A R S
0026500 D 1 \r ( L ( 0 E N V I R O N
0026520 M E N T ) ) \0 \b \0 \0 \0 001 @ 006 \0
0026540 \0 311 \0 020 \0 N I L \r ( 3 E N V I
0026560 R O N M E N T ) \r ( ) \r E N V I
0026600 R O N M E N T - F U N C T I O N
0026620 S D 1 \r ( L ( 0 E N V I R
0026640 O N M E N T ) ) \0 \b \0 \0 \0 001 @
0026660 006 \0 \0 311 002 020 \0 N I L \r ( 3 E N
0026700 V I R O N M E N T ) \r ( ) \r E N
0026720 V I R O N M E N T - B L O C K S
0026740 D 1 \r ( L ( 0 E N V I R O
0026760 N M E N T ) ) \0 \b \0 \0 \0 001 @ 006
0027000 \0 \0 311 004 020 \0 N I L \r ( 3 E N V
0027020 I R O N M E N T ) \r ( ) \r E N V
0027040 I R O N M E N T - T A G S D 1
0027060 \r ( L ( 0 E N V I R O N M E
0027100 N T ) ) \0 \b \0 \0 \0 001 @ 006 \0 \0 311
0027120 006 020 \0 N I L \r ( 3 E N V I R O
0027140 N M E N T ) \r ( ) \r E N V I R O
0027160 N M E N T - P A R E N T D 1 \r
0027200 ( L ( 0 E N V I R O N M E N
0027220 T ) ) \0 \b \0 \0 \0 001 @ 006 \0 \0 311 \b
0027240 020 \0 N I L \r ( 3 E N V I R O N
0027260 M E N T ) \r ( ) \r E N V I R O N
0027300 M E N T - M A C R O S D 1 \r (
0027320 L ( 0 E N V I R O N M E N T
0027340 ) ) \0 \b \0 \0 \0 001 @ 006 \0 \0 311 \n 020
0027360 \0 N I L \r ( 3 E N V I R O N M
0027400 E N T ) \r ( ) \r ( R E M P R O P
0027420 ( Q U O T E E N V I R O N M
0027440 E N T - V A R S ) ( Q U O T E
0027460 S E T F - M E T H O D - E X P
0027500 A N D E R ) ) \r ( P U T P R O P
0027520 S E N V I R O N M E N T - V A
0027540 R S S E T F - I N V E R S E
0027560 % % S E T F - E N V I R O N M E
0027600 N T - V A R S ) \r % % S E T F -
0027620 E N V I R O N M E N T - V A R S
0027640 D 1 \r ( L ( 1 V A L U E
0027660 0 E N V I R O N M E N T ) )
0027700 \0 \n \0 \0 \0 002 @ 006 \0 \0 A 024 \0 A 020 \0
0027720 N I L \r ( 3 E N V I R O N M E
0027740 N T ) \r ( ) \r ( R E M P R O P
0027760 ( Q U O T E E N V I R O N M E
0030000 N T - F U N C T I O N S ) ( Q
0030020 U O T E S E T F - M E T H O D
0030040 - E X P A N D E R ) ) \r ( P U T
0030060 P R O P S E N V I R O N M E N
0030100 T - F U N C T I O N S S E T F
0030120 - I N V E R S E % % S E T F -
0030140 E N V I R O N M E N T - F U N C
0030160 T I O N S ) \r % % S E T F - E N
0030200 V I R O N M E N T - F U N C T I
0030220 O N S D 1 \r ( L ( 1 V A L
0030240 U E 0 E N V I R O N M E N T
0030260 ) ) \0 \n \0 \0 \0 002 @ 006 \0 \0 A 024 002
0030300 A 020 \0 N I L \r ( 3 E N V I R O
0030320 N M E N T ) \r ( ) \r ( R E M P R
0030340 O P ( Q U O T E E N V I R O
0030360 N M E N T - B L O C K S ) ( Q
0030400 U O T E S E T F - M E T H O D
0030420 - E X P A N D E R ) ) \r ( P U T
0030440 P R O P S E N V I R O N M E N
0030460 T - B L O C K S S E T F - I N
0030500 V E R S E % % S E T F - E N V
0030520 I R O N M E N T - B L O C K S )
0030540 \r % % S E T F - E N V I R O N M
0030560 E N T - B L O C K S D 1 \r ( L
0030600 ( 1 V A L U E 0 E N V I
0030620 R O N M E N T ) ) \0 \n \0 \0 \0 002
0030640 @ 006 \0 \0 A 024 004 A 020 \0 N I L \r ( 3
0030660 E N V I R O N M E N T ) \r ( )
0030700 \r ( R E M P R O P ( Q U O T E
0030720 E N V I R O N M E N T - T A G
0030740 S ) ( Q U O T E S E T F - M
0030760 E T H O D - E X P A N D E R ) )
0031000 \r ( P U T P R O P S E N V I R
0031020 O N M E N T - T A G S S E T F
0031040 - I N V E R S E % % S E T F -
0031060 E N V I R O N M E N T - T A G S
0031100 ) \r % % S E T F - E N V I R O N
0031120 M E N T - T A G S D 1 \r ( L
0031140 ( 1 V A L U E 0 E N V I R
0031160 O N M E N T ) ) \0 \n \0 \0 \0 002 @
0031200 006 \0 \0 A 024 006 A 020 \0 N I L \r ( 3
0031220 E N V I R O N M E N T ) \r ( ) \r
0031240 ( R E M P R O P ( Q U O T E
0031260 E N V I R O N M E N T - P A R E
0031300 N T ) ( Q U O T E S E T F -
0031320 M E T H O D - E X P A N D E R )
0031340 ) \r ( P U T P R O P S E N V I
0031360 R O N M E N T - P A R E N T S
0031400 E T F - I N V E R S E % % S E
0031420 T F - E N V I R O N M E N T - P
0031440 A R E N T ) \r % % S E T F - E N
0031460 V I R O N M E N T - P A R E N T
0031500 D 1 \r ( L ( 1 V A L U E
0031520 0 E N V I R O N M E N T ) )
0031540 \0 \n \0 \0 \0 002 @ 006 \0 \0 A 024 \b A 020 \0
0031560 N I L \r ( 3 E N V I R O N M E
0031600 N T ) \r ( ) \r ( R E M P R O P
0031620 ( Q U O T E E N V I R O N M E
0031640 N T - M A C R O S ) ( Q U O T
0031660 E S E T F - M E T H O D - E X
0031700 P A N D E R ) ) \r ( P U T P R O
0031720 P S E N V I R O N M E N T - M
0031740 A C R O S S E T F - I N V E R
0031760 S E % % S E T F - E N V I R O
0032000 N M E N T - M A C R O S ) \r % %
0032020 S E T F - E N V I R O N M E N T
0032040 - M A C R O S D 1 \r ( L ( 1
0032060 V A L U E 0 E N V I R O N
0032100 M E N T ) ) \0 \n \0 \0 \0 002 @ 006 \0
0032120 \0 A 024 \n A 020 \0 N I L \r ( 3 E N
0032140 V I R O N M E N T ) \r ( ) \r M A
0032160 K E - E N V I R O N M E N T D
0032200 1 \r ( L ( 0 - a r g s - ) )
0032220 001 B 022 \0 002 \0 e 021 001 \0 H k 021 002 002
0032240 J d I 363 242 261 \0 254 277 h 022 021 361 020 021 020
0032260 021 H k 273 272 K d J 363 242 261 \0 254 277 h 274
0032300 H k 276 275 N d M 363 242 261 \0 262 277 h _ 016
0032320 277 H k _ 022 277 _ 020 277 O 022 d O 020 363 242
0032340 261 \0 260 277 h _ 024 277 H k _ 030 277 _ 026 277
0032360 O 030 d O 026 363 242 261 \0 261 277 h _ 032 277 H
0032400 k _ 036 277 _ 034 277 O 036 d O 034 363 242 261 \0
0032420 262 277 h _ 277 ` \0 \0 037 _ " 006 \0 \0 I
0032440 024 \0 O " 006 \0 \0 L 024 002 O " 006 \0 \0 O
0032460 016 024 004 O " 006 \0 \0 O 024 024 006 O " 006 \0
0032500 \0 O 032 024 \b O " 006 \0 \0 O 024 \n O "
0032520 020 a g \0 \0 360 226 J k 330 a 261 377 O J l
0032540 002 324 Z 261 377 > a g \0 \0 360 226 K k 330 a
0032560 261 377 O K l 002 324 [ 261 377 > a g \0 \0 360
0032600 226 N k 330 a 261 377 I N l 002 324 ^ 261 377 8
0032620 a g \0 \0 360 227 O 022 k 330 a 261 377 J O 022
0032640 l 002 324 _ 022 261 377 6 a g \0 \0 360 227 O 030
0032660 k 330 a 261 377 I O 030 l 002 324 _ 030 261 377 5
0032700 a g \0 \0 360 227 O 036 k 330 a 261 377 H O 036
0032720 l 002 324 _ 036 261 377 4 \0 N I L \r ( 3 0
0032740 0 : M A C R O S 2 7 6 : P
0032760 A R E N T 2 5 2 : T A G S
0033000 2 3 1 : B L O C K S 2 1 0
0033020 : F U N C T I O N S 1 8 9 :
0033040 V A R S 1 7 8 E N V I R O N
0033060 M E N T 1 6 9 E N V I R O N
0033100 M E N T 1 6 0 E N V I R O N
0033120 M E N T 1 5 1 E N V I R O N
0033140 M E N T 1 4 3 E N V I R O N
0033160 M E N T 1 3 5 E N V I R O N
0033200 M E N T 1 2 9 | 004 003 E N V I
0033220 R O N M E N T T Y P E # | ) \r (
0033240 ) \r C O P Y - E N V I R O N M E
0033260 N T D 1 \r ( L ( 0 E N V I
0033300 R O N M E N T ) ) \0 [ 001 \0 \0 001
0033320 @ 021 001 \0 H 303 \0 \0 262 B 023 ` \0 \0 037 021
0033340 001 \0 H 006 \0 \0 @ 311 \0 024 \0 H 006 \0 \0 @
0033360 311 002 024 002 H 006 \0 \0 @ 311 004 024 004 H 006 \0
0033400 \0 @ 311 006 024 006 H 006 \0 \0 @ 311 \b 024 \b H
0033420 006 \0 \0 @ 311 \n 024 \n H 020 i g \0 \0 H g
0033440 \0 \0 \f \0 \0 b \0 023 260 250 \0 ( 8 4 C
0033460 H E C K - T Y P E - F A I L ) \r
0033500 ( 8 1 E N V I R O N M E N T
0033520 7 7 E N V I R O N M E N T 6
0033540 6 E N V I R O N M E N T 5 7
0033560 E N V I R O N M E N T 4 8
0033600 E N V I R O N M E N T 3 9 E
0033620 N V I R O N M E N T 3 0 E N
0033640 V I R O N M E N T 2 1 E N V
0033660 I R O N M E N T 1 3 | 004 003 E
0033700 N V I R O N M E N T T Y P E # |
0033720 7 E N V I R O N M E N T ) \r
0033740 ( ) \r ( D E F P R I N T ( Q U
0033760 O T E E N V I R O N M E N T )
0034000 ( Q U O T E D E F A U L T -
0034020 S T R U C T U R E - P R I N T E
0034040 R ) ) \r ( S E T - P A R S E D -
0034060 S T R U C T U R E ( Q U O T E
0034100 E N V I R O N M E N T ) ( Q
0034120 U O T E ( P S E N V I R O N
0034140 M E N T M A K E - E N V I R O
0034160 N M E N T ( V A R S F U N C
0034200 T I O N S \r B L O C K S T A
0034220 G S P A R E N T M A C R O S
0034240 ) D A T A T Y P E N I L N
0034260 I L E N V I R O N M E N T -
0034300 ( M A K E - E N V I R O N M E N
0034320 T ) E N V I R O N M E N T - P
0034340 \r D E F A U L T - S T R U C T
0034360 U R E - P R I N T E R C O P Y
0034400 - E N V I R O N M E N T N I L
0034420 0 ( ( V A R S N I L T
0034440 N I L ( E N V I R O N M E N T
0034460 0 P O I N T E R ) \r E N V
0034500 I R O N M E N T - V A R S ) (
0034520 F U N C T I O N S N I L T
0034540 N I L ( E N V I R O N M E N T
0034560 2 P O I N T E R ) E N V I
0034600 R O N M E N T - F U N C T I O N
0034620 S ) ( B L O C K S N I L T
0034640 \r N I L ( E N V I R O N M E
0034660 N T 4 P O I N T E R ) E N
0034700 V I R O N M E N T - B L O C K S
0034720 ) ( T A G S N I L T N I
0034740 L ( E N V I R O N M E N T 6
0034760 P O I N T E R ) \r E N V I R
0035000 O N M E N T - T A G S ) ( P A
0035020 R E N T N I L T N I L (
0035040 E N V I R O N M E N T 8 P O
0035060 I N T E R ) E N V I R O N M E
0035100 N T - P A R E N T ) ( M A C R
0035120 O S N I L T N I L ( \r E
0035140 N V I R O N M E N T 1 0 P O
0035160 I N T E R ) E N V I R O N M E
0035200 N T - M A C R O S ) ) ( ( V A
0035220 R S N I L T N I L ( E N
0035240 V I R O N M E N T 0 P O I N
0035260 T E R ) E N V I R O N M E N T
0035300 - V A R S \r ) ( F U N C T I O
0035320 N S N I L T N I L ( E N
0035340 V I R O N M E N T 2 P O I N
0035360 T E R ) E N V I R O N M E N T
0035400 - F U N C T I O N S ) ( B L O
0035420 C K S N I L T N I L ( E
0035440 N V I R O N M E N T 4 \r P O
0035460 I N T E R ) E N V I R O N M E
0035500 N T - B L O C K S ) ( T A G S
0035520 N I L T N I L ( E N V I
0035540 R O N M E N T 6 P O I N T E
0035560 R ) E N V I R O N M E N T - T
0035600 A G S ) ( P A R E N T N I L
0035620 T \r N I L ( E N V I R O N
0035640 M E N T 8 P O I N T E R )
0035660 E N V I R O N M E N T - P A R E
0035700 N T ) ( M A C R O S N I L
0035720 T N I L ( E N V I R O N M E
0035740 N T 1 0 P O I N T E R ) \r
0035760 E N V I R O N M E N T - M A C R
0036000 O S ) ) N I L " A n e n v
0036020 i r o n m e n t u s e d b o
0036040 t h b y i n t e r p r e t e
0036060 r a n d m a c r o e x p a
0036100 n d e r " ( P O I N T E R P
0036120 O I N T E R \r P O I N T E R
0036140 P O I N T E R P O I N T E R
0036160 P O I N T E R ) ) ) ) \r C L : E
0036200 V A L D 1 \r ( L ( 1 E N V
0036220 I R O N M E N T 0 E X P R E
0036240 S S I O N ) ) 001 # \a \0 \0 002 @ 021
0036260 a 006 H d 303 \0 \0 262 R 277 @ d 242 261 001 022
0036300 d i 360 221 i 020 \t \0 \0 221 @ 020 A 262 024 @
0036320 A \t \0 \0 026 265 \n A \t \0 \0 b 002 260 360 002
0036340 020 @ / Y 311 \0 Z d g \0 \0 360 262 034 277 I
0036360 322 l 002 \n \0 \0 ` \0 \0 322 360 232 g \0 \0 g
0036400 \0 \0 @ \v \0 \0 020 J 020 303 \0 \0 242 261 \0 226
0036420 @ d 001 003 262 - 277 k 273 @ 002 260 032 d 001 A
0036440 \n \0 \0 375 002 K k 330 [ n 002 \0 361 226 h l
0036460 4 \n \0 \0 277 265 350 K @ 001 A \v \0 \0 020 016
0036500 020 001 \t \0 \0 ^ j : 245 N l 002 : 262 ' j
0036520 274 @ 002 260 032 d 001 A \n \0 \0 375 002 L k 330
0036540 \ n 002 \0 361 226 h l 4 \n \0 \0 277 265 350 L
0036560 @ 001 016 020 @ 001 301 002 311 \0 g \0 \0 ' ] 227
0036600 @ 002 A l 002 M 016 020 @ 001 A \n \0 \0 232 @
0036620 A \n \0 \0 b \0 023 261 377 027 o \0 \0 \0 @ \n
0036640 \0 \0 020 H 3 020 222 261 377 # H \t \0 \0 222 261
0036660 377 033 H 303 \0 \0 222 261 377 023 H \t \0 \0 222 261
0036700 377 \v o \0 \0 \0 o \0 \0 \0 @ \v \0 \0 @ 020
0036720 \0 ( 2 8 7 C L : C E R R O R
0036740 2 7 1 C L : B I T - V E C T O
0036760 R - P 2 5 5 C L : S T R I N
0037000 G P 2 4 3 E R R O R 2 2 9
0037020 C L : M A C R O E X P A N D -
0037040 1 2 2 3 C L : M A C R O - F
0037060 U N C T I O N 1 8 9 \ L I S
0037100 P E R R O R 1 7 2 C L : E V
0037120 A L 1 5 0 A R G T Y P E 1
0037140 4 3 E V A L - I N V O K E - L
0037160 A M B D A 1 3 3 \ L I S P E
0037200 R R O R 1 1 6 C L : E V A L
0037220 8 7 C L : E R R O R 7 1
0037240 C L : F L O O R 4 4 E N V I
0037260 R O N M E N T - P A R E N T 3
0037300 7 E N V I R O N M E N T - V A
0037320 R S 2 6 C L : K E Y W O R D
0037340 P ) \r ( 2 6 3 C H A R A C T E
0037360 R 2 0 6 S P E C I A L - F O
0037400 R M 9 3 L I S T P 8 3 :
0037420 N A M E 8 0 U N B O U N D -
0037440 V A R I A B L E 7 4 \ V A L
0037460 S P A C E 6 0 N O B I N D
0037500 8 L I T A T O M ) \r ( 2 8 3
0037520 " ~ s i n v a l i d f o r
0037540 m f o r E V A L . " 2 7 9
0037560 " r e t u r n t h e e x p
0037600 r e s s i o n a s i t s o
0037620 w n v a l u e " 2 3 9 " U
0037640 n d e f i n e d c a r o f
0037660 f o r m " ) \r E V A L - I N V O
0037700 K E - L A M B D A D 1 \r ( L
0037720 ( 2 E N V I R O N M E N T 1
0037740 L A M 0 N ) ) \0 a 005 \0 \0
0037760 003 k d f 321 310 004 @ k 325 b \0 d 324 325 321
0040000 021 A 004 A 002 002 B \n \0 \0 \t \0 \0 Y 001 272
0040020 I 002 001 273 o \0 \0 \0 A 001 \ d g \0 \0 360
0040040 225 277 g \0 \0 260 030 g \0 \0 360 264 006 g \0 \0
0040060 213 o \0 \0 \0 L o \0 \0 \0 \f \0 \0 A 002 001
0040100 K g \0 \0 B \n \0 \0 J H @ j \r \t \0 \0
0040120 020 \0 ( 9 4 \ I N T E R P R E T
0040140 - A R G U M E N T S 8 6 M A
0040160 K E - E N V I R O N M E N T 7
0040200 5 E C A S E - F A I L 2 7
0040220 \ M V L I S T 2 4 P A R S E
0040240 - B O D Y ) \r ( 8 2 : P A R E
0040260 N T 6 2 & R E Q U I R E D
0040300 5 6 C L : L A M B D A 5 1
0040320 & I N T E R L I S P 4 5 L A
0040340 M B D A ) \r ( 7 2 ( L A M B
0040360 D A C L : L A M B D A ) 6 7
0040400 ( C A R L A M ) 3 8 " a
0040420 L A M B D A a s t h e C
0040440 A R o f a f o r m " ) \r \
0040460 I N T E R P R E T - A R G U M E
0040500 N T S A 0 0 0 1 D 1 \r ( F 0
0040520 \ F N - N A M E F 1 \ A
0040540 R G L I S T F 2 \ I N D E
0040560 X F 3 \ D E C L A R A T I
0040600 O N S F 4 \ E N V I R O N
0040620 M E N T F 5 \ B O D Y F
0040640 6 \ A R G U M E N T - B L O
0040660 C K F 7 \ L E N G T H )
0040700 \0 022 \0 \b \0 \0 P g \0 \0 Q S T U V W
0040720 016 R \r \t \0 \0 020 \0 ( 1 5 \ I N T
0040740 E R P R E T - A R G U M E N T S
0040760 ) \r ( 3 & R E Q U I R E D ) \r
0041000 ( ) \r \ I N T E R P R E T - A R
0041020 G U M E N T S A 0 0 0 2 A 0 0 0
0041040 3 D 1 \r ( F 0 \ F N - N A
0041060 M E F 1 \ A R G L I S T
0041100 F 2 \ I N D E X F 3 \
0041120 D E C L A R A T I O N S F 4
0041140 \ E N V I R O N M E N T F
0041160 5 \ B O D Y F 6 \ A R G
0041200 U M E N T - B L O C K F 7
0041220 \ L E N G T H ) \0 022 \0 \b \0 \0 P
0041240 g \0 \0 Q S T U V W 016 R \r \t \0 \0 020
0041260 \0 ( 1 5 \ I N T E R P R E T -
0041300 A R G U M E N T S ) \r ( 3 & O
0041320 P T I O N A L ) \r ( ) \r \ I N T
0041340 E R P R E T - A R G U M E N T S
0041360 A 0 0 0 2 D 1 \r ( F 2 S V
0041400 A R F 3 \ D E C L A R A T
0041420 I O N S F 4 \ E N V I R O
0041440 N M E N T F 5 \ F N - N A
0041460 M E F 6 \ A R G L I S T
0041500 F 7 \ L E N G T H F 8
0041520 \ I N D E X F 9 \ B O D Y
0041540 F 1 0 \ A R G U M E N T -
0041560 B L O C K F 1 1 S P ) \0
0041600 a 002 \n \0 \0 R 265 026 U g \0 \0 V S T W
0041620 022 W 024 W 016 W 020 \r \t \0 \0 020 \t \0 \0 R
0041640 S \n \0 \0 251 R 301 002 311 \0 g \0 \0 ' 235 R
0041660 h 032 W 026 h 032 g \0 \0 \v \0 \0 020 T 021 021
0041700 001 R W 026 032 H \t \0 \0 032 271 H I \n \0 \0
0041720 023 U g \0 \0 V S T W 022 W 024 W 016 W 020
0041740 \r \t \0 \0 020 \0 ( 9 4 \ I N T E R
0041760 P R E T - A R G U M E N T S 7
0042000 4 % % S E T F - E N V I R O N
0042020 M E N T - V A R S 6 7 E N V
0042040 I R O N M E N T - V A R S 5 4
0042060 \ D O . P R O G V 3 0 D E
0042100 C L A R E D - S P E C I A L 2
0042120 5 C H E C K - B I N D A B L E
0042140 2 1 \ I N T E R P R E T - A
0042160 R G U M E N T S ) \r ( 7 9 & O
0042200 P T I O N A L 5 1 \ I N T E
0042220 R P R E T - A R G U M E N T S A
0042240 0 0 0 2 A 0 0 0 3 3 9 G L O
0042260 B A L L Y - S P E C I A L 6
0042300 & O P T I O N A L ) \r ( ) \r \ I
0042320 N T E R P R E T - A R G U M E N
0042340 T S A 0 0 0 4 D 1 \r ( F 0
0042360 \ F N - N A M E F 1 \ A R
0042400 G L I S T F 2 \ I N D E X
0042420 F 3 \ D E C L A R A T I O
0042440 N S F 4 \ E N V I R O N M
0042460 E N T F 5 \ B O D Y F
0042500 6 \ A R G U M E N T - B L O C
0042520 K F 7 \ L E N G T H ) \0
0042540 022 \0 \b \0 \0 P g \0 \0 Q S T U V W 016
0042560 R \r \t \0 \0 020 \0 ( 1 5 \ I N T E
0042600 R P R E T - A R G U M E N T S )
0042620 \r ( 3 & O P T I O N A L ) \r (
0042640 ) \r \ I N T E R P R E T - A R G
0042660 U M E N T S A 0 0 0 5 D 1 \r (
0042700 F 0 \ F N - N A M E F 1
0042720 \ A R G L I S T F 2 \ I
0042740 N D E X F 3 \ D E C L A R
0042760 A T I O N S F 4 \ E N V I
0043000 R O N M E N T F 5 \ B O D
0043020 Y F 6 \ A R G U M E N T -
0043040 B L O C K F 7 \ L E N G T
0043060 H ) \0 022 \0 \b \0 \0 P g \0 \0 Q S T
0043100 U V W 016 R \r \t \0 \0 020 \0 ( 1 5 \
0043120 I N T E R P R E T - A R G U M E
0043140 N T S ) \r ( 3 & I N T E R L I
0043160 S P ) \r ( ) \r \ I N T E R P R E
0043200 T - A R G U M E N T S A 0 0 0 6
0043220 D 1 \r ( F 0 \ A R G L I S
0043240 T F 1 \ F N - N A M E F
0043260 2 \ I N D E X F 3 \ D
0043300 E C L A R A T I O N S F 4
0043320 \ E N V I R O N M E N T F 5
0043340 \ B O D Y F 6 \ A R G U
0043360 M E N T - B L O C K F 7 \
0043400 L E N G T H ) \0 V \0 \b \0 \0 P 265
0043420 023 Q g \0 \0 P S T U V W 016 R \r \t \0
0043440 \0 020 001 P 002 c \0 277 d g \0 \0 360 262 024 277
0043460 Q g \0 \0 P S T U V W 016 R \r \t \0 \0
0043500 020 g \0 \0 360 262 023 Q g \0 \0 P S T U V
0043520 W 016 R \r \t \0 \0 020 g \0 \0 g \0 \0 Q \v
0043540 \0 \0 020 \0 ( 8 3 C L : E R R O R
0043560 7 2 \ I N T E R P R E T - A
0043600 R G U M E N T S 4 9 \ I N T
0043620 E R P R E T - A R G U M E N T S
0043640 1 8 \ I N T E R P R E T - A
0043660 R G U M E N T S ) \r ( 7 9 : C
0043700 A L L E E 7 6 I N V A L I D
0043720 - A R G U M E N T - L I S T 6
0043740 0 & K E Y 5 3 & K E Y 3
0043760 7 & A U X 2 9 & A U X 6
0044000 & B O D Y ) \r ( ) \r \ I N T E
0044020 R P R E T - A R G U M E N T S A
0044040 0 0 0 7 A 0 0 0 8 D 1 \r ( F
0044060 0 \ F N - N A M E F 1 \
0044100 A R G T Y P E F 2 \ A R G
0044120 L I S T F 3 \ A R G U M E
0044140 N T - B L O C K F 4 \ D E
0044160 C L A R A T I O N S F 5 \
0044200 L E N G T H F 6 \ E N V I
0044220 R O N M E N T F 7 \ B O D
0044240 Y F 8 \ I N D E X ) \0 021
0044260 \0 \t \0 \0 P Q R T V W 016 S U W 020 \r
0044300 \t \0 \0 020 \0 ( 1 4 \ I N T E R P
0044320 R E T - A R G U M E N T S ) \r N
0044340 I L \r ( ) \r \ I N T E R P R E T
0044360 - A R G U M E N T S A 0 0 0 7
0044400 D 1 \r ( F 2 S V A R F 3
0044420 \ D E C L A R A T I O N S F
0044440 4 \ E N V I R O N M E N T
0044460 F 5 \ F N - N A M E F 6
0044500 \ A R G T Y P E F 7 \ L
0044520 E N G T H F 8 \ A R G L I
0044540 S T F 9 \ I N D E X F
0044560 1 0 \ B O D Y F 1 1 \ A
0044600 R G U M E N T - B L O C K F
0044620 1 2 S P ) \0 _ 002 \v \0 \0 R 265 025
0044640 U V W 020 S T W 024 W 026 W 016 W 022 \r \t
0044660 \0 \0 020 \t \0 \0 R S \n \0 \0 251 R 301 002 311
0044700 \0 g \0 \0 ' 235 R h 032 W 030 h 032 g \0 \0
0044720 \v \0 \0 020 T 021 021 001 R W 030 032 H \t \0 \0
0044740 032 271 H I \n \0 \0 023 U V W 020 S T W 024
0044760 W 026 W 016 W 022 \r \t \0 \0 020 \0 ( 9 2
0045000 \ I N T E R P R E T - A R G U M
0045020 E N T S 7 3 % % S E T F - E
0045040 N V I R O N M E N T - V A R S
0045060 6 6 E N V I R O N M E N T - V
0045100 A R S 5 3 \ D O . P R O G V
0045120 2 9 D E C L A R E D - S P E
0045140 C I A L 2 4 C H E C K - B I
0045160 N D A B L E 2 0 \ I N T E R
0045200 P R E T - A R G U M E N T S ) \r
0045220 ( 5 0 \ I N T E R P R E T - A
0045240 R G U M E N T S A 0 0 0 7 A 0 0
0045260 0 8 3 8 G L O B A L L Y - S
0045300 P E C I A L ) \r ( ) \r \ I N T E
0045320 R P R E T - A R G U M E N T S A
0045340 0 0 0 9 D 1 \r ( F 0 \ F N
0045360 - N A M E F 1 \ A R G T Y
0045400 P E F 2 \ A R G L I S T
0045420 F 3 \ A R G U M E N T - B L
0045440 O C K F 4 \ D E C L A R A
0045460 T I O N S F 5 \ L E N G T
0045500 H F 6 \ E N V I R O N M E
0045520 N T F 7 \ B O D Y F 8
0045540 \ I N D E X ) \0 021 \0 \t \0 \0 P
0045560 Q R T V W 016 S U W 020 \r \t \0 \0 020 \0
0045600 ( 1 4 \ I N T E R P R E T - A
0045620 R G U M E N T S ) \r N I L \r ( )
0045640 \r \ I N T E R P R E T - A R G U
0045660 M E N T S A 0 0 1 0 D 1 \r ( F
0045700 0 \ F N - N A M E F 1
0045720 \ A R G L I S T F 2 \ I N
0045740 D E X F 3 \ D E C L A R A
0045760 T I O N S F 4 \ E N V I R
0046000 O N M E N T F 5 \ B O D Y
0046020 F 6 \ A R G U M E N T - B
0046040 L O C K F 7 \ L E N G T H
0046060 ) \0 022 \0 \b \0 \0 P g \0 \0 Q S T U
0046100 V W 016 R \r \t \0 \0 020 \0 ( 1 5 \ I
0046120 N T E R P R E T - A R G U M E N
0046140 T S ) \r ( 3 & A U X ) \r ( ) \r
0046160 \ I N T E R P R E T - A R G U M
0046200 E N T S A 0 0 1 1 D 1 \r ( F
0046220 0 \ B O D Y F 1 \ E N V
0046240 I R O N M E N T ) \0 \b \0 002 \0 \0
0046260 P 002 Q \n \0 \0 020 \0 ( 5 E V A L -
0046300 P R O G N ) \r N I L \r ( ) \r \ I
0046320 N T E R P R E T - A R G U M E N
0046340 T S D 1 \r ( P 3 S P P
0046360 2 S V A R I 8 \ I N D E
0046400 X I 7 \ L E N G T H I
0046420 6 \ A R G U M E N T - B L O C
0046440 K I 5 \ B O D Y I 4
0046460 \ E N V I R O N M E N T I 3
0046500 \ D E C L A R A T I O N S I
0046520 2 \ A R G L I S T I 1
0046540 \ A R G T Y P E I 0 \ F N
0046560 - N A M E ) 005 j 034 \0 \0 \t 021 360 016
0046600 021 220 027 A d g \0 \0 360 262 ' 277 B 265 b G
0046620 016 G 020 363 242 261 005 , g \0 \0 g \0 \0 @ g
0046640 \0 \0 G 016 g \0 \0 G 020 \r \a \0 \0 261 005 023
0046660 g \0 \0 360 263 K A d g \0 \0 360 232 277 B 265
0046700 003 202 261 002 212 261 004 374 g \0 \0 360 222 261 001 3
0046720 A d g \0 \0 360 223 277 261 001 x g \0 \0 360 222
0046740 261 003 221 A g \0 \0 360 242 261 001 } 261 004 325 001
0046760 B 002 b 004 277 X ^ d g \0 \0 360 262 + 277 B
0047000 265 003 202 261 \0 354 G 016 G 020 363 242 261 004 265 g
0047020 \0 \0 g \0 \0 @ g \0 \0 G 016 g \0 \0 G 020
0047040 \r \a \0 \0 261 004 234 g \0 \0 360 222 261 \0 324 N
0047060 d g \0 \0 360 223 277 261 003 : g \0 \0 360 222 261
0047100 001 021 G 016 G 020 363 263 ( g \0 \0 g \0 \0 @
0047120 g \0 \0 G 016 g \0 \0 G 020 B j 021 022 032 O
0047140 0 003 265 ? O 2 022 k 324 324 \r \a \0 \0 277 F
0047160 G 020 d k 324 b 020 277 340 320 311 \0 Y H \t \0
0047200 \0 H d C \n \0 \0 254 277 H 301 002 311 \0 g \0
0047220 \0 ' 262 > H h 032 I h 032 g \0 \0 \v \0 \0
0047240 020 001 _ 4 g \0 \0 360 263 274 O 4 g \0 \0 360
0047260 263 264 O 4 g \0 \0 360 263 254 O 4 g \0 \0 360
0047300 263 244 O 2 k 324 _ 2 277 O 0 002 _ 0 260 223
0047320 D 275 H I 032 M \t \0 \0 032 274 M L \n \0 \0
0047340 277 @ g \0 \0 b 002 277 b \0 023 023 261 376 221 001
0047360 B 002 b 004 277 X _ 026 d g \0 \0 360 262 C 277
0047400 B 001 B 002 b 004 277 270 G 020 021 1 033 G 016 O
0047420 0 363 222 261 001 241 O 2 022 271 H \t \0 \0 H d
0047440 C \n \0 \0 256 277 H 301 002 311 \0 g \0 \0 ' 242
0047460 261 001 255 H h 032 I h 032 g \0 \0 \v \0 \0 020
0047500 g \0 \0 360 222 261 002 , O 026 g \0 \0 360 262 +
0047520 G 016 G 020 325 k 345 j 360 247 o \0 \0 \0 \t \0
0047540 \0 277 B b 002 277 B 265 003 202 261 001 325 A F G
0047560 016 G 020 \f \0 \0 261 003 J G 016 G 020 363 263 035
0047600 H 003 264 026 H 002 001 D \n \0 \0 271 H 002 002 001
0047620 272 H 001 270 h 273 260 030 271 260 025 H 003 265 5 F
0047640 G 020 340 320 311 \0 271 G 020 k 324 b 020 277 H \t
0047660 \0 \0 H d C \n \0 \0 254 277 H 301 002 311 \0 g
0047700 \0 \0 ' 262 032 H h 032 I h 032 g \0 \0 \v \0
0047720 \0 020 002 002 001 272 i 273 H 001 270 260 304 D _ 020
0047740 277 H I 032 O 020 \t \0 \0 032 _ 016 277 O 020 O
0047760 016 \n \0 \0 277 J 265 020 @ g \0 \0 b 002 277 b
0050000 \0 023 023 261 375 z \t \0 \0 J C \n \0 \0 251 J
0050020 301 002 311 \0 g \0 \0 ' 234 J h 032 K h 032 g
0050040 \0 \0 \v \0 \0 020 D _ 024 277 J K 032 O 024 \t
0050060 \0 \0 032 _ 022 277 O 024 O 022 \n \0 \0 277 @ g
0050100 \0 \0 b 002 277 b \0 023 023 261 375 4 001 B 002 b
0050120 004 277 X G 016 G 020 363 242 h 271 216 F G 020 340
0050140 320 311 \0 271 G 020 k 324 b 020 277 H \t \0 \0 H
0050160 d C \n \0 \0 253 277 H 301 002 311 \0 g \0 \0 '
0050200 234 H h 032 I h 032 g \0 \0 \v \0 \0 020 D _
0050220 032 277 H I 032 O 032 \t \0 \0 032 _ 030 277 O 032
0050240 O 030 \n \0 \0 277 @ g \0 \0 b 002 277 b \0 023
0050260 023 261 374 314 F O 0 340 320 311 \0 _ 6 277 O 4
0050300 265 025 O 6 h 032 _ 4 _ 2 277 O 0 k 324 _
0050320 0 277 261 376 ; O 6 & _ 4 277 260 360 D _ 036
0050340 277 H I 032 O 036 \t \0 \0 032 _ 034 277 O 036 O
0050360 034 \n \0 \0 277 B 265 020 @ g \0 \0 b 002 277 b
0050400 \0 023 023 261 374 z 001 B 002 b 004 277 d g \0 \0
0050420 360 236 277 @ g \0 \0 b 002 277 b \0 023 023 261 374
0050440 _ g \0 \0 360 235 @ g \0 \0 b 002 277 b \0 023
0050460 023 261 374 L g \0 \0 g \0 \0 @ \v \0 \0 020 001
0050500 B 002 b 004 277 X d g \0 \0 360 234 277 A F G
0050520 016 G 020 \f \0 \0 277 260 032 g \0 \0 360 262 036 B
0050540 265 005 261 001 _ 001 B 002 b 004 277 g \0 \0 360 262
0050560 305 B 265 003 202 261 \0 333 261 001 I H 003 264 017 H
0050600 002 001 271 H 002 002 001 272 H 001 X 202 Z 271 H 003
0050620 226 H 001 H 002 001 270 203 H \t \0 \0 _ " 277 G
0050640 020 _ 277 G 016 O 363 262 F O 340 320
0050660 311 \0 O " 360 233 F O k 324 340 320 311 \0 271
0050700 i 215 O l 002 324 260 332 I D \n \0 \0 271 h
0050720 273 H \t \0 \0 H d C \n \0 \0 253 277 H 301 002
0050740 311 \0 g \0 \0 ' 234 H h 032 I h 032 g \0 \0
0050760 \v \0 \0 020 D _ & 277 H I 032 O & \t \0 \0
0051000 032 _ $ 277 O & O $ \n \0 \0 277 J 265 \a 023
0051020 023 261 373 l \t \0 \0 J C \n \0 \0 251 J 301 002
0051040 311 \0 g \0 \0 ' 234 J h 032 K h 032 g \0 \0
0051060 \v \0 \0 020 D _ * 277 J K 032 O * \t \0 \0
0051100 032 _ ( 277 O * O ( \n \0 \0 023 023 261 373 0
0051120 001 B 002 b 004 277 X d 003 264 016 d 002 001 D \n
0051140 \0 \0 271 H 001 X 201 271 H \t \0 \0 H d C \n
0051160 \0 \0 253 277 H 301 002 311 \0 g \0 \0 ' 234 H h
0051200 032 I h 032 g \0 \0 \v \0 \0 020 D _ . 277 H
0051220 I 032 O . \t \0 \0 032 _ , 277 O . O , \n
0051240 \0 \0 277 @ g \0 \0 b 002 277 b \0 023 023 261 372
0051260 317 D \n \0 \0 020 001 E 002 b \n 277 D \n \0 \0
0051300 277 E d 002 263 362 001 b \n d 003 262 346 d 001 g
0051320 \0 \0 360 262 336 277 D E 002 b \n \n \0 \0 D g
0051340 \0 \0 \n \0 \0 020 \0 ( 1 3 8 3 \ C A
0051360 T C H - F U N C A L L 1 3 7 6
0051400 % % S E T F - E N V I R O N M
0051420 E N T - B L O C K S 1 3 4 6
0051440 C L : E V A L 1 3 3 5 C L :
0051460 E V A L 1 3 1 6 % % S E T F
0051500 - E N V I R O N M E N T - V A R
0051520 S 1 3 0 5 E N V I R O N M E
0051540 N T - V A R S 1 2 9 2 \ D O
0051560 . P R O G V 1 2 6 8 D E C L
0051600 A R E D - S P E C I A L 1 2 6
0051620 2 C H E C K - B I N D A B L E
0051640 1 2 5 2 C L : E V A L 1 2
0051660 2 9 % % S E T F - E N V I R O
0051700 N M E N T - V A R S 1 2 1 8
0051720 E N V I R O N M E N T - V A R S
0051740 1 2 0 5 \ D O . P R O G V
0051760 1 1 8 2 D E C L A R E D - S P
0052000 E C I A L 1 1 7 7 C H E C K
0052020 - B I N D A B L E 1 1 6 5 %
0052040 % S E T F - E N V I R O N M E N
0052060 T - V A R S 1 1 5 4 E N V I
0052100 R O N M E N T - V A R S 1 1 4
0052120 1 \ D O . P R O G V 1 1 1 7
0052140 D E C L A R E D - S P E C I A
0052160 L 1 1 1 1 C H E C K - B I N
0052200 D A B L E 1 1 0 4 C L : E V
0052220 A L 1 0 5 4 M A K E - K E Y
0052240 W O R D 9 8 4 C H E C K - K
0052260 E Y W O R D S 9 6 0 C L : E
0052300 R R O R 8 8 6 % % S E T F -
0052320 E N V I R O N M E N T - V A R S
0052340 8 7 5 E N V I R O N M E N T
0052360 - V A R S 8 0 7 % % S E T F
0052400 - E N V I R O N M E N T - V A R
0052420 S 7 9 6 E N V I R O N M E N
0052440 T - V A R S 7 8 3 \ D O . P
0052460 R O G V 7 5 9 D E C L A R E
0052500 D - S P E C I A L 7 5 3 C H
0052520 E C K - B I N D A B L E 7 0 3
0052540 % % S E T F - E N V I R O N M
0052560 E N T - V A R S 6 9 2 E N V
0052600 I R O N M E N T - V A R S 6 7
0052620 9 \ D O . P R O G V 6 5 6
0052640 D E C L A R E D - S P E C I A L
0052660 6 5 1 C H E C K - B I N D A
0052700 B L E 6 3 0 % % S E T F - E
0052720 N V I R O N M E N T - V A R S
0052740 6 1 9 E N V I R O N M E N T -
0052760 V A R S 5 9 5 \ D O . P R O
0053000 G V 5 7 0 D E C L A R E D -
0053020 S P E C I A L 5 6 4 C H E C
0053040 K - B I N D A B L E 5 2 5 C
0053060 L : E V A L 5 0 4 C H E C K
0053100 - K E Y W O R D S 4 8 3 C L
0053120 : E R R O R 4 4 9 \ D O . P
0053140 R O G V 4 2 2 D E C L A R E
0053160 D - S P E C I A L 4 1 6 C H
0053200 E C K - B I N D A B L E 3 5 4
0053220 % % S E T F - E N V I R O N M
0053240 E N T - V A R S 3 4 7 E N V
0053260 I R O N M E N T - V A R S 2 9
0053300 0 \ D O . P R O G V 2 6 5
0053320 D E C L A R E D - S P E C I A L
0053340 2 5 9 C H E C K - B I N D A
0053360 B L E 2 4 0 C L : E R R O R
0053400 1 6 6 C L : E R R O R 4 7
0053420 C L : E R R O R ) \r ( 1 3 8 0
0053440 \ I N T E R P R E T - A R G U
0053460 M E N T S A 0 0 1 1 1 3 6 4
0053500 C L : B L O C K 1 3 2 1 & A
0053520 U X 1 2 8 9 \ I N T E R P R
0053540 E T - A R G U M E N T S A 0 0 1
0053560 0 1 2 7 8 G L O B A L L Y -
0053600 S P E C I A L 1 2 0 2 \ I N
0053620 T E R P R E T - A R G U M E N T
0053640 S A 0 0 0 9 1 1 9 1 G L O B
0053660 A L L Y - S P E C I A L 1 1 3
0053700 8 \ I N T E R P R E T - A R G
0053720 U M E N T S A 0 0 0 7 1 1 2 7
0053740 G L O B A L L Y - S P E C I A
0053760 L 1 0 0 8 & A U X 9 9 0
0054000 & A L L O W - O T H E R - K E Y
0054020 S 9 7 2 & A U X 9 5 6 :
0054040 C A L L E E 9 5 3 I N V A L
0054060 I D - A R G U M E N T - L I S T
0054100 9 4 0 & K E Y 9 3 4 & K
0054120 E Y 9 2 1 & A U X 9 1 4
0054140 & A U X 8 9 4 & B O D Y 8
0054160 1 2 & I N T E R L I S P 7 8
0054200 0 \ I N T E R P R E T - A R G
0054220 U M E N T S A 0 0 0 5 7 6 9
0054240 G L O B A L L Y - S P E C I A L
0054260 7 0 8 & O P T I O N A L 6
0054300 7 6 \ I N T E R P R E T - A R
0054320 G U M E N T S A 0 0 0 4 6 6 5
0054340 G L O B A L L Y - S P E C I A
0054360 L 6 3 8 & O P T I O N A L
0054400 5 9 2 \ I N T E R P R E T - A
0054420 R G U M E N T S A 0 0 0 2 5 8
0054440 0 G L O B A L L Y - S P E C I
0054460 A L 4 6 3 & K E Y 4 5 3
0054500 & A U X 4 4 6 \ I N T E R P
0054520 R E T - A R G U M E N T S A 0 0
0054540 0 6 4 3 2 G L O B A L L Y -
0054560 S P E C I A L 3 8 2 & R E S
0054600 T 3 5 9 & R E Q U I R E D
0054620 3 2 1 & K E Y 3 1 3 & A U
0054640 X 3 0 5 & R E S T 2 9 7
0054660 & O P T I O N A L 2 8 7 \ I
0054700 N T E R P R E T - A R G U M E N
0054720 T S A 0 0 0 1 2 7 5 G L O B
0054740 A L L Y - S P E C I A L 2 1 8
0054760 : M I N I M U M 2 1 3 : A
0055000 C T U A L 2 0 9 : C A L L E
0055020 E 2 0 6 T O O - F E W - A R
0055040 G U M E N T S 1 9 1 & K E Y
0055060 1 8 2 & A U X 1 7 2 & R
0055100 E S T 1 6 0 : M A X I M U M
0055120 1 5 5 : A C T U A L 1 5 1
0055140 : C A L L E E 1 4 8 T O O
0055160 - M A N Y - A R G U M E N T S
0055200 1 2 5 & O P T I O N A L 1 0
0055220 5 & B O D Y 9 6 & A U X
0055240 8 7 & K E Y 7 7 & R E S T
0055260 6 1 & I N T E R L I S P 5
0055300 3 & O P T I O N A L 4 1 :
0055320 M A X I M U M 3 6 : A C T U
0055340 A L 3 2 : C A L L E E 2 9
0055360 T O O - M A N Y - A R G U M E
0055400 N T S 1 0 & R E Q U I R E D
0055420 ) \r ( 4 8 0 " N o t a n
0055440 e v e n n u m b e r o f a
0055460 r g u m e n t s f o r & K E
0055500 Y " ) \r \ I N T E R P R E T E R
0055520 - L A M B D A D 1 \r ( L ( 3
0055540 F N 2 E N V 1 D E F
0055560 0 N ) ) \0 M 004 \0 \0 004 k d f 021
0055600 001 \0 k H 321 312 001 360 j 360 224 H l 002 331 204
0055620 k H 321 310 \b 022 321 310 001 321 021 1 003 A 002 002
0055640 h \n \0 \0 \t \0 \0 Y 001 272 I 002 001 273 C g
0055660 \0 \0 A 002 001 K g \0 \0 B \n \0 \0 J H @
0055700 k 325 j \r \t \0 \0 020 \0 ( 7 4 \ I N
0055720 T E R P R E T - A R G U M E N T
0055740 S 6 4 M A K E - E N V I R O
0055760 N M E N T 4 2 \ M V L I S T
0056000 3 9 P A R S E - B O D Y ) \r
0056020 ( 6 0 : P A R E N T 5 3 &
0056040 R E Q U I R E D ) \r ( ) \r C H E
0056060 C K - B I N D A B L E D 1 \r (
0056100 L ( 0 V A R ) F 0 C L
0056120 : L A M B D A - L I S T - K E Y
0056140 W O R D S ) \0 I \0 001 \0 001 @ d 004
0056160 l 004 360 252 277 o \0 \0 \0 @ \n \0 \0 277 @ \t
0056200 \0 \0 246 @ d P 034 262 027 277 @ \t \0 \0 224 o
0056220 \0 \0 \0 203 o \0 \0 \0 @ \n \0 \0 277 @ 301 002
0056240 311 \0 g \0 \0 ' 233 o \0 \0 \0 o \0 \0 \0 @
0056260 \v \0 \0 @ 020 \0 ( 6 9 C L : C E R
0056300 R O R 4 6 C L : E R R O R
0056320 3 2 C L : K E Y W O R D P 2
0056340 0 C L : C O N S T A N T P 1
0056360 5 C L : E R R O R ) \r ( 5 5
0056400 G L O B A L V A R ) \r ( 6 5
0056420 " A t t e m p t t o b i n d
0056440 a v a r i a b l e p r o c
0056460 l a i m e d g l o b a l " 6
0056500 1 " G o a h e a d a n d
0056520 b i n d i t a n y w a y "
0056540 4 2 " a t t e m p t t o b
0056560 i n d a c o n s t a n t :
0056600 ~ A " \r 3 7 " a t t e m p t
0056620 t o b i n d a k e y w o
0056640 r d : ~ A " 1 1 " a t t e
0056660 m p t t o b i n d a n o
0056700 n - s y m b o l : ~ A " ) \r C
0056720 H E C K - K E Y W O R D S D 1
0056740 \r ( L ( 3 N 2 L E N G T
0056760 H 1 A R G B L O C K 0 K
0057000 E Y - A R G U M E N T S ) ) \0
0057020 W 004 \0 \0 004 021 @ 003 C 273 B K 363 262 B A
0057040 K 340 320 311 \0 Z g \0 \0 360 233 A K k 324 340
0057060 320 311 \0 262 " h 020 @ Y 230 I d 001 g \0 \0
0057100 360 223 277 J 270 216 001 d 003 224 001 d 003 220 001 \t
0057120 \0 \0 J 360 225 K l 002 324 260 300 I 002 260 333 H
0057140 264 \n o \0 \0 \0 H \n \0 \0 020 \0 ( 8 4
0057160 C L : E R R O R 6 0 M A K E
0057200 - K E Y W O R D ) \r ( 4 2 & A
0057220 U X 1 9 : A L L O W - O T H
0057240 E R - K E Y S ) \r ( 8 0 " K
0057260 e y w o r d a r g u m e n t
0057300 d o e s n ' t m a t c h e x
0057320 p e c t e d l i s t o f k
0057340 e y w o r d s : ~ A " ) \r e x
0057360 p a n d - A R G - R E F D 1 \r
0057400 ( L ( 1 $ $ M A C R O - E N
0057420 V I R O N M E N T 0 $ $ M A
0057440 C R O - F O R M ) ) \0 003 \0 \0
0057460 002 @ 002 021 ! 002 H 001 271 H 002 001 272 g \0 \0
0057500 I g \0 \0 J o \0 \0 \0 032 032 h 032 032 032 020
0057520 \0 N I L \r ( 1 8 L L S H 1 4
0057540 \ G E T B A S E P T R ) \r (
0057560 2 3 ( 1 ) ) \r ( S E T F - M A
0057600 C R O - F U N C T I O N ( Q U
0057620 O T E A R G - R E F ) ( Q U
0057640 O T E e x p a n d - A R G - R
0057660 E F ) ) \r ( P U T P R O P S .
0057700 C O M P I L E R - S P R E A D -
0057720 A R G U M E N T S . D M A C R
0057740 O ( A P P L Y C O M P . S P
0057760 R E A D ) ) \r D E C L A R E D -
0060000 S P E C I A L D 1 \r ( L ( 1
0060020 D E C L S 0 V A R ) ) \0
0060040 ; 002 \0 \0 002 A 264 8 A d 001 003 262 030 d 001
0060060 001 g \0 \0 360 235 001 002 021 021 001 H 003 265 \f h
0060100 022 265 035 A 002 b 002 260 337 001 Y 001 g \0 \0 360
0060120 227 @ I 002 034 222 i 260 351 H 002 X 260 340 020 \0
0060140 N I L \r ( 4 1 C L : S P E C I
0060160 A L 1 4 D E C L A R E ) \r (
0060200 ) \r E V A L H O O K D 1 \r ( L
0060220 ( 3 E N V 2 A P P L Y H
0060240 O O K F N 1 E V A L H O O K
0060260 F N 0 F O R M ) P 2 *
0060300 A P P L Y H O O K * P 0 *
0060320 E V A L H O O K * ) \0 \f 003 \0 \0
0060340 004 A i B 021 003 002 @ \t \0 \0 020 \0 ( 9
0060360 H O O K E D - E V A L ) \r N I L
0060400 \r ( ) \r C L : F U N C A L L D
0060420 1 \r ( L ( 0 - a r g s - ) )
0060440 \0 Z \n \0 002 \0 e 021 001 \0 k a 021 1 004
0060460 H l 002 021 2 \t N d M 363 233 277 O 016 022 272
0060500 I j 274 273 J 260 5 a _ 022 277 O 020 265 021 O
0060520 022 h 032 _ 020 _ 016 277 N k 324 ^ 260 333 O 022
0060540 & _ 020 277 260 364 d 001 375 002 L k 330 \ n 002
0060560 \0 361 226 h l 4 \n \0 \0 277 265 354 L K 016 020
0060600 \0 ( 8 1 \ L I S P E R R O R )
0060620 \r N I L \r ( ) \r C L : A P P L Y
0060640 D 1 \r ( L ( 0 N ) ) \0 S
0060660 004 \0 002 \0 e 021 001 \0 H j 360 227 o \0 \0 \0
0060700 \t \0 \0 020 k a H a 021 ! 003 l 002 H k 331
0060720 273 272 J K 363 253 K a I 032 271 K m 377 324 273
0060740 260 362 I 022 021 022 003 j 273 J 260 026 d 001 375 002
0060760 K k 330 [ n 002 \0 361 226 h l 4 \n \0 \0 277
0061000 265 354 K I 016 020 \0 ( 7 4 \ L I S P
0061020 E R R O R 1 4 E R R O R ) \r
0061040 N I L \r ( 1 1 " T O O F E
0061060 W A R G U M E N T S T O A
0061100 P P L Y " ) \r ( P U T P R O P S
0061120 C L : A P P L Y D M A C R O
0061140 ( D E F M A C R O ( F N &
0061160 R E S T A R G S ) ( B Q U O
0061200 T E ( L E T ( ( F N ( \ ,
0061220 F N ) ) ( C N T ( \ , (
0061240 L E N G T H ( C D R \r A R G
0061260 S ) ) ) ) ) ( . S P R E A D .
0061300 ( ( O P C O D E S ) % , @
0061320 A R G S ) C N T F N ) ) ) )
0061340 ) \r ( P U T P R O P S C L : F
0061360 U N C A L L D M A C R O ( D
0061400 E F M A C R O ( F N & R E S
0061420 T A R G S ) ( B Q U O T E
0061440 ( ( O P C O D E S A P P L Y F
0061460 N ) ( \ , @ A R G S ) ( \
0061500 , ( \r L E N G T H A R G S )
0061520 ) ( \ , F N ) ) ) ) ) \r C O
0061540 M P I L E R - L E T A 0 0 0 1
0061560 D 1 \r ( F 0 T A I L ) \0 \a
0061600 \0 001 \0 \0 P 002 \t \0 \0 020 \0 ( 4 \ E
0061620 V P R O G N ) \r N I L \r ( ) \r C
0061640 L : C O M P I L E R - L E T D
0061660 1 \r ( I 0 T A I L ) \0 J 004
0061700 \0 003 001 021 0 002 @ 001 260 025 d 001 d 003 220 001
0061720 270 I 265 \a H h 032 Z 201 H & 271 002 003 265 354
0061740 J 022 021 @ 003 @ 001 260 031 d 001 [ 003 264 006 K
0061760 002 001 , 270 I 265 \a H h 032 Z 201 H & 271 002
0062000 003 265 350 J 022 g \0 \0 \v \0 \0 020 \0 ( 7 1
0062020 \ D O . P R O G V ) \r ( 6 8
0062040 C O M P I L E R - L E T A 0 0 0
0062060 1 ) \r ( ) \r C O M P . C O M P I
0062100 L E R - L E T A 0 0 0 1 D 1 \r
0062120 ( F 0 A ) \0 \a \0 001 \0 \0 P 002
0062140 \t \0 \0 020 \0 ( 4 C O M P . P R O
0062160 G N ) \r N I L \r ( ) \r C O M P .
0062200 C O M P I L E R - L E T D 1 \r
0062220 ( I 0 A ) \0 L 004 \0 \0 001 021 0
0062240 002 @ 001 260 025 d 001 d 003 220 001 270 I 265 \a H
0062260 h 032 Z 201 H & 271 002 003 265 354 J 022 021 @ 003
0062300 @ 001 260 033 d 001 [ 003 264 \b K 002 001 \t \0 \0
0062320 270 I 265 \a H h 032 Z 201 H & 271 002 003 265 346
0062340 J 022 g \0 \0 \v \0 \0 020 \0 ( 7 3 \ D
0062360 O . P R O G V 4 9 E V A L )
0062400 \r ( 7 0 C O M P . C O M P I L
0062420 E R - L E T A 0 0 0 1 ) \r ( ) \r
0062440 ( P U T P R O P S C L : C O M
0062460 P I L E R - L E T D M A C R O
0062500 C O M P . C O M P I L E R - L
0062520 E T ) \r \ i n t e r p r e t - C
0062540 O M P I L E R - L E T A 0 0 0 1
0062560 D 1 \r ( F 0 B O D Y F
0062600 1 E N V ) \0 \a \0 002 \0 \0 P Q \n
0062620 \0 \0 020 \0 ( 4 E V A L - P R O G
0062640 N ) \r N I L \r ( ) \r \ i n t e r
0062660 p r e t - C O M P I L E R - L E
0062700 T D 1 \r ( L ( 1 $ $ E N V
0062720 0 $ $ T A I L ) P 3 *
0062740 I N - C O M P I L E R - L E T *
0062760 P 2 E N V P 1 B O D
0063000 Y ) \0 [ \b \0 \0 002 @ 001 021 A 004 @ 002
0063020 271 A 272 i 273 021 0 \a H 260 026 d 001 d 003 220
0063040 001 275 N 265 \b M h 032 _ 016 201 M & 276 002 003
0063060 265 353 O 016 022 021 0 \a H 260 035 d 001 \ 003 264
0063100 \t L 002 001 J \n \0 \0 275 N 265 \b M h 032 _
0063120 016 201 M & 276 002 003 265 344 O 016 022 g \0 \0 \v
0063140 \0 \0 020 \0 ( 8 8 \ D O . P R O G
0063160 V 6 2 C L : E V A L ) \r ( 8
0063200 5 \ i n t e r p r e t - C O M
0063220 P I L E R - L E T A 0 0 0 1 ) \r
0063240 ( ) \r ( P U T P R O P S C L :
0063260 C O M P I L E R - L E T S P E
0063300 C I A L - F O R M \ i n t e r
0063320 p r e t - C O M P I L E R - L E
0063340 T ) \r ( P U T P R O P S Q U O
0063360 T E S P E C I A L - F O R M
0063400 C A R ) \r \ i n t e r p r e t -
0063420 T H E A 0 0 0 1 D 1 \r ( L (
0063440 1 S P E C 0 V A L U E ) )
0063460 \0 \a \0 \0 \0 002 @ A \n \0 \0 020 \0 ( 4
0063500 T Y P E P ) \r N I L \r ( ) \r \
0063520 i n t e r p r e t - T H E D 1
0063540 \r ( L ( 1 $ $ E N V 0 $
0063560 $ T A I L ) ) \0 J 005 \0 \0 002 @ 001
0063600 021 A 004 @ 002 001 271 A 272 H 003 001 g \0 \0 360
0063620 262 " I J \n \0 \0 \t \0 \0 273 g \0 \0 K H
0063640 002 \v \0 \0 227 i I K H \f \0 \0 020 K \t \0
0063660 \0 020 I J \n \0 \0 \ H \n \0 \0 221 L 020 i
0063700 I L H \f \0 \0 020 \0 ( 7 1 C H E C
0063720 K - T Y P E - F A I L 6 1 T
0063740 Y P E P 5 6 C L : E V A L
0063760 5 0 C L : V A L U E S - L I S
0064000 T 4 5 C H E C K - T Y P E -
0064020 F A I L 3 7 C L : N O T E V
0064040 E R Y 2 7 \ M V L I S T 2
0064060 4 C L : E V A L ) \r ( 3 1 \
0064100 i n t e r p r e t - T H E A 0 0
0064120 0 1 1 6 C L : V A L U E S )
0064140 \r ( ) \r ( P U T P R O P S T H
0064160 E S P E C I A L - F O R M \
0064200 i n t e r p r e t - T H E ) \r (
0064220 P U T P R O P S T H E D M A
0064240 C R O ( ( S P E C F O R M )
0064260 F O R M ) ) \r ( P U T P R O P
0064300 S C L : E V A L - W H E N D
0064320 M A C R O ( D E F M A C R O
0064340 ( O P T I O N S & B O D Y B
0064360 O D Y ) ( A N D ( O R ( F
0064400 M E M B ( Q U O T E C O M P
0064420 I L E ) O P T I O N S ) \r (
0064440 F M E M B ( Q U O T E C L :
0064460 C O M P I L E ) O P T I O N S
0064500 ) ) ( M A P C B O D Y ( F
0064520 U N C T I O N C L : E V A L )
0064540 ) ) ( A N D ( O R ( F M E
0064560 M B ( Q U O T E L O A D )
0064600 \r O P T I O N S ) ( F M E M B
0064620 ( Q U O T E C L : L O A D )
0064640 O P T I O N S ) ) ( B Q U O
0064660 T E ( P R O G N ( \ , @ B
0064700 O D Y ) ) ) ) ) ) \r C L : E V A
0064720 L - W H E N D 1 \r ( L ( 0
0064740 O P T I O N S . B O D Y ) ) \0
0064760 034 \0 \0 003 001 g \0 \0 @ 001 034 247 g \0 \0 @
0065000 001 034 264 \r @ 203 d 001 , 277 002 003 265 372 h 020
0065020 \0 N I L \r ( 9 E V A L 2 C
0065040 L : E V A L ) \r ( ) \r \ i n t e
0065060 r p r e t - E V A L - W H E N
0065100 D 1 \r ( L ( 1 $ $ E N V 0
0065120 $ $ T A I L ) ) \0 036 003 \0 \0 002
0065140 @ 001 021 ! 002 @ 002 271 A 272 g \0 \0 H 034 246
0065160 g \0 \0 H 034 264 \a I J \n \0 \0 020 \0 ( 2
0065200 7 E V A L - P R O G N ) \r ( 1
0065220 8 E V A L 1 2 C L : E V A
0065240 L ) \r ( ) \r ( P U T P R O P S
0065260 C L : E V A L - W H E N S P E
0065300 C I A L - F O R M \ i n t e r
0065320 p r e t - E V A L - W H E N ) \r
0065340 ( P U T P R O P S D E C L A R
0065360 E S P E C I A L - F O R M F
0065400 A L S E ) \r C L : : e x p a n d
0065420 - L O C A L L Y D 1 \r ( L (
0065440 1 $ $ M A C R O - E N V I R O
0065460 N M E N T 0 $ $ M A C R O -
0065500 F O R M ) ) \0 016 001 \0 \0 002 @ 002 021
0065520 001 \0 g \0 \0 h H 032 032 020 \0 N I L \r (
0065540 7 L E T ) \r ( ) \r ( S E T F -
0065560 M A C R O - F U N C T I O N (
0065600 Q U O T E C L : L O C A L L Y
0065620 ) ( Q U O T E C L : : e x p
0065640 a n d - L O C A L L Y ) ) \r ( P
0065660 U T P R O P S P R O G N S P
0065700 E C I A L - F O R M E V A L -
0065720 P R O G N ) \r E V A L - P R O G
0065740 N D 1 \r ( L ( 1 E N V I R
0065760 O N M E N T 0 B O D Y ) )
0066000 \0 030 \0 \0 \0 002 @ d 002 234 001 A \n \0 \0 @
0066020 002 b \0 277 277 260 361 001 A \n \0 \0 020 \0 ( 2
0066040 1 C L : E V A L 8 C L : E
0066060 V A L ) \r N I L \r ( ) \r \ i n t
0066100 e r p r e t - P R O G 1 D 1 \r
0066120 ( L ( 1 $ $ E N V 0 $ $
0066140 T A I L ) ) \0 ! 004 \0 \0 002 @ 001 021
0066160 1 003 @ 002 271 A 272 H J \n \0 \0 273 I 265 004
0066200 K 020 001 J \n \0 \0 277 I 002 Y 260 363 \0 ( 2
0066220 5 C L : E V A L 1 4 C L :
0066240 E V A L ) \r N I L \r ( ) \r ( P U
0066260 T P R O P S P R O G 1 S P E
0066300 C I A L - F O R M \ i n t e r
0066320 p r e t - P R O G 1 ) \r C L : :
0066340 e x p a n d - P R O G 1 D 1 \r
0066360 ( L ( 1 $ $ M A C R O - E N
0066400 V I R O N M E N T 0 $ $ M A
0066420 C R O - F O R M ) ) \0 025 003 \0 \0
0066440 002 @ 002 021 ! 002 H 001 271 H 002 272 o \0 \0 \0
0066460 I J 032 032 020 \0 N I L \r N I L \r (
0066500 1 4 ( L A M B D A ( X ) X
0066520 ) ) \r ( S E T F - M A C R O - F
0066540 U N C T I O N ( Q U O T E P
0066560 R O G 1 ) ( Q U O T E C L :
0066600 : e x p a n d - P R O G 1 ) ) \r
0066620 \ i n t e r p r e t - L E T *
0066640 D 1 \r ( L ( 1 $ $ E N V 0
0066660 $ $ T A I L ) ) \0 2 \a \0 \0 002
0066700 @ 001 021 a 006 @ 002 271 A 272 I J \n \0 \0 \t
0066720 \0 \0 [ 001 274 K 002 001 275 H 237 g \0 \0 J \n
0066740 \0 \0 276 H M N L \f \0 \0 020 L J \n \0 \0
0066760 020 \0 ( 4 7 E V A L - P R O G N
0067000 4 1 E V A L - L E T * - R E
0067020 C U R S I O N 3 3 M A K E -
0067040 E N V I R O N M E N T 1 7 \
0067060 M V L I S T 1 4 P A R S E -
0067100 B O D Y ) \r ( 2 9 : P A R E N
0067120 T ) \r ( ) \r ( P U T P R O P S
0067140 L E T * S P E C I A L - F O R
0067160 M \ i n t e r p r e t - L E T
0067200 * ) \r \ i n t e r p r e t - L E
0067220 T A 0 0 0 1 D 1 \r ( F 0 L
0067240 E X V A R S F 1 E N V I R
0067260 O N M E N T F 2 B O D Y )
0067300 \0 025 \0 003 \0 \0 R P 233 g \0 \0 P g \0
0067320 \0 Q \f \0 \0 200 Q \n \0 \0 020 \0 ( 1 8
0067340 E V A L - P R O G N 1 3 M A
0067360 K E - E N V I R O N M E N T ) \r
0067400 ( 9 : P A R E N T 5 : V A
0067420 R S ) \r ( ) \r \ i n t e r p r e
0067440 t - L E T D 1 \r ( L ( 1 $
0067460 $ E N V 0 $ $ T A I L ) P
0067500 9 S P E C V A R S P 8
0067520 L E X V A R S P 7 B O D Y
0067540 P 6 B O D Y P 1 E N
0067560 V I R O N M E N T ) \0 217 \v \0 \0
0067600 002 @ 001 021 Q 005 @ 002 021 001 006 A 271 N I \n
0067620 \0 \0 \t \0 \0 Z 001 021 001 \a J 002 001 273 021 0
0067640 \n H 260 E d 001 275 h 274 M d 003 231 002 001 I
0067660 \n \0 \0 274 M 001 ] \t \0 \0 277 M d K \n \0
0067700 \0 255 277 M d 301 002 311 \0 g \0 \0 ' 237 277 M
0067720 O 022 032 _ 022 277 L O 024 032 _ 024 277 207 L 032
0067740 O 020 032 _ 020 277 002 003 265 274 O 022 265 025 O 016
0067760 O 020 262 030 g \0 \0 O 020 g \0 \0 I \f \0 \0
0070000 211 O 024 g \0 \0 \v \0 \0 020 I \n \0 \0 020 \0
0070020 ( 1 4 0 E V A L - P R O G N
0070040 1 3 5 \ D O . P R O G V 1 2
0070060 6 M A K E - E N V I R O N M E
0070100 N T 6 3 D E C L A R E D - S
0070120 P E C I A L 5 6 C H E C K -
0070140 B I N D A B L E 4 9 C L : E
0070160 V A L 1 9 \ M V L I S T 1
0070200 6 P A R S E - B O D Y ) \r ( 1
0070220 3 2 \ i n t e r p r e t - L E
0070240 T A 0 0 0 1 1 2 2 : P A R E
0070260 N T 1 1 7 : V A R S 7 4
0070300 G L O B A L L Y - S P E C I A L
0070320 ) \r ( ) \r ( P U T P R O P S L
0070340 E T S P E C I A L - F O R M
0070360 \ i n t e r p r e t - L E T ) \r
0070400 ( P U T P R O P S L E T M A
0070420 C R O ( X ( \ L E T t r a n
0070440 X ) ) ) \r ( P U T P R O P S
0070460 L E T * M A C R O ( X ( \
0070500 L E T t r a n X T ) ) ) \r E
0070520 V A L - L E T * - R E C U R S I
0070540 O N A 0 0 0 1 D 1 \r ( F 0
0070560 V A R S F 1 D E C L S F
0070600 2 E N V F 3 B O D Y )
0070620 \0 \t \0 004 \0 \0 P Q R S \f \0 \0 020 \0
0070640 ( 6 E V A L - L E T * - R E C
0070660 U R S I O N ) \r N I L \r ( ) \r E
0070700 V A L - L E T * - R E C U R S I
0070720 O N D 1 \r ( I 3 B O D Y
0070740 I 2 E N V I 1 D E C L
0070760 S I 0 V A R S ) \0 W 004 \0
0071000 \0 004 @ 265 \b C B \n \0 \0 020 001 @ 002 b \0
0071020 277 021 1 003 H d 003 231 002 001 B \n \0 \0 271 H
0071040 001 X \t \0 \0 277 H d A \n \0 \0 253 277 H 301
0071060 002 311 \0 g \0 \0 ' 234 H h 032 I h 032 g \0
0071100 \0 \v \0 \0 020 B 273 H I 032 K \t \0 \0 032 272
0071120 K J \n \0 \0 023 260 254 \0 ( 8 2 % % S
0071140 E T F - E N V I R O N M E N T -
0071160 V A R S 7 5 E N V I R O N M
0071200 E N T - V A R S 6 5 \ D O .
0071220 P R O G V 4 1 D E C L A R E
0071240 D - S P E C I A L 3 4 C H E
0071260 C K - B I N D A B L E 2 7 C
0071300 L : E V A L 7 E V A L - P R
0071320 O G N ) \r ( 6 2 E V A L - L E
0071340 T * - R E C U R S I O N A 0 0 0
0071360 1 5 1 G L O B A L L Y - S P
0071400 E C I A L ) \r ( ) \r \ L E T t r
0071420 a n D 1 \r ( L ( 1 S E Q U
0071440 E N T I A L P 0 L E T T A I
0071460 L ) ) \0 302 \a \0 \0 002 021 0 002 @ 001 260
0071500 025 d 001 d 003 220 001 270 I 265 \a H h 032 Z 201
0071520 H & 271 002 003 265 354 J 022 021 @ 003 @ 001 260 $
0071540 d 001 [ 003 264 021 K d 002 002 227 277 g \0 \0 K
0071560 002 032 201 002 001 270 I 265 \a H h 032 Z 201 H &
0071600 271 002 003 265 335 J 022 @ 002 021 003 002 A 251 g \0
0071620 \0 H J 032 032 I 032 020 H 002 254 A g \0 \0 360
0071640 262 356 g \0 \0 @ 032 020 A g \0 \0 360 231 g \0
0071660 \0 h J 032 032 h 032 272 I 002 \t \0 \0 H 002 \t
0071700 \0 \0 021 " 006 L 003 265 003 205 001 275 K 003 265 023
0071720 023 g \0 \0 H 001 h 032 J 032 032 I 001 h 032 032
0071740 020 001 276 g \0 \0 M h 032 J 032 032 N h 032 032
0071760 h 032 272 L 002 274 K 002 273 260 314 \0 ( 1 3 5
0072000 R E V E R S E 1 3 0 R E V
0072020 E R S E ) \r ( 1 7 1 L A M B D
0072040 A 1 5 3 L A M B D A 1 1 8
0072060 P R O G 1 1 3 P R O G *
0072100 1 0 6 P R O G 1 0 0 P R O
0072120 G * 8 6 L A M B D A 5 2
0072140 P R O G 1 ) \r ( ) \r \ i n t e r
0072160 p r e t - C O N D D 1 \r ( L
0072200 ( 1 $ $ E N V 0 $ $ T A I
0072220 L ) ) \0 2 002 \0 \0 002 @ 021 021 001 A 271
0072240 H d 240 020 001 002 255 H 001 001 I \n \0 \0 265 365
0072260 H 002 X 260 356 H d 001 001 I \n \0 \0 230 277 H
0072300 001 002 I \n \0 \0 020 002 X 260 330 \0 ( 4 3
0072320 E V A L - P R O G N 3 4 C L
0072340 : E V A L 1 9 C L : E V A L
0072360 ) \r N I L \r ( ) \r ( P U T P R O
0072400 P S C O N D S P E C I A L -
0072420 F O R M \ i n t e r p r e t -
0072440 C O N D ) \r C L : : e x p a n d
0072460 - C O N D D 1 \r ( L ( 1 $
0072500 $ M A C R O - E N V I R O N M E
0072520 N T 0 $ $ M A C R O - F O R
0072540 M ) ) \0 l 002 \0 \0 002 @ 002 021 021 001 H
0072560 d 262 . 001 002 263 5 H 002 262 ' \b \0 \0 271 g
0072600 \0 \0 I H 001 001 h 032 032 h 032 g \0 \0 I d
0072620 g \0 \0 H 002 032 h 032 032 032 032 h 032 032 032 020
0072640 g \0 \0 H 001 001 h 032 032 020 g \0 \0 H 001 001
0072660 H 001 002 \t \0 \0 H 002 264 031 H 002 001 001 i 360
0072700 227 H 002 001 002 \t \0 \0 205 g \0 \0 H 002 032 h
0072720 032 032 032 032 020 \0 ( 9 3 M K P R O G
0072740 N 7 5 M K P R O G N 1 9
0072760 C L : G E N T E M P ) \r ( 9 7
0073000 C O N D 6 6 C L : I F 5 6
0073020 C L : V A L U E S 4 0 C O
0073040 N D 3 5 C L : I F 2 3 L
0073060 E T ) \r ( ) \r ( S E T F - M A C
0073100 R O - F U N C T I O N ( Q U O
0073120 T E C O N D ) ( Q U O T E
0073140 C L : : e x p a n d - C O N D )
0073160 ) \r C L : I F D 1 \r ( L ( 2
0073200 E L S E 1 T H E N 0 T
0073220 E S T ) ) \0 \n \0 \0 001 003 @ , 222 A
0073240 , 020 B , 020 \0 N I L \r N I L \r ( )
0073260 \r \ i n t e r p r e t - I F D
0073300 1 \r ( L ( 1 $ $ E N V 0
0073320 $ $ T A I L ) ) \0 % 005 \0 \0 002 @
0073340 001 021 A 004 @ 002 Y 001 272 I 002 d 220 001 273 A
0073360 274 H L \n \0 \0 225 J L \n \0 \0 020 K L \n
0073400 \0 \0 020 \0 ( 3 4 C L : E V A L
0073420 2 8 C L : E V A L 2 2 C L
0073440 : E V A L ) \r N I L \r ( ) \r ( P
0073460 U T P R O P S C L : I F S P
0073500 E C I A L - F O R M \ i n t e
0073520 r p r e t - I F ) \r ( P U T P R
0073540 O P S C L : I F D M A C R O
0073560 C O M P . I F ) \r C L : : e x
0073600 p a n d - A N D D 1 \r ( L (
0073620 1 $ $ M A C R O - E N V I R O
0073640 N M E N T 0 $ $ M A C R O -
0073660 F O R M ) ) \0 " 001 \0 \0 002 @ 002 021
0073700 001 \0 H d 002 262 023 277 g \0 \0 H 001 g \0 \0
0073720 H 002 032 h 032 032 032 020 222 H 001 020 i 020 \0 N
0073740 I L \r ( 1 8 A N D 1 3 C L
0073760 : I F ) \r ( ) \r ( S E T F - M A
0074000 C R O - F U N C T I O N ( Q U
0074020 O T E A N D ) ( Q U O T E
0074040 C L : : e x p a n d - A N D ) )
0074060 \r C L : : e x p a n d - O R D
0074100 1 \r ( L ( 1 $ $ M A C R O -
0074120 E N V I R O N M E N T 0 $ $
0074140 M A C R O - F O R M ) ) \0 4 002
0074160 \0 \0 002 @ 002 021 021 001 H 002 242 H 001 020 o \0
0074200 \0 \0 \t \0 \0 271 g \0 \0 I H 001 h 032 032 h
0074220 032 g \0 \0 I d g \0 \0 H 002 032 h 032 032 032
0074240 032 h 032 032 032 020 \0 ( 1 7 C L : G E
0074260 N T E M P ) \r ( 3 7 O R 3 2
0074300 C L : I F 2 1 L E T ) \r (
0074320 1 4 " O R " ) \r ( S E T F -
0074340 M A C R O - F U N C T I O N (
0074360 Q U O T E O R ) ( Q U O T E
0074400 C L : : e x p a n d - O R ) )
0074420 \r \ i n t e r p r e t - A N D
0074440 D 1 \r ( L ( 1 $ $ E N V 0
0074460 $ $ T A I L ) ) \0 " 002 \0 \0 002
0074500 @ 021 021 001 A 271 H 265 004 i 020 002 246 H 001 I
0074520 \n \0 \0 020 H 001 I \n \0 \0 264 360 H 002 X 260
0074540 350 \0 ( 2 5 C L : E V A L 1 8
0074560 C L : E V A L ) \r N I L \r ( )
0074600 \r ( P U T P R O P S A N D S
0074620 P E C I A L - F O R M \ i n t
0074640 e r p r e t - A N D ) \r \ i n t
0074660 e r p r e t - O R D 1 \r ( L
0074700 ( 1 $ $ E N V 0 $ $ T A I
0074720 L ) ) \0 ! 002 \0 \0 002 @ 021 021 001 A 271
0074740 H d 240 020 002 246 H 001 I \n \0 \0 020 H 001 I
0074760 \n \0 \0 265 360 H 002 X 260 351 \0 ( 2 4 C
0075000 L : E V A L 1 7 C L : E V A
0075020 L ) \r N I L \r ( ) \r ( P U T P R
0075040 O P S O R S P E C I A L - F
0075060 O R M \ i n t e r p r e t - O
0075100 R ) \r C L : B L O C K D 1 \r (
0075120 L ( 0 T A I L ) ) \0 \a \0 \0
0075140 003 001 @ 002 \t \0 \0 020 \0 ( 4 \ E V P
0075160 R O G N ) \r N I L \r ( ) \r ( P U
0075200 T P R O P S C L : B L O C K
0075220 D M A C R O C O M P . B L O C
0075240 K ) \r \ i n t e r p r e t - B L
0075260 O C K A 0 0 0 1 D 1 \r ( F 0
0075300 T A I L F 1 E N V I R O
0075320 N M E N T ) \0 \b \0 002 \0 \0 P 002 Q
0075340 \n \0 \0 020 \0 ( 5 E V A L - P R O
0075360 G N ) \r N I L \r ( ) \r \ i n t e
0075400 r p r e t - B L O C K D 1 \r (
0075420 L ( 1 $ $ E N V 0 $ $ T
0075440 A I L ) P 1 E N V I R O N
0075460 M E N T P 0 T A I L ) \0
0075500 032 002 \0 \0 002 @ 021 021 001 A 271 g \0 \0 H g
0075520 \0 \0 I \f \0 \0 Y g \0 \0 \n \0 \0 020 \0 (
0075540 2 3 \ C A T C H - F U N C A L
0075560 L 1 6 M A K E - E N V I R O
0075600 N M E N T ) \r ( 2 0 \ i n t e
0075620 r p r e t - B L O C K A 0 0 0 1
0075640 1 2 : P A R E N T 8 : B
0075660 L O C K S ) \r ( ) \r ( P U T P R
0075700 O P S C L : B L O C K S P E
0075720 C I A L - F O R M \ i n t e r
0075740 p r e t - B L O C K ) \r C L : :
0075760 e x p a n d - R E T U R N D 1
0076000 \r ( L ( 1 $ $ M A C R O - E
0076020 N V I R O N M E N T 0 $ $ M
0076040 A C R O - F O R M ) ) \0 021 001 \0
0076060 \0 002 @ 002 001 021 001 \0 g \0 \0 h H h 032 032
0076100 032 020 \0 N I L \r ( 8 C L : R E T
0076120 U R N - F R O M ) \r ( ) \r ( S E
0076140 T F - M A C R O - F U N C T I O
0076160 N ( Q U O T E R E T U R N )
0076200 ( Q U O T E C L : : e x p a
0076220 n d - R E T U R N ) ) \r C L : R
0076240 E T U R N - F R O M D 1 \r ( L
0076260 ( 1 R E T F R O M - V A L U
0076300 E 0 R E T F R O M - T A G )
0076320 ) \0 O 002 \0 001 002 A , \t \0 \0 021 021 001
0076340 k \t \0 \0 Y 277 I 253 g \0 \0 g \0 \0 @ \v
0076360 \0 \0 h 020 @ 253 I d \t \0 \0 g \0 \0 360 263
0076400 027 277 I \t \0 \0 g \0 \0 360 262 023 k I \n \0
0076420 \0 001 @ 360 227 I H i \v \0 \0 260 312 k I d
0076440 \v \0 \0 Y 260 303 \0 ( 7 4 S T K N T
0076460 H 6 6 R E T V A L U E S 5
0076500 6 S T K A R G 4 5 S T K N
0076520 A M E 3 4 S T K N A M E 2
0076540 5 C L : E R R O R 1 1 S T
0076560 K N T H 4 \ M V L I S T ) \r
0076600 ( 4 8 C L : B L O C K 3 7
0076620 \ P R O G 0 2 1 : T A G 1
0076640 8 I L L E G A L - R E T U R N
0076660 ) \r ( ) \r \ i n t e r p r e t -
0076700 R E T U R N - F R O M D 1 \r (
0076720 L ( 1 $ $ E N V 0 $ $ T
0076740 A I L ) ) \0 < 004 \0 \0 002 @ 001 021 1
0076760 003 @ 002 001 271 A Z [ 265 032 g \0 \0 g \0 \0
0077000 H \v \0 \0 277 K I J \n \0 \0 \t \0 \0 \n \0
0077020 \0 020 \t \0 \0 232 K d \t \0 \0 001 H 360 222 260
0077040 345 K \t \0 \0 260 322 \0 ( 5 6 E N V I
0077060 R O N M E N T - P A R E N T 4
0077100 6 E N V I R O N M E N T - B L
0077120 O C K S 4 0 E N V I R O N M
0077140 E N T - B L O C K S 3 6 \ D
0077160 O - T H R O W 3 3 \ M V L I
0077200 S T 3 0 C L : E V A L 2 3
0077220 C L : E R R O R ) \r ( 1 9 :
0077240 T A G 1 6 I L L E G A L - R
0077260 E T U R N ) \r ( ) \r ( P U T P R
0077300 O P S C L : R E T U R N - F R
0077320 O M S P E C I A L - F O R M
0077340 \ i n t e r p r e t - R E T U R
0077360 N - F R O M ) \r C L : F U N C T
0077400 I O N D 1 \r ( L ( 0 F N )
0077420 ) \0 \f \0 \0 001 001 @ d 004 l 004 360 222 \t
0077440 \0 \0 020 \0 ( 9 C L : S Y M B O L
0077460 - F U N C T I O N ) \r N I L \r (
0077500 ) \r F U N C T I O N D 1 \r ( L
0077520 ( 1 E N V 0 F N ) ) \0
0077540 027 \0 \0 001 002 A 262 023 g \0 \0 @ m 377 g \0
0077560 \0 \n \0 \0 h 032 032 032 020 @ 020 \0 ( 1 4
0077600 S T K N T H ) \r ( 1 1 F U N C
0077620 T I O N 5 F U N A R G ) \r (
0077640 ) \r ( P U T P R O P S C L : F
0077660 U N C T I O N D M A C R O (
0077700 D E F M A C R O ( X ) ( i f
0077720 ( C L : S Y M B O L P X )
0077740 t h e n ( B Q U O T E ( C L
0077760 : S Y M B O L - F U N C T I O N
0100000 ( Q U O T E \r ( \ , X ) )
0100020 ) ) e l s e ( B Q U O T E
0100040 ( F U N C T I O N ( \ , X )
0100060 ) ) ) ) ) \r \ i n t e r p r e t
0100100 - F U N C T I O N D 1 \r ( L
0100120 ( 1 $ $ E N V 0 $ $ T A I
0100140 L ) ) \0 B 002 \0 \0 002 @ 001 021 021 001 A
0100160 271 H 004 l 004 360 224 H \t \0 \0 020 I 241 H 020
0100200 g \0 \0 H d 001 g \0 \0 360 262 031 277 g \0 \0
0100220 g \0 \0 H 002 001 o \0 \0 \0 \n \0 \0 032 H 002
0100240 002 032 032 g \0 \0 I \f \0 \0 020 \0 ( 6 3
0100260 M A K E - C L O S U R E 5 0
0100300 \ A P P E N D 2 1 6 C L : S
0100320 Y M B O L - F U N C T I O N ) \r
0100340 ( 5 9 : E N V I R O N M E N T
0100360 4 0 & O P T I O N A L 3 7
0100400 C L : L A M B D A 3 0 L A
0100420 M B D A 2 4 : F U N C T I O
0100440 N ) \r ( 4 7 ( & R E S T I
0100460 G N O R E ) ) \r ( P U T P R O P
0100500 S C L : F U N C T I O N S P
0100520 E C I A L - F O R M \ i n t e
0100540 r p r e t - F U N C T I O N ) \r
0100560 \ i n t e r p r e t - F U N C T
0100600 I O N D 1 \r ( L ( 1 $ $ E
0100620 N V 0 $ $ T A I L ) ) \0 O
0100640 003 \0 \0 002 @ 001 021 ! 002 @ 002 d 220 001 271 A
0100660 272 I 230 H I l 002 g \0 \0 016 020 H 004 l 004
0100700 360 221 H 020 J 262 375 g \0 \0 H d 001 g \0 \0
0100720 360 262 031 277 g \0 \0 g \0 \0 H 002 001 o \0 \0
0100740 \0 \n \0 \0 032 H 002 002 032 032 g \0 \0 J \f \0
0100760 \0 020 \0 ( 7 6 M A K E - C L O S
0101000 U R E 6 3 \ A P P E N D 2 )
0101020 \r ( 7 2 : E N V I R O N M E N
0101040 T 5 3 & O P T I O N A L 5
0101060 0 C L : L A M B D A 4 3 L
0101100 A M B D A 3 7 : F U N C T I
0101120 O N 2 1 F U N C T I O N ) \r
0101140 ( 6 0 ( & R E S T I G N O
0101160 R E ) ) \r ( P U T P R O P S F
0101200 U N C T I O N S P E C I A L -
0101220 F O R M \ i n t e r p r e t -
0101240 F U N C T I O N ) \r \ i n t e r
0101260 p r e t - M U L T I P L E - V A
0101300 L U E - C A L L D 1 \r ( L (
0101320 1 $ $ E N V 0 $ $ T A I L
0101340 ) ) \0 X \b \0 \0 002 @ 001 021 A 004 @ 002
0101360 271 A 272 H J \n \0 \0 j 274 273 021 0 \a I 260
0101400 027 d 001 J \n \0 \0 \t \0 \0 ] 003 227 N 265 020
0101420 M _ 016 ^ 277 002 003 265 352 O 016 022 260 036 \t \0
0101440 \0 ^ M 031 260 360 d 001 375 002 L k 330 \ n 002
0101460 \0 361 226 h l 4 \n \0 \0 277 265 354 L K 016 020
0101500 \0 ( 7 9 \ L I S P E R R O R
0101520 5 5 L A S T 3 2 \ M V L I
0101540 S T 2 9 C L : E V A L 1 4
0101560 C L : E V A L ) \r N I L \r ( )
0101600 \r ( P U T P R O P S C L : M U
0101620 L T I P L E - V A L U E - C A L
0101640 L S P E C I A L - F O R M \
0101660 i n t e r p r e t - M U L T I P
0101700 L E - V A L U E - C A L L ) \r C
0101720 O M P . C L - E V A L D 1 \r (
0101740 L ( 0 E X P ) ) \0 026 \0 \0 \0
0101760 001 g \0 \0 @ 032 g \0 \0 g \0 \0 @ 032 o \0
0102000 \0 \0 \f \0 \0 020 \0 ( 1 9 C O M P .
0102020 S P R E A D ) \r ( 1 0 C A R
0102040 7 * E V A L - A R G U M E N T
0102060 - C O U N T * 2 C D R ) \r (
0102100 1 6 ( ( C L : E V A L E N
0102120 V I R O N M E N T ) ) ) \r ( C L
0102140 : P R O C L A I M ( Q U O T E
0102160 ( C L : S P E C I A L * E V
0102200 A L H O O K * ) ) ) \r ( O R (
0102220 B O U N D P ( Q U O T E * E
0102240 V A L H O O K * ) ) ( S E T Q
0102260 * E V A L H O O K * N I L )
0102300 ) \r ( C L : P R O C L A I M (
0102320 Q U O T E ( C L : S P E C I A
0102340 L * A P P L Y H O O K * ) ) )
0102360 \r ( O R ( B O U N D P ( Q U
0102400 O T E * A P P L Y H O O K * )
0102420 ) ( S E T Q * A P P L Y H O
0102440 O K * N I L ) ) \r ( R P A Q ?
0102460 * S K I P - E V A L H O O K *
0102500 N I L ) \r ( R P A Q ? * S K
0102520 I P - A P P L Y H O O K * N I
0102540 L ) \r C L : C O N S T A N T P
0102560 D 1 \r ( L ( 1 E N V I R O N
0102600 M E N T 0 O B J E C T ) F
0102620 5 C O M P V A R M A C R O H
0102640 A S H F 6 C O N S T A N T
0102660 F O L D F N S ) \0 222 005 002 \0 002 @
0102700 021 A 004 H d 3 020 263 m 303 \0 \0 263 h H d
0102720 \t \0 \0 263 a \t \0 \0 263 \ H d 303 \0 \0 262
0102740 % 277 @ h 360 265 P @ i 360 265 K @ \t \0 \0
0102760 265 E U 264 B @ U \n \0 \0 b \0 264 9 h b
0103000 002 023 260 275 303 \0 \0 264 . @ 001 \ d g \0 \0
0103020 360 263 # g \0 \0 360 263 035 L g \0 \0 360 264 027
0103040 @ d 001 V 034 237 210 d Y 001 I \n \0 \0 264 \a
0103060 002 003 265 365 i 020 A \n \0 \0 \t \0 \0 [ 001 272
0103100 K 002 001 264 362 J h b 002 277 b \0 023 261 377 r
0103120 \0 ( 1 2 5 \ M V L I S T 1 2
0103140 2 C L : M A C R O E X P A N D
0103160 1 1 0 C L : C O N S T A N T
0103200 P 5 8 G E T H A S H 4 8
0103220 C L : K E Y W O R D P 2 4 C
0103240 L : B I T - V E C T O R - P 1
0103260 9 C L : S T R I N G P ) \r ( 9
0103300 3 O T H E R W I S E 8 6 C
0103320 O N S T A N T 8 0 Q U O T E
0103340 7 1 L I S T P 3 1 L I T
0103360 A T O M 1 2 C H A R A C T E
0103400 R ) \r ( ) \r \ i n t e r p r e t
0103420 - S E T Q D 1 \r ( L ( 1 $
0103440 $ E N V 0 $ $ T A I L ) )
0103460 \0 037 003 \0 \0 002 @ 021 ! 002 A 271 H 265 004 J
0103500 020 001 H 002 X 001 H 002 270 I \n \0 \0 I \v \0
0103520 \0 272 260 352 \0 ( 2 6 S E T - S Y M
0103540 B O L 2 2 C L : E V A L ) \r
0103560 N I L \r ( ) \r ( P U T P R O P S
0103600 C L : S E T Q S P E C I A L
0103620 - F O R M \ i n t e r p r e t
0103640 - S E T Q ) \r \ i n t e r p r e
0103660 t - S E T Q D 1 \r ( L ( 1
0103700 $ $ E N V 0 $ $ T A I L ) )
0103720 \0 027 003 \0 \0 002 @ 001 021 ! 002 @ 002 001 271
0103740 A 272 H I J \n \0 \0 J \v \0 \0 020 \0 ( 2
0103760 0 S E T - S Y M B O L 1 6
0104000 C L : E V A L ) \r N I L \r ( ) \r
0104020 ( P U T P R O P S S E T Q S
0104040 P E C I A L - F O R M \ i n t
0104060 e r p r e t - S E T Q ) \r ( P U
0104100 T P R O P S C L : S E T Q D
0104120 M A C R O ( D E F M A C R O
0104140 ( X Y & R E S T C L : R E
0104160 S T ) ( B Q U O T E ( P R O
0104200 G N ( S E T Q ( \ , X )
0104220 ( \ , Y ) ) ( \ , @ ( A N
0104240 D \r C L : R E S T ( B Q U O
0104260 T E ( ( C L : S E T Q ( \ ,
0104300 @ C L : R E S T ) ) ) ) ) ) )
0104320 ) ) ) \r ( P U T P R O P S S E
0104340 T Q M A C R O ( D E F M A C
0104360 R O ( X & R E S T C L : R
0104400 E S T ) ( C O N S ( Q U O T
0104420 E C L : S E T Q ) ( C O N S
0104440 X C L : R E S T ) ) ) ) \r S
0104460 E T - S Y M B O L D 1 \r ( L
0104500 ( 2 E N V I R O N M E N T 1
0104520 V A L U E 0 C L : S Y M B
0104540 O L ) ) \0 . 002 \0 \0 003 B 245 @ A \n
0104560 \0 \0 020 @ B \t \0 \0 026 265 023 @ A B \t \0
0104600 \0 b 004 277 b 002 277 b \0 277 260 341 021 021 001 A
0104620 271 H d I 031 277 002 020 \0 ( 2 1 E N V
0104640 I R O N M E N T - P A R E N T
0104660 1 2 E N V I R O N M E N T - V
0104700 A R S 6 S E T ) \r N I L \r (
0104720 ) \r C L : : e x p a n d - P S E
0104740 T Q D 1 \r ( L ( 1 $ $ M A
0104760 C R O - E N V I R O N M E N T
0105000 0 $ $ M A C R O - F O R M ) )
0105020 \0 7 001 \0 \0 002 @ 002 021 001 \0 H 264 / g
0105040 \0 \0 g \0 \0 H 001 H 002 X d 002 262 025 277 g
0105060 \0 \0 H 001 H 002 270 g \0 \0 H 032 h 032 032 032
0105100 200 001 h 032 032 032 o \0 \0 \0 032 032 020 \0 N I
0105120 L \r ( 3 4 C L : P S E T Q 2
0105140 6 P R O G 1 1 3 S E T Q
0105160 1 0 P R O G N ) \r ( 5 0 (
0105200 N I L ) ) \r ( S E T F - M A C R
0105220 O - F U N C T I O N ( Q U O T
0105240 E C L : P S E T Q ) ( Q U O
0105260 T E C L : : e x p a n d - P S
0105300 E T Q ) ) \r \ i n t e r p r e t
0105320 - C A T C H D 1 \r ( L ( 1
0105340 $ $ E N V 0 $ $ T A I L ) )
0105360 \0 026 003 \0 \0 002 @ 001 021 ! 002 @ 002 271 A
0105400 272 H J \n \0 \0 I J \v \0 \0 020 \0 ( 1 9
0105420 \ C A T C H - C L - E V A L
0105440 1 4 C L : E V A L ) \r N I L \r
0105460 ( ) \r ( P U T P R O P S C L :
0105500 C A T C H S P E C I A L - F O
0105520 R M \ i n t e r p r e t - C A
0105540 T C H ) \r \ i n t e r p r e t -
0105560 T H R O W D 1 \r ( L ( 1 $
0105600 $ E N V 0 $ $ T A I L ) )
0105620 \0 035 003 \0 \0 002 @ 001 021 ! 002 @ 002 001 271 A
0105640 272 H J \n \0 \0 I J \n \0 \0 \t \0 \0 \n \0
0105660 \0 020 \0 ( 2 6 \ D O - T H R O W
0105700 2 3 \ M V L I S T 2 0 C
0105720 L : E V A L 1 5 C L : E V A
0105740 L ) \r N I L \r ( ) \r ( P U T P R
0105760 O P S C L : T H R O W S P E
0106000 C I A L - F O R M \ i n t e r
0106020 p r e t - T H R O W ) \r C L : C
0106040 A T C H D 1 \r ( L ( 0 L )
0106060 ) \0 \n \0 \0 003 001 @ 001 , @ 002 \n \0 \0
0106100 020 \0 ( 7 \ C A T C H - E V A L
0106120 ) \r N I L \r ( ) \r \ C A T C H -
0106140 F U N C A L L D 1 \r ( N A M E
0106160 * C A T C H * L ( 1 F N
0106200 0 T A G ) ) \0 005 \0 \0 \0 002 j
0106220 A 016 020 \0 N I L \r N I L \r ( ) \r \
0106240 C A T C H - E V A L D 1 \r ( N
0106260 A M E * C A T C H * L ( 1
0106300 B O D Y 0 T A G ) ) \0 006
0106320 \0 \0 \0 002 A \t \0 \0 020 \0 ( 3 \ E V
0106340 P R O G N ) \r N I L \r ( ) \r \ C
0106360 A T C H - C L - E V A L D 1 \r
0106400 ( N A M E * C A T C H * L
0106420 ( 2 E N V 1 B O D Y 0
0106440 T A G ) ) \0 \a \0 \0 \0 003 A B \n \0
0106460 \0 020 \0 ( 4 E V A L - P R O G N
0106500 ) \r N I L \r ( ) \r C L : T H R O
0106520 W D 1 \r ( L ( 1 T H R O W
0106540 - V A L U E 0 T H R O W - T
0106560 A G ) ) \0 \f \0 \0 001 002 @ , A , \t
0106600 \0 \0 \n \0 \0 020 \0 ( 9 \ D O - T H
0106620 R O W 6 \ M V L I S T ) \r N
0106640 I L \r ( ) \r E V A L - T H R O W
0106660 D 1 \r ( L ( 1 E N V 0
0106700 T A I L ) ) \0 025 \0 \0 \0 002 @ 001 A
0106720 \n \0 \0 @ 002 001 A \n \0 \0 \t \0 \0 \n \0 \0
0106740 020 \0 ( 1 8 \ D O - T H R O W
0106760 1 5 \ M V L I S T 1 2 C L
0107000 : E V A L 5 C L : E V A L )
0107020 \r N I L \r ( ) \r \ D O - T H R O
0107040 W D 1 \r ( L ( 1 V A L S
0107060 0 T A G ) ) \0 : 001 \0 \0 002 k \t
0107100 \0 \0 021 001 \0 H 265 016 g \0 \0 g \0 \0 @ \v
0107120 \0 \0 h 020 \t \0 \0 g \0 \0 360 262 023 k H \n
0107140 \0 \0 @ 360 230 H A i \v \0 \0 277 260 331 k H
0107160 d \v \0 \0 X 260 321 \0 ( 5 3 S T K N
0107200 T H 4 4 R E T V A L U E S
0107220 3 5 S T K A R G 2 4 S T K
0107240 N A M E 1 9 C L : E R R O R
0107260 3 S T K N T H ) \r ( 2 7 *
0107300 C A T C H * 1 5 : T A G 1
0107320 2 I L L E G A L - T H R O W )
0107340 \r ( ) \r ( P U T P R O P S C L
0107360 : C A T C H D M A C R O ( D
0107400 E F M A C R O ( T A G F O R M
0107420 & B O D Y B O D Y ) ( B Q
0107440 U O T E ( \ C A T C H - F U N
0107460 C A L L ( \ , T A G F O R M
0107500 ) ( \r F U N C T I O N ( L A
0107520 M B D A N I L ( \ , @ B O
0107540 D Y ) ) ) ) ) ) ) \r ( P U T P R
0107560 O P S C L : T H R O W D M A
0107600 C R O ( ( T A G V A L S )
0107620 ( \ D O - T H R O W T A G (
0107640 C L : M U L T I P L E - V A L U
0107660 E - L I S T V A L S ) ) ) ) \r
0107700 C L : : e x p a n d - P R O G
0107720 D 1 \r ( L ( 1 $ $ M A C R O
0107740 - E N V I R O N M E N T 0 $
0107760 $ M A C R O - F O R M ) ) \0 4
0110000 005 \0 \0 002 @ 002 021 A 004 H 001 271 H 002 A h
0110020 \v \0 \0 \t \0 \0 Z 001 273 J 002 001 274 g \0 \0
0110040 h g \0 \0 I L g \0 \0 K 032 h 032 \n \0 \0
0110060 032 032 h 032 032 032 020 \0 ( 4 3 \ A P P
0110100 E N D 2 1 7 \ M V L I S T
0110120 1 4 P A R S E - B O D Y ) \r (
0110140 3 6 C L : T A G B O D Y 3 1
0110160 L E T 2 7 C L : B L O C K
0110200 ) \r ( ) \r ( S E T F - M A C R O
0110220 - F U N C T I O N ( Q U O T E
0110240 P R O G ) ( Q U O T E C L
0110260 : : e x p a n d - P R O G ) ) \r
0110300 C L : : e x p a n d - P R O G *
0110320 D 1 \r ( L ( 1 $ $ M A C R
0110340 O - E N V I R O N M E N T 0
0110360 $ $ M A C R O - F O R M ) ) \0
0110400 4 005 \0 \0 002 @ 002 021 A 004 H 001 271 H 002 A
0110420 h \v \0 \0 \t \0 \0 Z 001 273 J 002 001 274 g \0
0110440 \0 h g \0 \0 I L g \0 \0 K 032 h 032 \n \0
0110460 \0 032 032 h 032 032 032 020 \0 ( 4 3 \ A P
0110500 P E N D 2 1 7 \ M V L I S T
0110520 1 4 P A R S E - B O D Y ) \r
0110540 ( 3 6 C L : T A G B O D Y 3
0110560 1 L E T * 2 7 C L : B L O
0110600 C K ) \r ( ) \r ( S E T F - M A C
0110620 R O - F U N C T I O N ( Q U O
0110640 T E P R O G * ) ( Q U O T E
0110660 C L : : e x p a n d - P R O G
0110700 * ) ) \r \ i n t e r p r e t - G
0110720 O D 1 \r ( L ( 1 $ $ E N V
0110740 0 $ $ T A I L ) ) \0 0 003 \0
0110760 \0 002 @ 001 021 ! 002 A Y 277 I 253 g \0 \0 g
0111000 \0 \0 H \v \0 \0 h 020 H I \t \0 \0 034 Z 231
0111020 I J \t \0 \0 \n \0 \0 260 341 I \t \0 \0 Y 260
0111040 334 \0 ( 4 3 E N V I R O N M E N
0111060 T - P A R E N T 3 7 \ D O -
0111100 T H R O W 3 4 \ M V L I S T
0111120 2 6 E N V I R O N M E N T -
0111140 T A G S 1 9 C L : E R R O R
0111160 ) \r ( 1 5 : T A G 1 2 I L
0111200 L E G A L - G O ) \r ( ) \r ( P U
0111220 T P R O P S G O S P E C I A
0111240 L - F O R M \ i n t e r p r e
0111260 t - G O ) \r \ i n t e r p r e t
0111300 - T A G B O D Y A 0 0 0 1 D 1
0111320 \r ( F 1 T A G B O D Y - T A
0111340 I L F 2 E N V ) \0 034 001 002
0111360 \0 \0 Q 021 001 \0 H 003 265 004 h 020 001 d 004 l
0111400 004 360 243 R \n \0 \0 277 H 002 X 260 354 \0 ( 2
0111420 0 C L : E V A L ) \r N I L \r (
0111440 ) \r \ i n t e r p r e t - T A G
0111460 B O D Y D 1 \r ( L ( 1 $ $
0111500 E N V 0 $ $ T A I L ) P
0111520 1 E N V P 0 T A G B O D
0111540 Y - T A I L ) \0 037 002 \0 \0 002 @ 021
0111560 021 001 A 271 g \0 \0 H g \0 \0 I \f \0 \0 Y
0111600 I g \0 \0 \n \0 \0 X 263 370 h 020 \0 ( 2 4
0111620 \ C A T C H - F U N C A L L
0111640 1 6 M A K E - E N V I R O N M
0111660 E N T ) \r ( 2 1 \ i n t e r p
0111700 r e t - T A G B O D Y A 0 0 0 1
0111720 1 2 : P A R E N T 8 : T
0111740 A G S ) \r ( ) \r ( P U T P R O P
0111760 S C L : T A G B O D Y S P E
0112000 C I A L - F O R M \ i n t e r
0112020 p r e t - T A G B O D Y ) \r C L
0112040 : T A G B O D Y D 1 \r ( L (
0112060 0 T A I L ) ) \0 \t \0 \0 003 001 h
0112100 @ 032 d \n \0 \0 020 \0 ( 6 \ P R O G
0112120 0 ) \r N I L \r ( ) \r \ i n t e r
0112140 p r e t - U N W I N D - P R O T
0112160 E C T A 0 0 0 1 A 0 0 0 2 D 1
0112200 \r ( F 0 C L E A N U P S F
0112220 1 E N V ) \0 \a \0 002 \0 \0 P Q
0112240 \n \0 \0 020 \0 ( 4 E V A L - P R O
0112260 G N ) \r N I L \r ( ) \r \ i n t e
0112300 r p r e t - U N W I N D - P R O
0112320 T E C T A 0 0 0 1 D 1 \r ( N A
0112340 M E E R R O R S E T F 0
0112360 R E S E T V A R S L S T F 1
0112400 F O R M F 2 E N V F
0112420 3 R E S E T Y ) \0 030 \0 004 002 \0
0112440 g \0 \0 h 032 h h 032 032 P 032 c \0 277 Q R
0112460 \n \0 \0 c 006 i 020 \0 ( 1 8 C L : E
0112500 V A L ) \r ( 2 \ i n t e r p r
0112520 e t - U N W I N D - P R O T E C
0112540 T A 0 0 0 1 A 0 0 0 2 ) \r ( ) \r
0112560 \ i n t e r p r e t - U N W I N
0112600 D - P R O T E C T D 1 \r ( L
0112620 ( 1 $ $ E N V 0 $ $ T A I
0112640 L ) P 4 R E S E T Y P
0112660 3 L I S P X H I S T P 2
0112700 E N V P 1 C L E A N U P S
0112720 P 0 F O R M F 6 L I
0112740 S P X H I S T F 7 R E S E
0112760 T V A R S L S T ) \0 - 006 002 \0 002
0113000 @ 001 021 ! 002 @ 002 271 A 272 V 021 ! 005 W 016
0113020 o \0 \0 \0 g \0 \0 \n \0 \0 221 h 202 g \0 \0
0113040 ] \n \0 \0 M 223 \b \0 \0 020 L 020 \0 ( 4 0
0113060 E R R O R ! 3 5 R E S E T
0113100 R E S T O R E 2 5 \ i n t e
0113120 r p r e t - U N W I N D - P R O
0113140 T E C T A 0 0 0 1 ) \r ( 3 1 E
0113160 R R O R 2 2 I N T E R N A L
0113200 ) \r ( 1 9 ( \ i n t e r p r
0113220 e t - U N W I N D - P R O T E C
0113240 T A 0 0 0 1 ) ) \r ( P U T P R O
0113260 P S C L : U N W I N D - P R O
0113300 T E C T S P E C I A L - F O R
0113320 M \ i n t e r p r e t - U N W
0113340 I N D - P R O T E C T ) \r ( P U
0113360 T P R O P S C L : U N W I N D
0113400 - P R O T E C T D M A C R O
0113420 ( ( F O R M . C L E A N U P
0113440 S ) ( R E S E T L S T ( R E
0113460 S E T S A V E N I L ( L I S
0113500 T ( F U N C T I O N ( L A M
0113520 B D A \r N I L . C L E A N
0113540 U P S ) ) ) ) F O R M ) ) ) \r
0113560 ( F I L E S L O A D C M L P R
0113600 O G V ) \r \ i n t e r p r e t -
0113620 . E R R S E T Q . D 1 \r ( L
0113640 ( 1 $ $ E N V 0 $ $ T A I
0113660 L ) ) \0 031 005 \0 \0 002 @ 001 021 A 004 @
0113700 002 Y 001 272 I 002 001 273 A 274 H J K L \f \0
0113720 \0 020 \0 ( 2 2 E V A L - E R R O
0113740 R S E T ) \r N I L \r ( ) \r ( P U
0113760 T P R O P S . E R R S E T Q .
0114000 S P E C I A L - F O R M \ i
0114020 n t e r p r e t - . E R R S E T
0114040 Q . ) \r E V A L - E R R O R S E
0114060 T D 1 \r ( N A M E E R R O R
0114100 S E T L ( 3 E N V 2 Z
0114120 1 Y 0 X ) ) \0 \t \0 \0 \0
0114140 004 @ C \n \0 \0 h 032 020 \0 ( 4 C L :
0114160 E V A L ) \r N I L \r ( ) \r ( P U
0114200 T P R O P S C M L E V A L F
0114220 I L E T Y P E C L : C O M P I
0114240 L E - F I L E ) \r ( M A P C S
0114260 Y S S P E C V A R S ( F U N C
0114300 T I O N ( L A M B D A ( X )
0114320 ( L E T * ( ( A 0 7 6 7 X
0114340 ) ( A 0 7 6 8 ( Q U O T E
0114360 G L O B A L L Y - S P E C I A L
0114400 ) ) ( A 0 7 7 0 T ) ) ( \r
0114420 P U T P R O P A 0 7 6 7 A 0
0114440 7 6 8 A 0 7 7 0 ) ) ) ) ) \r C
0114460 A C H E M A C R O D 1 \r ( L
0114500 ( 2 E N V 1 B O D Y 0
0114520 F N ) F 0 C L I S P A R R
0114540 A Y F 1 * I N - C O M P I
0114560 L E R - L E T * ) \0 4 \0 002 \0 003
0114600 Q 263 036 B 303 \0 \0 262 030 B 265 034 A P \n \0
0114620 \0 265 \r A d B l 002 @ 016 P \v \0 \0 020 A
0114640 B l 002 @ 016 020 \t \0 \0 263 343 B \t \0 \0 b
0114660 004 260 331 \0 ( 4 6 E N V I R O N M
0114700 E N T - P A R E N T 4 0 E N
0114720 V I R O N M E N T - M A C R O S
0114740 2 9 P U T H A S H 1 6 G
0114760 E T H A S H ) \r ( 6 E N V I R
0115000 O N M E N T ) \r ( ) \r ( C L : P
0115020 R O C L A I M ( Q U O T E (
0115040 C L : S P E C I A L * M A C R
0115060 O E X P A N D - H O O K * ) ) )
0115100 \r ( S E T Q * M A C R O E X P
0115120 A N D - H O O K * ( Q U O T E
0115140 C A C H E M A C R O ) ) \r ( R
0115160 P A Q Q * I N - C O M P I L E
0115200 R - L E T * N I L ) \r ( P U T
0115220 P R O P S C M L E V A L C O
0115240 P Y R I G H T ( " X e r o x
0115260 C o r p o r a t i o n " 1 9 8
0115300 6 ) ) \r N I L \r
0115310