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