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