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