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