$ od -c -N 50000 [eris]<LispCore>SOURCES>CMLEVAL!5
0000000 006 001 ( F I L E C R E A T E D "
0000020 8 - O c t - 8 6 1 2 : 1 3 :
0000040 5 6 " 006 004 { E R I S } < L I S
0000060 P C O R E > S O U R C E S > C M
0000100 L E V A L . ; 5 006 001 8 0 3 4 5
0000120 \r \r c h a n g e
0000140 s t o : ( V A R S C M L
0000160 E V A L C O M S ) \r \r
0000200 p r e v i o u s d a t e :
0000220 " 6 - O c t - 8 6 1 9 : 5 2
0000240 : 4 5 " { E R I S } < L I S P
0000260 C O R E > S O U R C E S > C M L
0000300 E V A L . ; 4 ) \r \r \r ( * " \r
0000320 C o p y r i g h t ( c ) 1 9
0000340 8 6 b y X e r o x C o r p
0000360 o r a t i o n . A l l r i
0000400 g h t s r e s e r v e d . \r "
0000420 ) \r \r ( P R E T T Y C O M P R I
0000440 N T C M L E V A L C O M S ) \r
0000460 \r ( R P A Q Q 006 002 C M L E V A
0000500 L C O M S 006 001 [ ( C O M S (
0000520 * ; " F o r m f o r d e
0000540 f i n i n i n g i n t e r p r
0000560 e t e r s o f s p e c i a l
0000600 f o r m s " ) \r
0000620
0000640 ( D E F I N E - T Y P E S
0000660 S P E C I A L - F O R M S ) \r
0000700
0000720 ( F U N C T
0000740 I O N S D E F I N E - S P E C
0000760 I A L - F O R M ) \r
0001000
0001020 ( F U N C T I O N S S
0001040 P E C I A L - F O R M - P ) ) \r
0001060
0001100 ( C O M S ( S P E C I
0001120 A L - F O R M S I N T E R L I
0001140 S P ) \r
0001160 ( P
0001200 R O P D M A C R O I N T E R
0001220 L I S P C O M M O N - L I S P
0001240 ) \r
0001260 ( F N S
0001300 C O M M O N - L I S P ) ) \r
0001320
0001340 ( C O M S ( A D D V A R
0001360 S ( L A M B D A S P L S T C
0001400 L : L A M B D A ) ) \r
0001420
0001440 ( F N S \ T R A N S
0001460 L A T E - C L : L A M B D A ) \r
0001500
0001520 ( V A R I A
0001540 B L E S * C H E C K - A R G U
0001560 M E N T - C O U N T S * ) \r
0001600
0001620 ( P R O P D M
0001640 A C R O C O M M O N - L I S P
0001660 ) ) \r
0001700 ( V A R I A B L E
0001720 S L A M B D A - L I S T - K E
0001740 Y W O R D S C A L L - A R G U
0001760 M E N T S - L I M I T L A M B
0002000 D A - P A R A M E T E R S - L I
0002020 M I T ) \r
0002040 ( S T R U C T
0002060 U R E S C L O S U R E E N V
0002100 I R O N M E N T ) \r
0002120 ( C
0002140 O M S ( F N S C L : E V A L
0002160 E V A L - I N V O K E - L A M
0002200 B D A \ I N T E R P R E T - A
0002220 R G U M E N T S \ I N T E R P
0002240 R E T E R - L A M B D A \r
0002260
0002300 C H E
0002320 C K - B I N D A B L E C H E C
0002340 K - K E Y W O R D S ) \r
0002360
0002400 ( F U N C T I O N S
0002420 A R G - R E F ) \r
0002440
0002460 ( P R O P D M A C R O
0002500 . C O M P I L E R - S P R E A
0002520 D - A R G U M E N T S . ) ) \r
0002540
0002560 ( F N S D E C L A R E D
0002600 - S P E C I A L E V A L H O O
0002620 K ) \r
0002640 ( C O M S ( *
0002660 ; " F U N C A L L a n d A
0002700 P P L Y , n o t q u i t e
0002720 s a m e a s I n t e r l i s
0002740 p " ) \r
0002760 ( F
0003000 N S F U N C A L L C L : A P
0003020 P L Y ) \r
0003040 (
0003060 P R O P D M A C R O C L : A
0003100 P P L Y F U N C A L L ) ) \r
0003120
0003140 ( C O M S ( * ; " C
0003160 O M P I L E R - L E T n e e d
0003200 s t o w o r k d i f f e r
0003220 e n t l y c o m p i l e d a
0003240 n d i n t e r p r e t e d " )
0003260 \r
0003300 ( F N S
0003320 C O M P I L E R - L E T C O M
0003340 P . C O M P I L E R - L E T ) \r
0003360
0003400 ( P R O P
0003420 D M A C R O C O M P I L E R -
0003440 L E T ) \r
0003460 (
0003500 S P E C I A L - F O R M S C O
0003520 M P I L E R - L E T ) ) \r
0003540
0003560 ( S P E C I A L - F O R M S
0003600 Q U O T E ) \r
0003620 ( C O M S
0003640 ( S P E C I A L - F O R M S
0003660 T H E ) \r
0003700 (
0003720 P R O P D M A C R O T H E )
0003740 ) \r
0003760 ( C O M S ( P R O
0004000 P D M A C R O E V A L - W H
0004020 E N ) \r
0004040 ( F
0004060 N S E V A L - W H E N ) \r
0004100
0004120 ( S P E C I A L
0004140 - F O R M S E V A L - W H E N
0004160 ) ) \r
0004200 ( C O M S ( S P
0004220 E C I A L - F O R M S D E C L
0004240 A R E ) \r
0004260 (
0004300 F U N C T I O N S L O C A L L
0004320 Y ) ) \r
0004340 ( C O M S ( *
0004360 ; " I n t e r l i s p v e
0004400 r s i o n o n L L I N T E R
0004420 P " ) \r
0004440 ( S
0004460 P E C I A L - F O R M S P R O
0004500 G N ) \r
0004520 ( F
0004540 N S E V A L - P R O G N ) ) \r
0004560
0004600 ( C O M S ( * ; \r
0004620
0004640 " C o n f u s e d b e c a u s
0004660 e c u r r e n t l y I n t e
0004700 r l i s p s p e c i a l f o
0004720 r m , f i x i n g M A C R O
0004740 - F U N C T I O N i s c o m
0004760 p l e x " \r
0005000
0005020 ) \r
0005040 (
0005060 * ; " T h e I n t e r l i
0005100 s p f u n c t i o n i s o
0005120 n L L I N T E R P " ) \r
0005140
0005160 ( S P E C I A L -
0005200 F O R M S P R O G 1 ) \r
0005220
0005240 ( F U N C T I O N
0005260 S P R O G 1 ) ) \r
0005300 ( C
0005320 O M S ( S P E C I A L - F O R
0005340 M S L E T * L E T ) \r
0005360
0005400 ( P R O P M A C
0005420 R O L E T L E T * ) \r
0005440
0005460 ( F N S E V A L
0005500 - L E T * - R E C U R S I O N
0005520 \ L E T t r a n ) ) \r
0005540 (
0005560 C O M S ( S P E C I A L - F O
0005600 R M S C O N D ) \r
0005620
0005640 ( F U N C T I O N S C
0005660 O N D ) ) \r
0005700 ( C O M S
0005720 ( * ; " c o n s i d e r m
0005740 a k i n g C L : I F e x t e
0005760 n d e d t o h a v e I n t
0006000 e r l i s p ' s f e a t u r e
0006020 s " ) \r
0006040 ( F
0006060 N S C L : I F ) \r
0006100
0006120 ( S P E C I A L - F O R
0006140 M S C L : I F ) \r
0006160
0006200 ( P R O P D M A C R O
0006220 C L : I F ) ) \r
0006240 ( C O
0006260 M S ( * ; " I n t e r l i
0006300 s p N L A M B D A d e f i n
0006320 i t i o n s o n L L I N T E
0006340 R P " ) \r
0006360 (
0006400 * ; " b o t h s p e c i a
0006420 l f o r m a n d m a c r o
0006440 " ) \r
0006460 ( F U
0006500 N C T I O N S A N D O R ) \r
0006520
0006540 ( S P E C I
0006560 A L - F O R M S A N D O R )
0006600 ) \r
0006620 ( C O M S ( * ;
0006640 " B L O C K a n d R E T U
0006660 R N g o t o g e t h e r " )
0006700 \r
0006720 ( F N S
0006740 C L : B L O C K ) \r
0006760
0007000 ( P R O P D M A C R O
0007020 C L : B L O C K ) \r
0007040
0007060 ( S P E C I A L - F O
0007100 R M S C L : B L O C K ) \r
0007120
0007140 ( F U N C T I O
0007160 N S R E T U R N ) \r
0007200
0007220 ( F N S R E T U R N
0007240 - F R O M ) \r
0007260
0007300 ( S P E C I A L - F O R M S
0007320 R E T U R N - F R O M ) ) \r
0007340
0007360 ( C O M S ( * ; " e v
0007400 e n t u a l l y s h o u l d n
0007420 ' t b e s h a d o w e d b
0007440 u t c u r r e n t l y * r e
0007460 a l l y * d i f f e r e n t "
0007500 ) \r
0007520 ( F N S
0007540 C L : F U N C T I O N F U N
0007560 C T I O N ) \r
0007600
0007620 ( P R O P D M A C R O C L
0007640 : F U N C T I O N ) \r
0007660
0007700 ( S P E C I A L - F O
0007720 R M S C L : F U N C T I O N
0007740 F U N C T I O N ) ) \r
0007760 (
0010000 S P E C I A L - F O R M S M U
0010020 L T I P L E - V A L U E - C A L
0010040 L ) \r
0010060 ( F N S C O M P
0010100 . C L - E V A L ) \r
0010120 ( V
0010140 A R I A B L E S * E V A L H O
0010160 O K * * A P P L Y H O O K * )
0010200 \r
0010220 ( I N I T V A R S (
0010240 * S K I P - E V A L H O O K *
0010260 N I L ) \r
0010300
0010320 ( * S K I P - A P P L Y H O O K
0010340 * N I L ) ) \r
0010360 ( F N S
0010400 C O N S T A N T P ) \r
0010420
0010440 ( C O M S ( * ; " I n t e
0010460 r l i s p S E T Q f o r C
0010500 o m m o n L i s p a n d v
0010520 i c e v e r s a " ) \r
0010540
0010560 ( S P E C I A L - F
0010600 O R M S C L : S E T Q S E T
0010620 Q ) \r
0010640 ( P R
0010660 O P D M A C R O C L : S E T
0010700 Q ) \r
0010720 ( P R
0010740 O P M A C R O S E T Q ) \r
0010760
0011000 ( F N S S E
0011020 T - S Y M B O L ) \r
0011040
0011060 ( F U N C T I O N S P
0011100 S E T Q ) ) \r
0011120 ( C O M S
0011140 ( * ; " C o m m o n L i s
0011160 p s t y l e C A T C H a n
0011200 d T H R O W " ) \r
0011220
0011240 ( S P E C I A L - F O R
0011260 M S C A T C H T H R O W ) \r
0011300
0011320 ( F N S C
0011340 A T C H \ C A T C H - F U N C
0011360 A L L \ C A T C H - E V A L
0011400 \ C A T C H - C L - E V A L T
0011420 H R O W E V A L - T H R O W
0011440 \r
0011460
0011500 \ D O - T H R O W ) \r
0011520
0011540 ( P R O P D M A C R
0011560 O C A T C H T H R O W ) ) \r
0011600
0011620 ( C O M S ( F U N C T
0011640 I O N S P R O G P R O G * )
0011660 \r
0011700 ( S P E C
0011720 I A L - F O R M S G O T A G
0011740 B O D Y ) \r
0011760
0012000 ( F N S T A G B O D Y ) ) \r
0012020
0012040 ( C O M S ( S P E C I A
0012060 L - F O R M S U N W I N D - P
0012100 R O T E C T ) \r
0012120
0012140 ( M A C R O S U N W I N D
0012160 - P R O T E C T ) ) \r
0012200 (
0012220 F I L E S C M L P R O G V ) \r
0012240
0012260 ( C O M S ( * ; "
0012300 h a c k t o g e t N L S E
0012320 T Q s t o w o r k o n c
0012340 o m m o n l i s p i n t e r
0012360 p r e t e r " ) \r
0012400
0012420 ( S P E C I A L - F O R M
0012440 S . E R R S E T Q . ) \r
0012460
0012500 ( F N S E V A L
0012520 - E R R O R S E T ) ) \r
0012540
0012560 ( L O C A L V A R S . T ) \r
0012600
0012620 ( P R O P F I L E T Y
0012640 P E C M L E V A L ) \r
0012660
0012700 [ D E C L A R E : D O N T E V
0012720 A L @ L O A D D O C O P Y (
0012740 P ( f o r X i n S Y S S
0012760 P E C V A R S d o ( S E T F
0013000 ( \r
0013020
*
0013100 V A R
0013120 I A B L E - G L O B A L L Y - S
0013140 P E C I A L - P \r
0013160
*
0013260 X
0013300 ) \r
0013320
*
0013420 T ] \r
0013440 ( C
0013460 O M S ( * ; " f o r m a
0013500 c r o c a c h i n g " ) \r
0013520
0013540 ( F N S C A C
0013560 H E M A C R O ) \r
0013600
0013620 ( V A R I A B L E S * M
0013640 A C R O E X P A N D - H O O K *
0013660 ) \r
0013700 ( V A R
0013720 S ( * I N - C O M P I L E R -
0013740 L E T * N I L ) ) ) \r
0013760
0014000 ( D E C L A R E : D O N T E V
0014020 A L @ L O A D D O E V A L @ C
0014040 O M P I L E D O N T C O P Y
0014060 C O M P I L E R V A R S \r
0014100
0014120 ( A D D V A R S
0014140 ( N L A M A T A G B O D Y
0014160 C A T C H C L : B L O C K E
0014200 V A L - W H E N C O M P I L E
0014220 R - L E T C O M M O N - L I S
0014240 P \r
0014260
0014300 L E
0014320 T * L E T ) \r
0014340
0014360 ( N L A M L
0014400 T H R O W F U N C T I O N
0014420 C L : F U N C T I O N R E T U
0014440 R N - F R O M C L : I F ) \r
0014460
*
0014520 ( L A M A C L : A P P L Y
0014540 F U N C A L L E V A L H O O K
0014560 ] ) \r \r \r \r 006 004 ( * ; " F o
0014600 r m f o r d e f i n i n i n
0014620 g i n t e r p r e t e r s o
0014640 f s p e c i a l f o r m s "
0014660 ) 006 001 \r \r ( D E F - D E F I N E
0014700 - T Y P E 006 002 S P E C I A L -
0014720 F O R M S 006 001 " C o m m o n
0014740 L i s p s p e c i a l f o r
0014760 m s " ) \r \r ( D E F D E F I N
0015000 E R 006 002 D E F I N E - S P E C
0015020 I A L - F O R M 006 001 \r S P
0015040 E C I A L - F O R M S ( N A M
0015060 E A R G S & R E S T B O D
0015100 Y ) \r ( C O N
0015120 D \r ( (
0015140 N U L L B O D Y ) \r
0015160 ( C L : A S S E
0015200 R T ( S Y M B O L P B O D Y
0015220 ) ) \r
0015240 ( B Q U O T E ( P U T P R O P
0015260 S ( \ , N A M E ) \r
0015300
0015320 S P E C I A L -
0015340 F O R M \r
0015360
0015400 ( \ , A R G S ) ) ) ) \r
0015420 ( T ( L E
0015440 T ( ( S F ( P A C K * " \
0015460 i n t e r p r e t - " N A M E
0015500 ) ) ) \r
0015520 ( M U L T I P L
0015540 E - V A L U E - B I N D ( P A
0015560 R S E D - B O D Y D E C L S
0015600 D O C ) \r
0015620
0015640 ( P A R S E - D E F M A C R O
0015660 A R G S ( Q U O T E $ $ T A
0015700 I L ) \r
0015720
0015740 B O D Y N A M E
0015760 N I L : P A T H ( Q U O T E
0016000 $ $ T A I L ) \r
0016020
0016040 : E N V I
0016060 R O N M E N T \r
0016100
0016120 ( Q U O T E
0016140 $ $ E N V ) ) \r
0016160
0016200 ( S E T Q A R G S S
0016220 F ) \r
0016240 ( B
0016260 Q U O T E ( P R O G N ( S E
0016300 T F ( S Y M B O L - F U N C T
0016320 I O N ( Q U O T E ( \ , S
0016340 F ) ) ) \r
0016360
*
0016420 ( C L : F U N C T I O
0016440 N ( C L : L A M B D A ( $ $
0016460 T A I L $ $ E N V ) \r
0016500
*
0016600 ( C L : B L O C K ( \ , N A
0016620 M E ) \r
0016640
*
0016720 (
0016740 \ , @ D E C L S ) \r
0016760
*
0017060 ( \ , P A R S E D
0017100 - B O D Y ) ) ) ) ) \r
0017120
*
0017160 ( P U T P R O P S (
0017200 \ , N A M E ) \r
0017220
*
0017260 S P E C I A
0017300 L - F O R M \r
0017320
*
0017360 ( \ , S F ) )
0017400 ) ) ) ) ) ) ) \r \r ( D E F U N
0017420 006 002 S P E C I A L - F O R M - P
0017440 006 001 ( X ) ( G E T X ( Q
0017460 U O T E S P E C I A L - F O R
0017500 M ) ) ) \r \r ( D E F I N E - S P
0017520 E C I A L - F O R M 006 002 I N T
0017540 E R L I S P 006 001 P R O G N ) \r
0017560 \r \r ( P U T P R O P S 006 002 I N
0017600 T E R L I S P D M A C R O 006 001
0017620 ( ( X . Y ) \r
0017640
0017660 ( P R O G N X .
0017700 Y ) ) ) \r \r ( P U T P R O P S
0017720 006 002 C O M M O N - L I S P D
0017740 M A C R O 006 001 ( ( X ) \r
0017760
0020000 X ) ) \r (
0020020 D E F I N E Q \r \r ( 006 004 C O M M
0020040 O N - L I S P 006 001 \r [ N L A
0020060 M B D A C O M M O N - L I S P
0020100 - F O R M S 006 003 006 001
0020120
0020140 006 003 ( *
0020160 l m m " 6 - J u n - 8 6 0
0020200 1 : 0 7 " ) 006 001 \r ( 006 002
0020220 E V A L - P R O G N 006 001 C O M
0020240 M O N - L I S P - F O R M S N
0020260 I L ] ) \r ) \r \r ( A D D T O V A
0020300 R 006 002 L A M B D A S P L S T 006
0020320 001 C L : L A M B D A ) \r ( D E
0020340 F I N E Q \r \r ( 006 004 \ T R A N S
0020360 L A T E - C L : L A M B D A 006 001
0020400 \r [ L A M B D A ( E X P R
0020420 ) 006 003 006 001
0020440
*
0020500 006 003 ( * l m m " 1 6 - J
0020520 u n - 8 6 2 2 : 4 1 " ) 006 001 \r
0020540 ( L E T \r ( V
0020560 R B L S K E Y V A R S O P T
0020600 V A R S A U X L I S T R E S
0020620 T F O R M V A R T Y P B O D
0020640 Y K E Y W O R D S ( C N T
0020660 1 ) \r (
0020700 M I N 0 ) \r
0020720 ( M A X 0 ) \r
0020740 D E C L S \r
0020760 ( S I M P L E
0021000 P T ) ) \r [ 006 002 f o
0021020 r 006 001 B I N D I N G V A R
0021040 006 002 i n 006 001 ( C A R ( C D R
0021060 E X P R ) ) \r
0021100 006 002 d o 006 001 \r (
0021120 S E L E C T Q B I N D I N G \r
0021140 ( ( & R
0021160 E S T & B O D Y ) \r
0021200 ( S E
0021220 T Q V A R T Y P ( Q U O T E
0021240 & R E S T ) ) ) \r
0021260 ( & O P T I O N A L
0021300 ( S E T Q V A R T Y P B I
0021320 N D I N G ) ) \r
0021340 ( & A U X ( S E T Q
0021360 V A R T Y P B I N D I N G ) )
0021400 \r ( & A
0021420 L L O W - O T H E R - K E Y S
0021440 \r
0021460 ( O R ( E Q V A R T Y P
0021500 ( Q U O T E & K E Y ) ) \r
0021520
0021540 ( E R R O R " & A L L
0021560 O W - O T H E R - K E Y S n o
0021600 t i n & K E Y " ) ) ) \r
0021620 ( & K E Y
0021640 ( S E T Q V A R T Y P ( Q U
0021660 O T E & K E Y ) ) ) \r
0021700 ( S E L E C T Q
0021720 V A R T Y P \r
0021740 ( N I L " r e
0021760 q u i r e d " ( 006 002 p u s h 006
0022000 001 V R B L S B I N D I N G )
0022020 \r
0022040 ( 006 002 a
0022060 d d 006 001 C N T 1 ) \r
0022100
0022120 ( 006 002 a d d 006 001
0022140 M I N 1 ) \r
0022160
0022200 ( 006 002 a d d 006 001 M A X 1
0022220 ) \r
0022240 ( A N
0022260 D * C H E C K - A R G U M E N
0022300 T - C O U N T S * ( S E T Q
0022320 S I M P L E P N I L ) ) ) \r
0022340 (
0022360 & R E S T [ S E T Q R E S T
0022400 F O R M ( B Q U O T E ( ( (
0022420 \ , B I N D I N G ) \r
0022440
*
0022500 ( 006 002 f
0022520 o r 006 001 I 006 002 f r o m 006 001
0022540 ( \ , C N T ) 006 002 t o 006 001
0022560 - a r g s - \r
0022600
*
0022640 006 002 c o l l
0022660 e c t 006 001 ( A R G - a r g s
0022700 - I ] \r
0022720 ( S E T
0022740 Q M A X N I L ) \r
0022760
0023000 ( S E T Q S I M P L E P
0023020 N I L ) ) \r
0023040 ( & A U X ( 006 002 p
0023060 u s h 006 001 A U X L I S T B I
0023100 N D I N G ) ) \r
0023120 ( & K E Y [ L
0023140 E T * \r
0023160 [ S V A R
0023200 [ I N I T ( C O N D \r
0023220
*
0023260 ( ( L I S T P B I N D I
0023300 N G ) \r
0023320
0023340 ( P R O G
0023360 1 ( C A D R B I N D I N G )
0023400 \r
0023420
0023440 (
0023460 S E T Q S V A R ( C A D D R
0023500 B I N D I N G ) ) \r
0023520
*
0023560 ( S E T Q B
0023600 I N D I N G ( C A R B I N D
0023620 I N G ] \r
0023640
0023660 ( K E Y ( C O N D \r
0023700
*
0023740 [ ( L I S T P B I N D I N
0023760 G ) \r
0024000
0024020 ( P R O G 1
0024040 ( C A R B I N D I N G ) \r
0024060
*
0024120 ( S E T Q
0024140 B I N D I N G ( C A D R B
0024160 I N D I N G ] \r
0024200
0024220 ( T
0024240 ( M A K E - K E Y W O R D B I
0024260 N D I N G ] \r
0024300 [ C
0024320 O N D \r
0024340 ( S
0024360 V A R ( 006 002 p u s h 006 001 K E
0024400 Y V A R S ( L I S T S V A R
0024420 T ] \r
0024440 ( 006 002 p u
0024460 s h 006 001 \r
0024500 K E Y
0024520 V A R S \r
0024540 ( L I
0024560 S T B I N D I N G \r
0024600
0024620 ( B Q U O T E
0024640 \r
0024660
0024700 ( 006 002 f o r 006 001 \ I N D E X
0024720 006 002 f r o m 006 001 ( \ , C N T
0024740 ) 006 002 t o 006 001 - a r g s -
0024760 006 002 b y 006 001 2 \r
0025000
0025020 006 002 w h e
0025040 n 006 001 ( E Q ( A R G - a r
0025060 g s - \ I N D E X ) \r
0025100
*
0025140 ( \ , K E Y ) )
0025160 006 002 d o 006 001 ( R E T U R N
0025200 ( A R G - a r g s - ( A D D
0025220 1 \ I N D E X ) ) ) \r
0025240
0025260 006 002
0025300 f i n a l l y 006 001 ( R E T U R
0025320 N ( \ , ( C O N D \r
0025340
*
0025420 [ S V A R ( B Q U O
0025440 T E ( P R O G N ( S E T Q
0025460 ( \ , S V A R ) \r
0025500
*
0025600 N I L ) \r
0025620
*
0025720 ( \ ,
0025740 I N I T ] \r
0025760
*
0026020 (
0026040 T I N I T ] \r
0026060 ( S
0026100 E T Q M A X N I L ) \r
0026120
0026140 ( S E T Q S I M P L E P
0026160 N I L ) ) \r
0026200 ( & O P T I O N A
0026220 L ( O R ( L I S T P B I N
0026240 D I N G ) \r
0026260
0026300 ( S E T Q B I N D I
0026320 N G ( L I S T B I N D I N G
0026340 ) ) ) \r
0026360 [
0026400 L E T ( ( S V A R ( C A D D
0026420 R B I N D I N G ) ) ) \r
0026440
0026460 ( C L
0026500 : W H E N S V A R ( 006 002 p u
0026520 s h 006 001 O P T V A R S S V A
0026540 R ) \r
0026560
0026600 ( S E T Q
0026620 S I M P L E P N I L ) ) \r
0026640
0026660 ( C
0026700 L : W H E N ( C A D R B I N
0026720 D I N G ) \r
0026740
0026760 ( S E
0027000 T Q S I M P L E P N I L ) )
0027020 \r
0027040
0027060 ( 006 002 p u s h 006 001 O P T V A
0027100 R S \r
0027120
0027140 ( B Q U O T E
0027160 ( ( \ , ( C A R B I N D I
0027200 N G ) ) \r
0027220
*
0027260 ( C O N D \r
0027300
*
0027340 ( ( I G
0027360 R E A T E R P ( \ , C N T )
0027400 \r
0027420
*
0027460 - a r g s
0027500 - ) \r
0027520
*
0027560 ( \ , ( C A D R
0027600 B I N D I N G ) ) ) \r
0027620
*
0027660 ( T
0027700 [ \ , @ ( C O N D \r
0027720
*
0030000 ( S V A R ( B
0030020 Q U O T E ( ( S E T Q ( \ ,
0030040 S V A R ) \r
0030060
*
0030160 T ] \r
0030200
*
0030240 ( A R G
0030260 - a r g s - ( \ , C N T ]
0030300 \r
0030320 ( A N D
0030340 M A X ( 006 002 a d d 006 001 M A
0030360 X 1 ) ) \r
0030400
0030420 ( 006 002 a d d 006 001 C N T 1 )
0030440 ) \r
0030460 ( S H O U L D N T ] \r
0030500 ( M U L T I P L E - V A L U
0030520 E - S E T Q ( B O D Y D E C
0030540 L S ) \r
0030560 ( P A R S E - B O D Y ( C D R
0030600 ( C D R E X P R ) ) \r
0030620
0030640 N I L ) ) \r ( 006 002 C L
0030660 : I F 006 001 S I M P L E P [ B
0030700 Q U O T E ( L A M B D A [ (
0030720 \ , @ ( R E V E R S E V R B
0030740 L S ) ) \r
0030760
0031000 ( \ , @ (
0031020 M A P C A R ( R E V E R S E
0031040 O P T V A R S ) \r
0031060
*
0031120 ( 006 002 F U N
0031140 C T I O N 006 001 C A R ] \r
0031160
0031200 ( 006 002 D E
0031220 C L A R E 006 001 ( L O C A L V A
0031240 R S . T ) ) \r
0031260
0031300 ( \ , @ D E C L
0031320 S ) \r
0031340
0031360 ( L E T * ( ( \ , @ ( R E
0031400 V E R S E A U X L I S T ) ) )
0031420 \r
0031440
0031460 ( \ , @ D E C L S )
0031500 \r
0031520
0031540 ( \ , @ B O D Y ] \r
0031560 ( B Q U
0031600 O T E ( L A M B D A - a r g
0031620 s - \r
0031640 ( 006 002 D E C L
0031660 A R E 006 001 ( L O C A L V A R S
0031700 . T ) ) \r
0031720 [ \ ,
0031740 @ ( C O N D \r
0031760
0032000 ( ( A N D * C H E
0032020 C K - A R G U M E N T - C O U N
0032040 T S * M I N ( N E Q M I N
0032060 0 ) ) \r
0032100
0032120 ( B Q U O T E ( ( C O
0032140 N D \r
0032160
0032200 ( (
0032220 I L E S S P ( \ , ( Q U O T
0032240 E - a r g s - ) ) \r
0032260
*
0032320 ( \
0032340 , M I N ) ) \r
0032360
*
0032420 ( E R R O R " T o o
0032440 f e w a r g s " ( \ , ( Q
0032460 U O T E - a r g s - ] \r
0032500
0032520 [ \ , @ ( C O N D \r
0032540
0032560 ( ( A N
0032600 D * C H E C K - A R G U M E N
0032620 T - C O U N T S * M A X ) \r
0032640
0032660 ( B
0032700 Q U O T E ( ( C O N D \r
0032720
*
0032760 ( ( I G R E A T
0033000 E R P ( \ , ( Q U O T E -
0033020 a r g s - ) ) \r
0033040
*
0033100 ( \ , M
0033120 A X ) ) \r
0033140
*
0033200 ( E R R O R " T o o m a n
0033220 y a r g s " ( \ , ( Q U O
0033240 T E - a r g s - ] \r
0033260
0033300 ( L E T * ( [ \ , @ ( 006 002
0033320 f o r 006 001 V A R 006 002 i n 006 001
0033340 ( R E V E R S E V R B L S )
0033360 006 002 a s 006 001 I 006 002 f r o m
0033400 006 001 1 \r
0033420
0033440 006 002 c o l l
0033460 e c t 006 001 ( L I S T V A R
0033500 ( B Q U O T E ( A R G - a r
0033520 g s - ( \ , I ] \r
0033540
0033560 ( \ , @ ( R E
0033600 V E R S E O P T V A R S ) ) \r
0033620
0033640 ( \ ,
0033660 @ ( R E V E R S E K E Y V A
0033700 R S ) ) \r
0033720
0033740 ( \ , @ R E S T F O R M )
0033760 \r
0034000 ( \
0034020 , @ ( R E V E R S E A U X L
0034040 I S T ) ) ) \r
0034060
0034100 ( \ , @ D E C L S ) \r
0034120
0034140 ( \ , @
0034160 B O D Y ] ) \r ) \r ( D E F P A R
0034200 A M E T E R 006 002 * C H E C K -
0034220 A R G U M E N T - C O U N T S *
0034240 006 001 N I L ) \r \r \r ( P U T P R
0034260 O P S 006 002 C O M M O N - L I S
0034300 P D M A C R O 006 001 ( ( X ) \r
0034320
0034340 X )
0034360 ) \r ( D E F P A R A M E T E R
0034400 006 002 L A M B D A - L I S T - K E
0034420 Y W O R D S 006 001 ( Q U O T E
0034440 ( & O P T I O N A L & R E S T
0034460 & K E Y & A U X & B O D Y
0034500 & W H O L E & A L L O W - O
0034520 T H E R - K E Y S \r
0034540
*
0034600 & E N V
0034620 I R O N M E N T ) ) ) \r \r ( D
0034640 E F P A R A M E T E R 006 002 C A
0034660 L L - A R G U M E N T S - L I M
0034700 I T 006 001 5 1 2 ) \r \r ( D E F P
0034720 A R A M E T E R 006 002 L A M B D
0034740 A - P A R A M E T E R S - L I M
0034760 I T 006 001 5 1 2 ) \r \r ( D E F S
0035000 T R U C T 006 002 C L O S U R E 006
0035020 001 " A n i n t e r p r e t e
0035040 d l e x i c a l c l o s u r
0035060 e . C o n t a i n s t h e
0035100 f u n c t i o n a n d a n
0035120 e n v i r o n m e n t o b j e
0035140 c t " \r F U N C T I O N
0035160 E N V I R O N M E N T ) \r \r ( D
0035200 E F S T R U C T 006 002 E N V I R
0035220 O N M E N T 006 001 " A n e n v
0035240 i r o n m e n t u s e d b o
0035260 t h b y i n t e r p r e t e
0035300 r a n d m a c r o e x p a
0035320 n d e r " V A R S F U N C T
0035340 I O N S \r
0035360
*
0035460 B
0035500 L O C K S T A G S \r
0035520
*
0035640 P A R E N T \r
0035660
*
0036000 M A C R O S ) \r \r (
0036020 D E F I N E Q \r \r ( 006 004 C L : E
0036040 V A L 006 001 \r [ L A M B D A
0036060 ( E X P R E S S I O N E N V I
0036100 R O N M E N T ) \r ( 006 002
0036120 D E C L A R E 006 001 ( L O C A L
0036140 V A R S . T ) ) 006 003 006 001
0036160
0036200 006 003
0036220 ( * l m m " 3 - S e p - 8
0036240 6 1 0 : 1 0 " ) 006 001 \r
0036260 ( T Y P E C A S E E X P R E S
0036300 S I O N [ S Y M B O L ( C O
0036320 N D \r
0036340
0036360 ( ( N U L L E X
0036400 P R E S S I O N ) \r
0036420
0036440 N
0036460 I L ) \r
0036500
0036520 ( ( E Q E X P
0036540 R E S S I O N T ) \r
0036560
*
0036620 T ) \r
0036640
0036660 ( ( K E Y W O R D
0036700 P E X P R E S S I O N )
0036720 006 003 ( * \r 006 001
0036740
0036760 006 003 " w o u l d n
0037000 ' t n e e d t h i s i f
0037020 k e y w o r d s w e r e s e
0037040 t t o t h e m s e l v e s
0037060 w h e n g e n e r a t e d " )
0037100 006 001 \r
0037120
0037140 E X P R E S S I
0037160 O N ) \r
0037200
0037220 ( T ( 006 002 w h
0037240 i l e 006 001 E N V I R O N M E N
0037260 T 006 002 b i n d 006 001 L O C V
0037300 A L \r
0037320
0037340 006 002 d
0037360 o 006 001 ( 006 002 i f 006 001 ( S E T
0037400 Q L O C ( A S S O C E X P
0037420 R E S S I O N ( E N V I R O N
0037440 M E N T - V A R S \r
0037460
*
0037560 E
0037600 N V I R O N M E N T ) ) ) \r
0037620
*
0037660 006
0037700 002 t h e n 006 001 ( R E T U R N
0037720 ( C D R L O C ) ) \r
0037740
*
0040000 006 002 e l s e
0040020 006 001 ( S E T Q E N V I R O N
0040040 M E N T ( E N V I R O N M E N
0040060 T - P A R E N T E N V I R O N
0040100 M E N T \r
0040120
*
0040220 ) ) ) \r
0040240
*
0040300 006 002 f i n a l l y 006 001
0040320 006 003 ( * \r 006 001
0040340
*
0040420 006 003 " c o p i e d f r o m
0040440 \ E V A L V A R i n t h e
0040460 I n t e r l i s p i n t e r p
0040500 r e t e r " ) 006 001 \r
0040520
*
0040560 ( S E T Q
0040600 L O C ( \ S T K S C A N E X
0040620 P R E S S I O N ) ) \r
0040640
*
0040700 ( R E T U
0040720 R N ( C O N D \r
0040740
*
0041020 ( ( A N D ( E Q ( S
0041040 E T Q V A L ( \ G E T B A S
0041060 E P T R L O C 0 ) ) \r
0041100
*
0041200 ( Q U O T E N O B I N D )
0041220 ) \r
0041240
*
0041320 ( E Q ( F L O O R ( \
0041340 H I L O C L O C ) \r
0041360
*
0041460 2 ) \r
0041500
*
0041560 (
0041600 \ H I L O C \ V A L S P A C E
0041620 ) ) ) \r
0041640
*
0041720 006 003 ( * V a l u e i s N
0041740 O B I N D a n d i t w a s
0041760 f o u n d a s \r 006 001
0042000
*
0042060 006 003 t h e
0042100 t o p - l e v e l v a l u e )
0042120 006 001 \r
0042140
*
0042200 (
0042220 C L : E R R O R ( Q U O T E
0042240 U N B O U N D - V A R I A B L E
0042260 ) \r
0042300
*
0042360 : N A M E E X P R E
0042400 S S I O N ) ) \r
0042420
*
0042500 ( T V A L ] \r
0042520 [ C O N S ( 006 002 C
0042540 L : I F 006 001 ( C O N S P ( C
0042560 A R E X P R E S S I O N ) ) \r
0042600
0042620 [ L E T ( ( A
0042640 R G C O U N T 1 ) )
0042660 006 003 (
0042700 * " T h i s i s a v e r
0042720 y v e r y a w f u l h a c
0042740 k . " \r 006 001
0042760
0043000 006 003 " . C O
0043020 M P I L E R - S P R E A D - A R
0043040 G U M E N T S . i s h a n d
0043060 l e d s p e c i a l l y b y
0043100 t h e c o m p i l e r " \r
0043120 006 001
0043140
*
0043200 006
0043220 003 " i t i t e r a t e s o v
0043240 e r a l i s t p u s h i n
0043260 g t h i n g s " \r 006 001
0043300
*
0043360 006 003 " s e c
0043400 o n d l y , t h e ( O P C O
0043420 D E S ) d i r e c t l y c a
0043440 l l s " \r 006 001
0043460
*
0043540 006 003 E V A L - I N V O
0043560 K E - L A M B D A \r 006 001
0043600
0043620 006
0043640 003 " w i t h m o r e a r g s
0043660 t h a n a r e g i v e n ,
0043700 b l o w i n g a w a y t h
0043720 e f o l l o w i n g A P P L
0043740 Y F N " ) 006 001 \r
0043760
0044000 ( . C O M P I L E R -
0044020 S P R E A D - A R G U M E N T S
0044040 . ( C D R E X P R E S S I O
0044060 N ) \r
0044100
0044120 A R G C O U N T \r
0044140
*
0044200 ( ( O P C O D E S F N
0044220 3 0 ( F N . E V A L - I
0044240 N V O K E - L A M B D A ) \r
0044260
*
0044320 R E T U R N
0044340 ) \r
0044360
0044400 ( C A R E X P R
0044420 E S S I O N ) \r
0044440
0044460 E N V
0044500 I R O N M E N T ) \r
0044520
0044540 ( (
0044560 006 002 C L : E V A L 006 001 E N V I
0044600 R O N M E N T ] \r
0044620
0044640 ( C A S E ( A R G T Y P E
0044660 ( C A R E X P R E S S I O N )
0044700 ) \r
0044720
0044740 [ ( 0 2 ) \r
0044760
0045000 ( L E T ( ( A R G
0045020 C O U N T 0 ) ) \r
0045040
0045060 ( .
0045100 C O M P I L E R - S P R E A D -
0045120 A R G U M E N T S . ( C D R
0045140 E X P R E S S I O N ) \r
0045160
*
0045220 A R G C O U N T \r
0045240
*
0045300 ( C A R
0045320 E X P R E S S I O N ) \r
0045340
*
0045400 ( ( 006 002 C L : E V
0045420 A L 006 001 E N V I R O N M E N T
0045440 ] \r
0045460
0045500 ( T ( L E T [ ( T E M P (
0045520 G E T ( C A R E X P R E S S
0045540 I O N ) \r
0045560
*
0045620 ( Q U O T E S P
0045640 E C I A L - F O R M ] \r
0045660
*
0045720 ( C O N D \r
0045740
*
0046000 ( T E M P ( 006 002 F U N C A L
0046020 L 006 001 T E M P ( C D R E X
0046040 P R E S S I O N ) \r
0046060
*
0046140 E N V I R O N M E N T ) ) \r
0046160
*
0046220 ( ( S E T Q T E
0046240 M P ( M A C R O - F U N C T I
0046260 O N ( C A R E X P R E S S I
0046300 O N ) \r
0046320
*
0046400 E N V I R O N M E N T ) ) \r
0046420
*
0046460 ( 006 002 C L : E V
0046500 A L 006 001 ( M A C R O E X P A N
0046520 D - 1 E X P R E S S I O N E
0046540 N V I R O N M E N T ) \r
0046560
*
0046620 E N V
0046640 I R O N M E N T ) ) \r
0046660
*
0046720 ( T ( E R R O R " U
0046740 n d e f i n e d c a r o f
0046760 f o r m " E X P R E S S I O N
0047000 ] \r ( ( O
0047020 R N U M B E R S T R I N G
0047040 C H A R A C T E R B I T - V E
0047060 C T O R ) \r
0047100 E X P R E S S I O N ) \r
0047120 ( O T H E R W
0047140 I S E ( C E R R O R " r e t
0047160 u r n t h e e x p r e s s i
0047200 o n a s i t s o w n v a
0047220 l u e " " ~ s i n v a l i d
0047240 f o r m f o r E V A L . "
0047260 \r
0047300 E
0047320 X P R E S S I O N ) \r
0047340 E X P
0047360 R E S S I O N ] ) \r \r ( 006 004 E V
0047400 A L - I N V O K E - L A M B D A
0047420 006 001 \r [ L A M B D A ( N
0047440 L A M E N V I R O N M E N T )
0047460 006 003 006 001
0047500
0047520 006 003 ( * P a v e l "
0047540 6 - O c t - 8 6 1 9 : 4 8 "
0047560 ) 006 001 \r ( L E T [ ( A
0047600 R G B L O C K ( A D D S T A C
0047620 K B A S E ( - ( 006 002 f e t c
0047640 h 006 001 ( F X N E X T B L O C
0047660 K ) 006 002 o f 006 001 ( \ M Y A L
0047700 I N K ) ) \r
0047720
0047740 ( + ( D
0047760 E C F N ) \r
0050000
0050020 N
0050040 ] 006 003 006 001 006 003 (
0050060 * ; ; " F i r s t s u b -
0050100 f o r m i s a l i s t o
0050120 f ( v a r i a b l e i n i t
0050140 i a l i z a t i o n ) p a i r
0050160 s . I n i t i a l i z e s
0050200 t h e v a r i a b l e s , b
0050220 i n d i n g t h e m t o n
0050240 e w v a l u e s a l l a t
0050260 o n c e , t h e n e x e c
0050300 u t e s t h e r e m a i n i
0050320 n g f o r m s a s i n a
0050340 P R O G N . " ) 006 001 \r
0050360 ( M U L T I P L E - V
0050400 A L U E - B I N D ( B O D Y
0050420 D E C L S ) \r
0050440 ( P A R S E - B O
0050460 D Y ( C D D R L A M ) \r
0050500
0050520 E N V I R O N M E N T
0050540 ) \r
0050560 ( 006 002 \ I N T E R P R E T -
0050600 A R G U M E N T S 006 001 " a L
0050620 A M B D A a s t h e C A R
0050640 o f a f o r m " ( E C A
0050660 S E ( C A R L A M ) \r
0050700
*
0051000 ( [ L A M B
0051020 D A ] \r
0051040
*
0051140 ( Q U O T E & I N T E R L
0051160 I S P ) ) \r
0051200
*
0051300 ( ( C L : L A M B D A ) \r
0051320
*
0051420 ( Q
0051440 U O T E & R E Q U I R E D ) )
0051460 ) \r
0051500 ( C A D R L
0051520 A M ) \r
0051540 D E C L S
0051560 \r
0051600 ( M A K E - E N
0051620 V I R O N M E N T : P A R E N
0051640 T E N V I R O N M E N T ) \r
0051660
0051700 B O D Y A R G B L
0051720 O C K N 0 ] ) \r \r ( 006 004 \ I
0051740 N T E R P R E T - A R G U M E N
0051760 T S 006 001 \r [ L A M B D A (
0052000 \ F N - N A M E \ A R G T Y P
0052020 E \ A R G L I S T \ D E C L
0052040 A R A T I O N S \ E N V I R O
0052060 N M E N T \ B O D Y \ A R G
0052100 U M E N T - B L O C K \ L E N
0052120 G T H \ I N D E X \r
0052140 ) 006 003 006
0052160 001
0052200
0052220 006 003 ( *
0052240 P a v e l " 6 - O c t - 8
0052260 6 1 9 : 4 8 " ) 006 001 006 003 006 001 \r
0052300
*
0052360 006 003 ( * ; ; " W r i t t
0052400 e n i n a s o m e w h a t
0052420 a r c a n e s t y l e t o
0052440 a v o i d r e c u r s i v e
0052460 c a l l s w h e n e v e r
0052500 p o s s i b l e , & k e e p
0052520 c o d e i n l i n e . R E
0052540 C U R d o e s a r e c u r
0052560 s i v e c a l l i f u n d
0052600 e r a P R O G V , b u t
0052620 o t h e r w i s e d o e s a
0052640 G O . " ) 006 001 \r ( M
0052660 A C R O L E T \r [ [ R
0052700 E C U R ( T A G ) \r
0052720 ( B Q U O T E
0052740 ( G O ( \ , T A G ] \r
0052760 ( W I T H - B I N D I N G
0053000 \r ( V A R V A L
0053020 & R E S T F O R M S ) \r
0053040 ( B Q U O T E ( P R
0053060 O G N ( 006 002 C H E C K - B I N
0053100 D A B L E 006 001 ( \ , V A R )
0053120 ) \r
0053140 ( 006 002 C L : I F
0053160 006 001 ( O R ( 006 002 D E C L A R
0053200 E D - S P E C I A L 006 001 ( \ ,
0053220 V A R ) \r
0053240
0053260 \ D
0053300 E C L A R A T I O N S ) \r
0053320
0053340 ( V
0053360 A R I A B L E - G L O B A L L Y
0053400 - S P E C I A L - P ( \ , V
0053420 A R ) ) ) \r
0053440
0053460 ( M A C R O L E T \r
0053500
0053520 [ ( R E C
0053540 U R ( T A G ) \r
0053560
0053600 (
0053620 B Q U O T E ( 006 002 \ I N T E R
0053640 P R E T - A R G U M E N T S 006 001
0053660 \r
0053700
*
0053740 \ F N - N A M E \r
0053760
*
0054020 [ \ , ( 006 002 C
0054040 L : I F 006 001 ( E Q T A G (
0054060 Q U O T E I N - K E Y W O R D
0054100 S ) ) \r
0054120
*
0054160 ( Q
0054200 U O T E \ A R G T Y P E ) \r
0054220
*
0054300 ( B Q U O T E
0054320 ( Q U O T E ( \ , T A G ]
0054340 \r
0054360
*
0054420 \ A R G L I S T \ D E C L A R
0054440 A T I O N S \ E N V I R O N M
0054460 E N T \ B O D Y \r
0054500
*
0054540 \ A R G U M
0054560 E N T - B L O C K \ L E N G T
0054600 H \ I N D E X ] \r
0054620
0054640 ( P R O G V (
0054660 L I S T ( \ , V A R ) ) \r
0054700
*
0054740 ( L I S T ( \ , V A
0054760 L ) ) \r
0055000
0055020 ( \ , @ F O
0055040 R M S ) ) ) \r
0055060
0055100 ( P R O G N ( C L : P
0055120 U S H ( C O N S ( \ , V A
0055140 R ) \r
0055160
*
0055220 ( \ , V A L ) ) \r
0055240
*
0055300 ( E N V I
0055320 R O N M E N T - V A R S \ E N
0055340 V I R O N M E N T ) ) \r
0055360
*
0055420 ( \ , @ F O R M S ] \r
0055440 ( P R O G ( V A R V A L
0055460 S V A R S P ) 006 003 006 001
0055500
0055520 006 003 ( * ; ; " d i s p a
0055540 t c h o n i n p u t t y p
0055560 e . T h e i n - k e y w o r
0055600 d s c a s e i s s p e c i
0055620 a l , s i n c e i t n e e
0055640 d s t o p a s s d o w n
0055660 w h e r e t h e b e g i n n
0055700 i n g o f t h e k e y w o
0055720 r d s s e c t i o n i s " )
0055740 006 001 \r ( C
0055760 A S E \ A R G T Y P E ( & R
0056000 E Q U I R E D ( G O & R E Q
0056020 U I R E D ) ) \r
0056040 ( & O P T I O
0056060 N A L ( G O & O P T I O N A
0056100 L ) ) \r
0056120 ( & I N T E R L I S P
0056140 ( G O & I N T E R L I S P )
0056160 ) \r
0056200 ( & R E S T ( G O & R
0056220 E S T ) ) \r
0056240 ( & K E Y ( G O
0056260 & K E Y ) ) \r
0056300 ( & A U X (
0056320 G O & A U X ) ) \r
0056340 ( & B O D
0056360 Y ( G O & B O D Y ) ) \r
0056400 (
0056420 T ( G O I N - K E Y W O R D
0056440 S ) ) ) \r & R E Q
0056460 U I R E D \r
0056500 [ R E T U R N \r
0056520 ( C O N D \r
0056540 ( ( N U L L
0056560 \ A R G L I S T ) \r
0056600 ( 006 002 C L
0056620 : I F 006 001 ( < \ I N D E X
0056640 \ L E N G T H ) \r
0056660
0056700 ( C L : E R R O R ( Q U O T E
0056720 T O O - M A N Y - A R G U M E
0056740 N T S ) \r
0056760
0057000 : C A L L E E \ F N - N
0057020 A M E : A C T U A L \ L E N
0057040 G T H : M A X I M U M \ I N
0057060 D E X ) ) \r
0057100 ( R E C U R & B O
0057120 D Y ) ) \r
0057140 ( T ( C A S E ( S E
0057160 T Q V A R ( 006 002 p o p 006 001
0057200 \ A R G L I S T ) ) \r
0057220
0057240 ( & O P T I O N A L ( R
0057260 E C U R & O P T I O N A L ) )
0057300 \r
0057320 ( & R E S T
0057340 ( R E C U R & R E S T ) ) \r
0057360
0057400 ( & A U X ( R E
0057420 C U R & A U X ) ) \r
0057440
0057460 ( & K E Y ( R E C U R
0057500 & K E Y ) ) \r
0057520 (
0057540 T [ C O N D \r
0057560
0057600 ( ( > = \ I N D E
0057620 X \ L E N G T H ) \r
0057640
0057660 ( C L : E R
0057700 R O R ( Q U O T E T O O - F
0057720 E W - A R G U M E N T S ) \r
0057740
*
0060000 : C A L L E E \ F N -
0060020 N A M E : A C T U A L \ L E
0060040 N G T H : M I N I M U M \r
0060060
*
0060120 ( + 1 \ I N D E X \r
0060140
*
0060200 ( 006 002 F O R 006
0060220 001 A R G 006 002 I N 006 001 \ A R
0060240 G L I S T \r
0060260
*
0060320 006 002 W H I L E 006 001 [ N O T
0060340 ( F M E M B A R G ( Q U O
0060360 T E ( & O P T I O N A L & R
0060400 E S T & A U X & K E Y ] \r
0060420
*
0060460 006 002 S U M
0060500 006 001 1 ] \r
0060520
0060540 [ S E T Q V A L ( A R G -
0060560 R E F \ A R G U M E N T - B L
0060600 O C K ( P R O G 1 \ I N D E
0060620 X ( I N C F \ I N D E X ] \r
0060640
0060660 ( W I T H
0060700 - B I N D I N G V A R V A L
0060720 ( R E C U R & R E Q U I R E
0060740 D ] \r & O P T I O
0060760 N A L \r [
0061000 R E T U R N ( C O N D \r
0061020
0061040 ( ( N U L L \ A R G L I
0061060 S T ) \r
0061100 ( 006 002 C L
0061120 : I F 006 001 ( < \ I N D E X
0061140 \ L E N G T H ) \r
0061160
0061200 ( C L : E R R O R
0061220 ( Q U O T E T O O - M A N Y
0061240 - A R G U M E N T S ) \r
0061260
*
0061320 : C A L L E E \ F N - N A M
0061340 E : A C T U A L \ L E N G T
0061360 H : M A X I M U M \ I N D E
0061400 X ) ) \r
0061420 ( R E C U
0061440 R & B O D Y ) ) \r
0061460
0061500 ( T ( C A S E ( S E T Q V
0061520 A R ( 006 002 p o p 006 001 \ A R G
0061540 L I S T ) ) \r
0061560
0061600 ( & R E S T ( R E
0061620 C U R & R E S T ) ) \r
0061640
0061660 ( & A U X
0061700 ( R E C U R & A U X ) ) \r
0061720
0061740 ( &
0061760 K E Y ( R E C U R & K E Y )
0062000 ) \r
0062020
0062040 ( T ( 006 002 C L : I F 006 001 (
0062060 > = \ I N D E X \ L E N G T
0062100 H ) \r
0062120
0062140 ( 006 002 C
0062160 L : I F 006 001 ( C O N S P V A
0062200 R ) \r
0062220
*
0062260 ( P R O G N ( S E T Q
0062300 V A L ( 006 002 C L : E V A L 006 001
0062320 ( C A D R V A R ) \r
0062340
*
0062440 \ E N V I R O N M E N T
0062460 ) ) \r
0062500
*
0062540 ( S E T Q
0062560 S V A R ( C A D D R V A R )
0062600 ) \r
0062620
*
0062660 ( S E T Q V
0062700 A R ( C A R V A R ) ) \r
0062720
*
0063000 ( S E T Q S P N I
0063020 L ) ) \r
0063040
*
0063100 ( S E T Q V A L N I
0063120 L ) ) \r
0063140
0063160 ( P R
0063200 O G N [ C O N D \r
0063220
*
0063260 ( ( C
0063300 O N S P V A R ) \r
0063320
*
0063360 ( S
0063400 E T Q S V A R ( C A D D R
0063420 V A R ) ) \r
0063440
*
0063500 ( S E T Q
0063520 S P T ) \r
0063540
*
0063600 ( S E T Q
0063620 V A R ( C A R V A R ] \r
0063640
*
0063700 ( S
0063720 E T Q V A L ( A R G - R E F
0063740 \ A R G U M E N T - B L O C K
0063760 \ I N D E X ) ) \r
0064000
*
0064040 ( I N C F
0064060 \ I N D E X ) ) ) \r
0064100
0064120 ( W I T
0064140 H - B I N D I N G V A R V A
0064160 L ( 006 002 C L : I F 006 001 S V A
0064200 R ( W I T H - B I N D I N G
0064220 S V A R S P \r
0064240
*
0064340 ( R E C U R & O P T I O
0064360 N A L ) ) \r
0064400
*
0064460 ( R E C U R & O P T
0064500 I O N A L ] \r & I
0064520 N T E R L I S P \r
0064540 [ R E T U R N ( C O N
0064560 D \r
0064600 ( ( N U L L \
0064620 A R G L I S T ) \r
0064640
0064660 ( R E C U R & B O D Y ) ) \r
0064700
0064720 ( T ( S E T Q V A
0064740 R ( 006 002 p o p 006 001 \ A R G L
0064760 I S T ) ) \r
0065000 (
0065020 006 002 C L : I F 006 001 ( > = \ I
0065040 N D E X \ L E N G T H ) \r
0065060
0065100 ( S
0065120 E T Q V A L N I L ) \r
0065140
0065160 ( P R
0065200 O G N ( S E T Q V A L ( A
0065220 R G - R E F \ A R G U M E N T
0065240 - B L O C K \ I N D E X ) ) \r
0065260
*
0065320 ( I N C F \ I N
0065340 D E X ) ) ) \r
0065360
0065400 ( W I T H - B I N D I N G V A
0065420 R V A L ( R E C U R & I N
0065440 T E R L I S P ] \r
0065460 & R E S T \r
0065500 ( S E T Q V A R ( 006 002 p o
0065520 p 006 001 \ A R G L I S T ) ) \r
0065540 ( S E T Q
0065560 V A L ( 006 002 f o r 006 001 I 006
0065600 002 f r o m 006 001 \ I N D E X 006
0065620 002 w h i l e 006 001 ( < I \ L
0065640 E N G T H ) 006 002 c o l l e c t
0065660 006 001 ( A R G - R E F \ A R G
0065700 U M E N T - B L O C K I ) ) )
0065720 \r [ R E T
0065740 U R N ( W I T H - B I N D I N
0065760 G V A R V A L ( 006 002 C L :
0066000 I F 006 001 ( N U L L \ A R G L
0066020 I S T ) \r
0066040
*
0066100 ( R E C U R & B O D
0066120 Y ) \r
0066140
*
0066200 ( C A S E ( 006 002 p o p 006
0066220 001 \ A R G L I S T ) \r
0066240
*
0066320 ( & A U X ( R E C U R &
0066340 A U X ) ) \r
0066360
*
0066420 ( & K E
0066440 Y ( R E C U R & K E Y ) ) \r
0066460
*
0066540 ( T ( C L : E R R
0066560 O R ( Q U O T E I N V A L I
0066600 D - A R G U M E N T - L I S T )
0066620 \r
0066640
*
0066720 : C A L L E E \ F N - N A M
0066740 E ] \r & K E Y \r
0066760 ( O R ( E
0067000 V E N P ( - \ L E N G T H
0067020 \ I N D E X ) ) \r
0067040 ( C L : E R R O
0067060 R " N o t a n e v e n n
0067100 u m b e r o f a r g u m e n
0067120 t s f o r & K E Y " ) ) \r
0067140 ( S E T Q
0067160 \ A R G T Y P E \ A R G L I S
0067200 T ) 006 003 006 001
0067220 006 003 ( * ; \r 006 001
0067240
*
0067320 006 003 " T y p e i s n o w t
0067340 h e b e g i n n i n g o f
0067360 t h e k e y w o r d a r g u
0067400 m e n t s " ) 006 001 \r
0067420 I N - K E Y W O R D S \r
0067440 [ R E T U R N \r
0067460 ( C O N
0067500 D \r
0067520 ( ( N U L L \ A R G L I S T
0067540 ) \r
0067560 ( 006 002 C H E C K - K E Y W O
0067600 R D S 006 001 \ A R G T Y P E \
0067620 A R G U M E N T - B L O C K \
0067640 L E N G T H \ I N D E X ) \r
0067660 (
0067700 R E C U R & B O D Y ) ) \r
0067720 ( T
0067740 ( C A S E ( S E T Q V A R
0067760 ( 006 002 p o p 006 001 \ A R G L I S
0070000 T ) ) \r
0070020 ( & A U
0070040 X ( 006 002 C H E C K - K E Y W O
0070060 R D S 006 001 \ A R G T Y P E \
0070100 A R G U M E N T - B L O C K \
0070120 L E N G T H \ I N D E X ) \r
0070140
0070160 ( R E
0070200 C U R & A U X ) ) \r
0070220
0070240 [ & A L L O W - O T H E R
0070260 - K E Y S ( 006 002 C L : I F 006 001
0070300 ( N U L L \ A R G L I S T )
0070320 \r
0070340
*
0070400 ( R E C U R & B O D Y )
0070420 \r
0070440
*
0070500 ( C A S E ( 006 002 p o p 006
0070520 001 \ A R G L I S T ) \r
0070540
*
0070620 ( & A U X ( R E C U R
0070640 & A U X ) ) \r
0070660
*
0070740 ( T ( C L : E R R O R ( Q U
0070760 O T E I N V A L I D - A R G U
0071000 M E N T - L I S T ) \r
0071020
*
0071100 : C A
0071120 L L E E \ F N - N A M E ] \r
0071140
0071160 ( T ( C O N D \r
0071200
0071220 ( (
0071240 C O N S P V A R ) \r
0071260
0071300 ( S E T Q
0071320 V A L ( C A D R V A R ) ) \r
0071340
0071360 (
0071400 S E T Q S V A R ( C A D D R
0071420 V A R ) ) \r
0071440
0071460 ( S E T Q V A R
0071500 ( C A R V A R ) ) ) \r
0071520
0071540 ( T ( S E
0071560 T Q S V A R N I L ) \r
0071600
0071620 ( S
0071640 E T Q V A L N I L ) ) ) \r
0071660
0071700 ( L E T [
0071720 ( K E Y ( 006 002 C L : I F 006 001
0071740 ( C O N S P V A R ) \r
0071760
*
0072020 ( P R O G 1
0072040 ( C A R V A R ) \r
0072060
*
0072120 ( S
0072140 E T Q V A R ( C A D R V A
0072160 R ) ) ) \r
0072200
*
0072240 ( M A K E - K E Y W O R D
0072260 V A R ] \r
0072300
0072320 ( 006 002 f o r 006 001 I
0072340 006 002 f r o m 006 001 \ I N D E X
0072360 006 002 w h i l e 006 001 ( < I \
0072400 L E N G T H ) 006 002 b y 006 001 2
0072420 \r
0072440
0072460 006 002 d o 006 001 [ 006 002 C L
0072500 : I F 006 001 ( E Q ( A R G - R
0072520 E F \ A R G U M E N T - B L O
0072540 C K I ) \r
0072560
*
0072620 K E Y ) \r
0072640
*
0072700 ( R E T U R N
0072720 ( P R O G N ( S E T Q V A
0072740 L ( A R G - R E F \ A R G U
0072760 M E N T - B L O C K \r
0073000
*
0073100 ( + I 1 ) )
0073120 ) \r
0073140
*
0073200 ( S
0073220 E T Q S P T ] \r
0073240
0073260 006 002 f
0073300 i n a l l y 006 001 ( S E T Q V
0073320 A L ( 006 002 C L : E V A L 006 001
0073340 V A L \ E N V I R O N M E N T
0073360 ) ) \r
0073400
0073420 ( S E T
0073440 Q S P N I L ) ) ) \r
0073460
0073500 ( W I T H - B I N
0073520 D I N G V A R V A L ( 006 002
0073540 C L : I F 006 001 S V A R ( W I
0073560 T H - B I N D I N G S V A R
0073600 S P ( R E C U R I N - K E Y
0073620 W O R D S \r
0073640
*
0073760 ) ) \r
0074000
*
0074040 ( R E C U
0074060 R I N - K E Y W O R D S ] \r
0074100 & A U X \r
0074120 [ R E T U R N ( C
0074140 O N D \r
0074160 ( ( N U L L
0074200 \ A R G L I S T ) \r
0074220
0074240 ( R E C U R & B O D Y ) )
0074260 \r
0074300 ( T ( S E T Q
0074320 V A R ( 006 002 p o p 006 001 \ A R
0074340 G L I S T ) ) \r
0074360
0074400 ( 006 002 C L : I F 006 001 ( C O N
0074420 S P V A R ) \r
0074440
0074460 ( P R O G N (
0074500 S E T Q V A L ( 006 002 C L : E
0074520 V A L 006 001 ( C A D R V A R )
0074540 \r
0074560
*
0074620 \ E N V I R O
0074640 N M E N T ) ) \r
0074660
0074700 (
0074720 S E T Q V A R ( C A R V A
0074740 R ) ) ) \r
0074760
0075000 ( S E T Q V A L N
0075020 I L ) ) \r
0075040 ( W
0075060 I T H - B I N D I N G V A R
0075100 V A L ( R E C U R & A U X ]
0075120 \r & B O D Y \r
0075140 ( R E T U R N
0075160 ( 006 002 C L : I F 006 001 ( N U L
0075200 L ( C D R \ B O D Y ) ) \r
0075220
0075240 ( 006 002 C L : I
0075260 F 006 001 ( C O N S P ( S E T Q
0075300 \ B O D Y ( C A R \ B O D
0075320 Y ) ) ) \r
0075340
0075360 ( C A S E ( C A R
0075400 \ B O D Y ) \r
0075420
0075440 (
0075460 006 002 C L : B L O C K 006 001 006 003 006
0075500 001 006 003 ( * ; ; " s p e c i
0075520 a l c a s e t o h a n d l
0075540 e B L O C K t o a v o i d
0075560 c o n s i n g t w o e n v
0075600 i r o n m e n t s j u s t t
0075620 o e n t e r a n o r m a l
0075640 L A M B D A f u n c t i o n
0075660 " ) 006 001 \r
0075700
*
0075740 ( S E T F ( E N V I R O
0075760 N M E N T - B L O C K S \ E N
0076000 V I R O N M E N T ) \r
0076020
*
0076060 (
0076100 S E T Q \ B O D Y ( C D R
0076120 \ B O D Y ) ) ) \r
0076140
*
0076200 ( 006 002 C A T C H 006
0076220 001 \ E N V I R O N M E N T (
0076240 006 002 E V A L - P R O G N 006 001 (
0076260 C D R \ B O D Y ) \r
0076300
*
0076400 \ E N V I R O N M E N T
0076420 ) ) ) \r
0076440
0076460 ( T ( 006
0076500 002 C L : E V A L 006 001 \ B O D Y
0076520 \ E N V I R O N M E N T ) ) )
0076540 \r
0076560
0076600 ( 006 002 C L : E V A L 006 001 \
0076620 B O D Y \ E N V I R O N M E N
0076640 T ) ) \r
0076660 ( P
0076700 R O G N ( 006 002 C L : E V A L 006
0076720 001 ( 006 002 p o p 006 001 \ B O D Y
0076740 ) \r
0076760
0077000 \ E N V I R
0077020 O N M E N T ) \r
0077040
0077060 ( R E C U R
0077100 & B O D Y ] ) \r \r ( 006 004 \ I N T
0077120 E R P R E T E R - L A M B D A 006
0077140 001 \r [ L A M B D A ( N D
0077160 E F E N V F N ) 006 003 006 001
0077200
*
0077240 006 003 ( * P a v e l "
0077260 6 - O c t - 8 6 1 7 : 2 1 " )
0077300 006 001 \r ( L E T [ ( A R
0077320 G B L O C K ( A D D S T A C K
0077340 B A S E ( 006 002 f e t c h 006 001
0077360 ( B F I V A R ) 006 002 o f 006 001
0077400 ( 006 002 f e t c h 006 001 ( F X
0077420 B L I N K ) 006 002 o f 006 001 ( \
0077440 M Y A L I N K ] \r
0077460 ( M U L T I P L E - V A L U
0077500 E - B I N D ( B O D Y D E C
0077520 L S ) \r
0077540 ( P A R S E - B O D Y
0077560 ( C D R ( C D R D E F ) ) \r
0077600
0077620 N I L ) \r
0077640 ( 006 002 \
0077660 I N T E R P R E T - A R G U M E
0077700 N T S 006 001 F N ( Q U O T E
0077720 & R E Q U I R E D ) \r
0077740
0077760 ( C A R ( C D R D E F )
0100000 ) \r
0100020 D E C L S \r
0100040
0100060 ( M A K E - E N V I
0100100 R O N M E N T : P A R E N T
0100120 E N V ) \r
0100140 B O D Y
0100160 A R G B L O C K ( - N 1
0100200 ) \r
0100220 0 ] ) \r \r ( 006
0100240 004 C H E C K - B I N D A B L E 006
0100260 001 \r [ L A M B D A ( V A R
0100300 ) 006 003 006 001
0100320
*
0100360 006 003 ( * l m m " 2 0 -
0100400 J u l - 8 6 1 5 : 1 6 " ) 006 001
0100420 \r
0100440
*
0100500 006 003
0100520 ( * " 1 9 - J u l - 8 6 1 5
0100540 : 5 6 " ) 006 001 \r ( C L :
0100560 U N L E S S ( S Y M B O L P
0100600 V A R ) \r
0100620 ( C L : E R R O R " a t t e m
0100640 p t t o b i n d a n o n
0100660 - s y m b o l : ~ A " V A R
0100700 ) ) \r ( C L : W H E N
0100720 ( O R ( 006 002 C O N S T A N T P
0100740 006 001 V A R ) \r
0100760 ( F M E M B
0101000 V A R L A M B D A - L I S T -
0101020 K E Y W O R D S ) ) \r
0101040 ( C L : E R R O R
0101060 ( 006 002 C L : I F 006 001 ( K E Y W
0101100 O R D P V A R ) \r
0101120
0101140 " a t t e m p t t
0101160 o b i n d a k e y w o r d
0101200 : ~ A " " a t t e m p t t
0101220 o b i n d a c o n s t a n
0101240 t : ~ A " ) \r
0101260 V A R ) ) \r
0101300 ( C L : W H E N ( V A
0101320 R I A B L E - G L O B A L - P
0101340 V A R ) \r
0101360 ( C E R R O R " G o a h e a
0101400 d a n d b i n d i t a n
0101420 y w a y " " A t t e m p t t
0101440 o b i n d a v a r i a b l
0101460 e p r o c l a i m e d g l o
0101500 b a l " V A R ) ) \r V
0101520 A R ] ) \r \r ( 006 004 C H E C K - K
0101540 E Y W O R D S 006 001 \r [ L A M
0101560 B D A ( K E Y - A R G U M E N
0101600 T S A R G B L O C K L E N G
0101620 T H N ) 006 003 006 001
0101640 006 003 ( *
0101660 l m m " 2 0 - J u l - 8 6 1
0101700 3 : 3 3 " ) 006 001 \r
0101720
*
0102000 006 003 ( * " 1 9 - J
0102020 u l - 8 6 2 2 : 4 2 " ) 006 001 \r
0102040
*
0102120 006 003 (
0102140 * " c h e c k t o s e e
0102160 i f a n y k e y w o r d s
0102200 i n A R G B L O C K a r e
0102220 n o t i n t h e k e y s
0102240 - n o t c a l l e d i f
0102260 & A L L O W - O T H E R - K E Y
0102300 S w a s s e t " ) 006 001 \r
0102320 ( 006 002 C L : B L O C K 006 001
0102340 C H E C K - K E Y S ( L E T
0102360 ( B A D K E Y W O R D ) \r
0102400
0102420 [ C L : D
0102440 O ( ( I N ( + I 2 ) )
0102460 ) \r
0102500
0102520 ( ( > = I L E
0102540 N G T H ) ) \r
0102560
0102600 ( L E T
0102620 ( ( G I V E N - K E Y ( A R
0102640 G - R E F A R G B L O C K I
0102660 ) ) ) \r
0102700
0102720 ( 006
0102740 002 C L : I F 006 001 ( E Q G I V
0102760 E N - K E Y : A L L O W - O T
0103000 H E R - K E Y S ) \r
0103020
*
0103060 ( 006 002 C L
0103100 : I F 006 001 ( A R G - R E F A
0103120 R G B L O C K ( 1 + I ) ) \r
0103140
*
0103220 ( 006 002 R E T U R
0103240 N - F R O M 006 001 C H E C K - K
0103260 E Y S N I L ) \r
0103300
*
0103360 N I L ) \r
0103400
*
0103440 ( C L : D O ( (
0103460 K E Y T A I L K E Y - A R G U
0103500 M E N T S ( C D R K E Y T A
0103520 I L ) ) ) \r
0103540
*
0103600 ( (
0103620 O R ( N U L L K E Y T A I L
0103640 ) \r
0103660
*
0103720 (
0103740 E Q ( C A R K E Y T A I L )
0103760 \r
0104000
*
0104060 ( Q U O T E & A U X ) ) )
0104100 \r
0104120
*
0104160 006 003
0104200 ( * " g o t t o e n d o
0104220 f k e y w o r d s e g m e n
0104240 t " ) 006 001 \r
0104260
*
0104320 (
0104340 S E T Q B A D K E Y W O R D
0104360 G I V E N - K E Y ) ) \r
0104400
*
0104460 ( L E T ( ( W A N T E
0104500 D - K E Y ( C A R K E Y T A
0104520 I L ) ) ) \r
0104540
*
0104620 [ C L : W H E N ( C O N
0104640 S P W A N T E D - K E Y ) \r
0104660
*
0104760 ( S E T Q W A N T E D -
0105000 K E Y ( C A R W A N T E D -
0105020 K E Y ) \r
0105040
*
0105120 ) \r
0105140
*
0105240 ( C L : W H E N ( C O N S P
0105260 W A N T E D - K E Y ) \r
0105300
*
0105400 ( S E T Q W A N
0105420 T E D - K E Y \r
0105440
*
0105540 ( C A R W A N T E D -
0105560 K E Y ] \r
0105600
*
0105660 ( 006 002 C L : I F 006 001 ( E Q
0105700 ( M A K E - K E Y W O R D W
0105720 A N T E D - K E Y ) \r
0105740
*
0106040 G I V E N - K E Y ) \r
0106060
*
0106160 ( R E T U R N N I L ] \r
0106200
0106220 ( 006 002
0106240 C L : I F 006 001 B A D K E Y W O
0106260 R D ( C L : E R R O R \r
0106300
*
0106340 " K e y w o r d a r
0106360 g u m e n t d o e s n ' t m
0106400 a t c h e x p e c t e d l i
0106420 s t o f k e y w o r d s :
0106440 ~ A " \r
0106460
*
0106520 B A D K
0106540 E Y W O R D ] ) \r ) \r ( D E F M
0106560 A C R O 006 002 A R G - R E F 006 001
0106600 ( B L O C K N ) ( B Q U O
0106620 T E ( \ G E T B A S E P T R
0106640 ( \ , B L O C K ) \r
0106660
*
0106720 ( L L S H ( \ ,
0106740 N ) \r
0106760
*
0107020 1 ) ) ) ) \r \r \r ( P U T
0107040 P R O P S 006 002 . C O M P I L E
0107060 R - S P R E A D - A R G U M E N
0107100 T S . D M A C R O 006 001 ( A P
0107120 P L Y C O M P . S P R E A D )
0107140 ) \r ( D E F I N E Q \r \r ( 006 004 D
0107160 E C L A R E D - S P E C I A L 006
0107200 001 \r [ L A M B D A ( V A R
0107220 D E C L S ) 006 003 006 001
0107240
*
0107300 006 003 ( * l m m " 2 4 -
0107320 M a y - 8 6 2 2 : 2 7 " ) 006 001
0107340 \r ( A N D D E C L S
0107360 ( O R ( A N D ( L I S T P
0107400 ( C A R D E C L S ) ) \r
0107420
0107440 ( E Q ( C A A R D
0107460 E C L S ) \r
0107500
0107520 ( Q U O T E D E C L A R E
0107540 ) ) \r
0107560 ( 006 002 f o
0107600 r 006 001 D E C 006 002 i n 006 001 (
0107620 C D A R D E C L S ) 006 002 w h
0107640 e n 006 001 ( A N D ( E Q ( C
0107660 A R D E C ) \r
0107700
*
0107760 ( Q U O T E S P
0110000 E C I A L ) ) \r
0110020
*
0110100 ( F M E M B V A R ( C
0110120 D R D E C ) ) ) \r
0110140
0110160 006 002 d o 006 001 ( R E T
0110200 U R N T ) ) ) \r
0110220 ( 006 002 D
0110240 E C L A R E D - S P E C I A L 006
0110260 001 V A R ( C D R D E C L S
0110300 ] ) \r \r ( 006 004 E V A L H O O K 006
0110320 001 \r ( C L : L A M B D A (
0110340 F O R M E V A L H O O K F N
0110360 A P P L Y H O O K F N & O P T
0110400 I O N A L E N V ) 006 003 006 001
0110420 006 003 ( * l m m " 2 -
0110440 M a y - 8 6 2 2 : 2 3 " ) 006 001
0110460 \r
0110500
*
0110540 006 003
0110560 ( * E v a l u a t e s F o r
0110600 m w i t h * E v a l h o o k
0110620 * \r 006 001
0110640
*
0110720 006 003 b o u n d t o E v a
0110740 l h o o k f n a n d * A p p
0110760 l y h o o k * \r 006 001
0111000
*
0111060 006 003 b o u n d
0111100 t o a p p l y h o o k f n . \r
0111120 006 001
0111140
*
0111200 006
0111220 003 I g n o r e s t h e s e h
0111240 o o k s o n c e , f o r t
0111260 h e \r 006 001
0111300
*
0111360 006 003 t o p - l e v e l e
0111400 v a l u a t i o n o f F o r
0111420 m . \r 006 001
0111440
*
0111520 006 003 * ) 006 001 \r
0111540 ( L E T ( ( * E V A L H O
0111560 O K * E V A L H O O K F N ) \r
0111600 (
0111620 * S K I P - E V A L H O O K *
0111640 T ) \r
0111660 ( * A P P L Y H O O K * A
0111700 P P L Y H O O K F N ) \r
0111720 ( * S K I
0111740 P - A P P L Y H O O K * N I L
0111760 ) ) \r
0112000 ( H O O K E D - E V A L F O
0112020 R M ) ) ) ) \r ) \r \r \r \r 006 004 ( *
0112040 ; " F U N C A L L a n d
0112060 A P P L Y , n o t q u i t e
0112100 s a m e a s I n t e r l i
0112120 s p " ) 006 001 \r \r ( D E F I N E Q
0112140 \r \r ( 006 004 F U N C A L L 006 001 \r
0112160 ( C L : L A M B D A ( F N
0112200 & R E S T A R G S ) 006 003 006 001
0112220
*
0112260 006 003 ( * l m m " 2 - M a y
0112300 - 8 6 2 1 : 5 8 " ) 006 001 \r
0112320 ( 006 002 C L : A P P
0112340 L Y 006 001 F N A R G S ) ) ) \r
0112360 \r ( 006 004 C L : A P P L Y 006 001 \r
0112400 [ L A M B D A N 006 003 006 001
0112420
*
0112500 006 003 ( * l m m " 2 9 - A p r
0112520 - 8 6 2 1 : 2 6 " ) 006 001 \r
0112540 ( 006 002 D E C L A R E 006 001 (
0112560 L O C A L V A R S . T ) ) 006
0112600 003 006 001
0112620
0112640 006 003 ( * c o m p i l e s
0112660 " o p e n " ) 006 001 \r (
0112700 S E L E C T Q N \r
0112720 ( 0 ( E R R O R " T O O
0112740 F E W A R G U M E N T S T
0112760 O A P P L Y " ) ) \r
0113000 ( S P R E A D A P P L Y
0113020 ( A R G N 1 ) \r
0113040 ( L E T ( (
0113060 A V ( A R G N N ) ) ) \r
0113100
0113120 ( 006 002 f o r 006 001 I 006 002
0113140 f r o m 006 001 ( S U B 1 N )
0113160 006 002 t o 006 001 2 006 002 b y 006 001
0113200 - 1 006 002 d o 006 001 ( 006 002 p u s
0113220 h 006 001 A V ( A R G N I )
0113240 ) ) \r
0113260 A V ] ) \r ) \r \r (
0113300 P U T P R O P S 006 002 C L : A P
0113320 P L Y D M A C R O 006 001 ( D E
0113340 F M A C R O ( 006 002 F N 006 001 &
0113360 R E S T A R G S ) ( B Q U O
0113400 T E \r
0113420
*
0113460 ( L E T ( ( F
0113500 N ( \ , F N ) ) \r
0113520
*
0113600 ( C N T ( \ , (
0113620 L E N G T H ( C D R A R G S
0113640 ) ) ) ) ) \r
0113660
*
0113740 ( . S P R E A D . ( ( O P C O
0113760 D E S ) \r
0114000
*
0114060 , @ A R G
0114100 S ) \r
0114120
*
0114200 C N T F N ) ) ) ) \r
0114220 ) \r \r ( P U T P R O P S 006 002 F
0114240 U N C A L L D M A C R O 006 001
0114260 ( D E F M A C R O ( 006 002 F N 006
0114300 001 & R E S T A R G S ) ( B
0114320 Q U O T E ( ( O P C O D E S
0114340 A P P L Y F N ) \r
0114360
*
0114440 ( \ , @ A R G S ) \r
0114460
*
0114540 ( \ ,
0114560 ( L E N G T H A R G S ) ) \r
0114600
*
0114660 ( \ , F
0114700 N ) ) ) ) \r ) \r \r \r \r 006 004 ( *
0114720 ; " C O M P I L E R - L E T
0114740 n e e d s t o w o r k d
0114760 i f f e r e n t l y c o m p i
0115000 l e d a n d i n t e r p r e
0115020 t e d " ) 006 001 \r \r ( D E F I N E
0115040 Q \r \r ( 006 004 C O M P I L E R - L
0115060 E T 006 001 \r [ N L A M B D A
0115100 T A I L 006 003 006 001
0115120
*
0115160 006 003 ( * l m m "
0115200 2 7 - M a y - 8 6 1 1 : 1 9 "
0115220 ) 006 001 \r ( P R O G V (
0115240 006 002 f o r 006 001 X 006 002 i n 006 001
0115260 ( C A R T A I L ) 006 002 c o
0115300 l l e c t 006 001 ( C O N D \r
0115320
*
0115360 ( ( C O N S P
0115400 X ) \r
0115420
*
0115460 ( C A R X ) ) \r
0115500
*
0115540 ( T X ) ) ) \r
0115560 [ 006 002 f o r 006 001
0115600 X 006 002 i n 006 001 ( C A R T A
0115620 I L ) 006 002 c o l l e c t 006 001
0115640 ( C O N D \r
0115660
*
0115720 ( ( C O N S P X ) \r
0115740
*
0116000 ( \ E V A L (
0116020 C A D R X ] \r
0116040 ( \ E V P R O G N ( C D
0116060 R T A I L ] ) \r \r ( 006 004 C O M
0116100 P . C O M P I L E R - L E T 006 001
0116120 \r [ L A M B D A ( A ) \r
0116140 ( 006 002 D E C L A R E 006 001
0116160 ( L O C A L V A R S . T ) )
0116200 006 003 006 001
0116220
0116240 006 003 ( * l m m " 2 7
0116260 - M a y - 8 6 1 2 : 1 4 " ) 006
0116300 001 \r
0116320
*
0116360 006
0116400 003 ( * E N T R Y P O I N T
0116420 I N T O B Y T E C O M P I L E
0116440 R ) 006 001 \r
0116460
*
0116540 006 003 ( * l m m " 2 7 - M
0116560 a y - 8 6 1 1 : 1 7 " ) 006 001 \r
0116600 ( P R O G V ( 006 002 f o
0116620 r 006 001 X 006 002 i n 006 001 ( C A
0116640 R A ) 006 002 c o l l e c t 006 001
0116660 ( 006 002 i f 006 001 ( C O N S P
0116700 X ) \r
0116720
0116740 006 002 t h
0116760 e n 006 001 ( C A R X ) \r
0117000
*
0117040 006 002 e l s e 006 001 X ) )
0117060 \r [ 006 002 f
0117100 o r 006 001 X 006 002 i n 006 001 ( C
0117120 A R A ) 006 002 c o l l e c t 006
0117140 001 ( C O N D \r
0117160
*
0117220 ( ( C O N S P X ) \r
0117240
*
0117300 ( E V A L ( C A D R
0117320 X ] \r ( C
0117340 O M P . P R O G N ( C D R A
0117360 ] ) \r ) \r \r ( P U T P R O P S
0117400 006 002 C O M P I L E R - L E T D
0117420 M A C R O 006 001 C O M P . C O M
0117440 P I L E R - L E T ) \r ( D E F I
0117460 N E - S P E C I A L - F O R M
0117500 006 002 C O M P I L E R - L E T 006 001
0117520 ( A R G S & R E S T B O D
0117540 Y & E N V I R O N M E N T E
0117560 N V ) \r ( L E T ( ( * I
0117600 N - C O M P I L E R - L E T *
0117620 T ) ) \r ( 006 002 D
0117640 E C L A R E 006 001 ( S P E C I A
0117660 L * I N - C O M P I L E R - L
0117700 E T * ) )
0117720 006 003 ( * \r 006 001
0117740 006 003 " t h e * I N -
0117760 C O M P I L E R - L E T * i s
0120000 f o r m a c r o - c a c h i
0120020 n g . I t s a y s : d o n
0120040 ' t c a c h e m a c r o s
0120060 u n d e r c o m p i l e r l
0120100 e t s " ) 006 001 \r
0120120 ( P R O G V ( 006 002 f o r 006 001
0120140 X 006 002 i n 006 001 A R G S 006 002
0120160 c o l l e c t 006 001 ( 006 002 i f 006
0120200 001 ( C O N S P X ) \r
0120220
*
0120260 006 002 t h e n 006 001 (
0120300 C A R X ) \r
0120320
0120340 006
0120360 002 e l s e 006 001 X ) ) \r
0120400 ( 006 002 f o
0120420 r 006 001 X 006 002 i n 006 001 A R G
0120440 S 006 002 c o l l e c t 006 001 ( 006
0120460 002 i f 006 001 ( C O N S P X ) \r
0120500
*
0120540 006 002 t h e n
0120560 006 001 ( C L : E V A L ( C A D
0120600 R X ) \r
0120620
*
0120660 E N V ) \r
0120700
*
0120740 006 002 e l s e 006 001
0120760 N I L ) ) \r
0121000 ( E V A L - P R O G
0121020 N B O D Y E N V ) ) ) ) \r \r
0121040 ( D E F I N E - S P E C I A L -
0121060 F O R M 006 002 Q U O T E 006 001 C
0121100 A R ) \r \r ( D E F I N E - S P E
0121120 C I A L - F O R M 006 002 T H E 006
0121140 001 ( T Y P E - S P E C F O R
0121160 M & E N V I R O N M E N T E
0121200 N V ) \r ( C L : I F ( E
0121220 Q ( C A R ( L I S T P T Y
0121240 P E - S P E C ) ) \r
0121260 ( Q U O T E V
0121300 A L U E S ) ) \r
0121320 ( L E T ( ( V A L U E S
0121340 ( M U L T I P L E - V A L U E -
0121360 L I S T ( C L : E V A L F O
0121400 R M E N V ) ) ) ) \r
0121420 ( C L : I F
0121440 ( C L : N O T E V E R Y ( C
0121460 L : F U N C T I O N ( C L : L
0121500 A M B D A ( V A L U E S P E
0121520 C ) \r
0121540
*
0121600 ( T Y P E P
0121620 V A L U E S P E C ) ) ) \r
0121640
0121660 V A L U
0121700 E S \r
0121720
0121740 ( C D R T Y P E - S P E C ) )
0121760 \r
0122000 ( C H E C K - T Y
0122020 P E - F A I L T F O R M V
0122040 A L U E S T Y P E - S P E C
0122060 N I L ) \r
0122100 ( V A L U
0122120 E S - L I S T V A L U E S ) )
0122140 ) \r ( L E T
0122160 ( ( V A L U E ( C L : E V A
0122200 L F O R M E N V ) ) ) \r
0122220 ( C L
0122240 : I F ( T Y P E P V A L U E
0122260 T Y P E - S P E C ) \r
0122300
0122320 V A L U E \r
0122340 ( C
0122360 H E C K - T Y P E - F A I L T
0122400 F O R M V A L U E T Y P E
0122420 - S P E C N I L ) ) ) ) ) \r \r
0122440 \r ( P U T P R O P S 006 002 T H E
0122460 D M A C R O 006 001 ( ( S P E C
0122500 F O R M ) \r
0122520 F O R
0122540 M ) ) \r \r ( P U T P R O P S 006
0122560 002 E V A L - W H E N D M A C R
0122600 O 006 001 ( D E F M A C R O ( 006
0122620 002 O P T I O N S 006 001 & B O D Y
0122640 B O D Y ) ( A N D ( O R
0122660 ( F M E M B ( Q U O T E C O
0122700 M P I L E ) \r
0122720
*
0123020 O P T I O N S ) \r
0123040
*
0123120 ( F M
0123140 E M B ( Q U O T E C L : C O
0123160 M P I L E ) \r
0123200
*
0123300 O P T I O N S ) ) \r
0123320
*
0123400 ( M A P C
0123420 B O D Y ( F U N C T I O N C
0123440 L : E V A L ) ) ) \r
0123460
0123500 ( A N D ( O R
0123520 ( F M E M B ( Q U O T E L
0123540 O A D ) \r
0123560
*
0123620 O P T I O N S ) \r
0123640
*
0123700 ( F M E M B ( Q U O T E
0123720 C L : L O A D ) \r
0123740
*
0124000 O P T I O N S )
0124020 ) \r
0124040
0124060 ( B Q U O T E ( P R
0124100 O G N ( \ , @ B O D Y ) ) )
0124120 ) ) \r ) \r ( D E F I N E Q \r \r (
0124140 006 004 E V A L - W H E N 006 001 \r
0124160 [ N L A M B D A O P T I O N S
0124200 . B O D Y 006 003 006 001
0124220
0124240 006
0124260 003 ( * l m m " 1 - J u n -
0124300 8 6 1 5 : 1 6 " ) 006 001 \r
0124320 ( A N D ( O R ( F M E M B
0124340 ( Q U O T E C L : E V A L )
0124360 \r
0124400 ( C A R O P T I O N
0124420 S . B O D Y ) ) \r
0124440 ( F M E M B ( Q U
0124460 O T E E V A L ) \r
0124500 ( C
0124520 A R O P T I O N S . B O D Y )
0124540 ) ) \r ( M A P
0124560 C ( C D R O P T I O N S . B
0124600 O D Y ) \r
0124620 ( 006 002 F U N C T I O N 006
0124640 001 \ E V A L ] ) \r ) \r ( D E F
0124660 I N E - S P E C I A L - F O R M
0124700 006 002 E V A L - W H E N 006 001 (
0124720 T A G S & R E S T B O D Y
0124740 & E N V I R O N M E N T E N V
0124760 ) ( A N D ( O R ( F M E M
0125000 B ( Q U O T E C L : E V A L
0125020 ) \r
0125040
*
0125140 T A G S ) \r
0125160
*
0125260 ( F M E M B ( Q U O
0125300 T E E V A L ) \r
0125320
*
0125420 T A G S )
0125440 ) \r
0125460
*
0125540 ( E V A L - P
0125560 R O G N B O D Y E N V ) ) )
0125600 \r \r ( D E F I N E - S P E C I A
0125620 L - F O R M 006 002 D E C L A R E
0125640 006 001 F A L S E ) \r \r ( D E F M
0125660 A C R O 006 002 L O C A L L Y 006 001
0125700 ( & B O D Y B O D Y ) ( B
0125720 Q U O T E ( L E T N I L (
0125740 \ , @ B O D Y ) ) ) ) \r \r \r \r
0125760 \r 006 004 ( * ; " I n t e r l i
0126000 s p v e r s i o n o n L L
0126020 I N T E R P " ) 006 001 \r \r ( D E F
0126040 I N E - S P E C I A L - F O R M
0126060 006 002 P R O G N 006 001 E V A L -
0126100 P R O G N ) \r \r ( D E F I N E Q
0126120 \r \r ( 006 004 E V A L - P R O G N 006
0126140 001 \r [ L A M B D A ( B O D
0126160 Y E N V I R O N M E N T ) 006 003
0126200 006 001
0126220
0126240 006 003 ( * l m m " 2 2 -
0126260 M a y - 8 6 2 3 : 5 5 " ) 006 001
0126300 \r ( 006 002 i f 006 001 ( C D
0126320 R B O D Y ) \r
0126340 006 002 t h e n 006 001 ( 006 002 C L : E
0126360 V A L 006 001 ( C A R B O D Y )
0126400 \r
0126420 E N V I R O N M E N T
0126440 ) \r (
0126460 006 002 E V A L - P R O G N 006 001 (
0126500 C D R B O D Y ) \r
0126520 E N
0126540 V I R O N M E N T ) \r
0126560 006 002 e l s e 006 001 ( 006 002 C L :
0126600 E V A L 006 001 ( C A R B O D Y
0126620 ) \r
0126640 E N V I R O N M E N T ]
0126660 ) \r ) \r \r \r \r 006 004 ( * ; " C
0126700 o n f u s e d b e c a u s e
0126720 c u r r e n t l y I n t e r l
0126740 i s p s p e c i a l f o r m
0126760 , f i x i n g M A C R O - F
0127000 U N C T I O N i s c o m p l
0127020 e x " ) 006 001 \r \r \r \r \r 006 004 ( *
0127040 ; " T h e I n t e r l i s p
0127060 f u n c t i o n i s o n
0127100 L L I N T E R P " ) 006 001 \r \r ( D
0127120 E F I N E - S P E C I A L - F O
0127140 R M 006 002 P R O G 1 006 001 ( F I
0127160 R S T & R E S T R E S T &
0127200 E N V I R O N M E N T E N V )
0127220 \r ( L E T ( ( V A L (
0127240 C L : E V A L F I R S T E N
0127260 V ) ) ) \r ( T A
0127300 G B O D Y P R O G 1 ( C L :
0127320 I F R E S T ( P R O G N (
0127340 C L : E V A L ( C A R R E S
0127360 T ) \r
0127400
*
0127440 E N V ) \r
0127460
*
0127520 ( S E T Q R E S T ( C
0127540 D R R E S T ) ) ) \r
0127560
0127600 ( R E T U R N
0127620 - F R O M P R O G 1 V A L )
0127640 ) \r
0127660 ( G O P R O G 1 ) ) ) ) \r \r
0127700 ( D E F M A C R O 006 002 P R O G
0127720 1 006 001 ( F I R S T & R E S T
0127740 R E S T ) ( C O N S ( Q U
0127760 O T E ( L A M B D A ( X ) \r
0130000
*
0130060 X ) ) \r
0130100
*
0130140 ( C O N S F I R S T
0130160 R E S T ) ) ) \r \r ( D E F I N E
0130200 - S P E C I A L - F O R M 006 002
0130220 L E T * 006 001 ( V A R S & R E
0130240 S T B O D Y & E N V I R O N
0130260 M E N T E N V I R O N M E N T
0130300 ) \r ( M U L T I P L E - V
0130320 A L U E - B I N D ( B O D Y
0130340 D E C L S ) \r
0130360 ( P A R S E - B O D Y B O D
0130400 Y E N V I R O N M E N T ) \r
0130420 ( C O N D \r
0130440 ( V A R
0130460 S ( L E T ( ( N E W E N V
0130500 ( M A K E - E N V I R O N M E N
0130520 T : P A R E N T E N V I R O
0130540 N M E N T ) ) ) \r
0130560
0130600 ( E V A L - L E T * - R E C U
0130620 R S I O N V A R S D E C L S
0130640 N E W E N V B O D Y ) ) ) \r
0130660 ( T
0130700 ( E V A L - P R O G N B O D Y
0130720 E N V I R O N M E N T ) ) ) )
0130740 ) \r \r ( D E F I N E - S P E C I
0130760 A L - F O R M 006 002 L E T 006 001
0131000 ( V A R S & B O D Y B O D Y
0131020 & E N V I R O N M E N T E N
0131040 V I R O N M E N T ) \r
0131060
*
0131140 006 003 ( * I n
0131160 i t i a l i z e s t h e v a
0131200 r i a b l e s , b i n d i n g
0131220 \r 006 001
0131240
*
0131320 006 003 t h e m t o n e w v
0131340 a l u e s a l l a t o n c
0131360 e , t h e n \r 006 001
0131400
*
0131460 006 003 e x e c u t
0131500 e s t h e r e m a i n i n g
0131520 f o r m s a s i n a \r
0131540 006 001
0131560
*
0131620 006
0131640 003 P R O G N . ) 006 001 \r ( M
0131660 U L T I P L E - V A L U E - B I
0131700 N D ( B O D Y D E C L S ) \r
0131720 ( P A R S E
0131740 - B O D Y B O D Y E N V I R
0131760 O N M E N T ) \r
0132000 ( L E T ( L E X V A R S
0132020 S P E C V A R S S P E C V A L
0132040 S ) \r
0132060 ( 006 002 f o r 006 001 V A R 006
0132100 002 i n 006 001 V A R S 006 002 d o 006
0132120 001 ( L E T ( V A L U E ) \r
0132140
*
0132200 ( 006 002 i f 006 001 (
0132220 C O N S P V A R ) \r
0132240
*
0132300 006 002 t h e n 006 001
0132320 ( S E T Q V A L U E ( C L :
0132340 E V A L ( C A D R V A R ) \r
0132360
*
0132460 E N V I R O N M E N T )
0132500 ) \r
0132520
*
0132560 ( S E T Q V A R ( C A
0132600 R V A R ) ) ) \r
0132620
*
0132660 ( C H E C K - B I N D A B L E
0132700 V A R ) \r
0132720
0132740 ( 006
0132760 002 i f 006 001 ( O R ( D E C L A
0133000 R E D - S P E C I A L V A R
0133020 D E C L S ) \r
0133040
*
0133100 ( V A R I A B L E
0133120 - G L O B A L L Y - S P E C I A
0133140 L - P V A R ) ) \r
0133160
*
0133220 006 002 t h e n 006 001 (
0133240 C L : P U S H V A R S P E C
0133260 V A R S ) \r
0133300
*
0133340 ( C L : P U S H
0133360 V A L U E S P E C V A L S ) \r
0133400
*
0133440 006 002 e l s e
0133460 006 001 ( C L : P U S H ( C O N
0133500 S V A R V A L U E ) \r
0133520
*
0133600 L E X V A R S ) ) ) ) \r
0133620 ( C
0133640 L : I F S P E C V A R S ( P
0133660 R O G V S P E C V A R S S P
0133700 E C V A L S ( E V A L - P R O
0133720 G N B O D Y \r
0133740
*
0134020 ( C L : I F L E
0134040 X V A R S \r
0134060
*
0134140 ( M A K
0134160 E - E N V I R O N M E N T : V
0134200 A R S L E X V A R S \r
0134220
*
0134320 : P A R E N
0134340 T E N V I R O N M E N T ) \r
0134360
*
0134460 E N V I R O N M E N T
0134500 ) ) ) \r
0134520 ( E V A L -
0134540 P R O G N B O D Y ( C L : I
0134560 F L E X V A R S ( M A K E -
0134600 E N V I R O N M E N T : V A R
0134620 S L E X V A R S : P A R E N
0134640 T \r
0134660
*
0134740 E N V I R O N M E N T ) \r
0134760
*
0135020 E N V I R
0135040 O N M E N T ) ) ) ) ) ) \r \r \r (
0135060 P U T P R O P S 006 002 L E T M
0135100 A C R O 006 001 ( X ( \ L E T t
0135120 r a n X ) ) ) \r \r ( P U T P R
0135140 O P S 006 002 L E T * M A C R O
0135160 006 001 ( X ( \ L E T t r a n
0135200 X T ) ) ) \r ( D E F I N E Q \r
0135220 \r ( 006 004 E V A L - L E T * - R E
0135240 C U R S I O N 006 001 \r [ L A M
0135260 B D A ( V A R S D E C L S
0135300 E N V B O D Y ) \r ( 006
0135320 002 D E C L A R E 006 001 ( L O C A
0135340 L V A R S . T ) ) 006 003 006 001
0135360
0135400 006
0135420 003 ( * l m m " 2 0 - J u l -
0135440 8 6 1 5 : 1 0 " ) 006 001 \r
0135460
*
0135540 006 003 ( * "
0135560 1 9 - J u l - 8 6 1 5 : 5 6 "
0135600 ) 006 001 \r ( P R O G N I
0135620 L \r I T E R A T E \r
0135640 ( 006 002 C L :
0135660 I F 006 001 ( N O T V A R S ) \r
0135700
0135720 ( R E T U R N ( 006 002 E V A L
0135740 - P R O G N 006 001 B O D Y E N
0135760 V ) ) \r
0136000 ( L E T ( ( V A R
0136020 ( 006 002 p o p 006 001 V A R S ) ) \r
0136040
0136060 V A L U E ) \r
0136100
0136120 ( C L : W H E N ( C O
0136140 N S P V A R ) \r
0136160
0136200 ( S E T Q V A L U
0136220 E ( 006 002 C L : E V A L 006 001 (
0136240 C A D R V A R ) \r
0136260
*
0136320 E N V ) ) \r
0136340
0136360 ( S E
0136400 T Q V A R ( C A R V A R )
0136420 ) ) \r
0136440 ( 006 002 C H E C
0136460 K - B I N D A B L E 006 001 V A R
0136500 ) \r
0136520 ( 006 002 C L : I F
0136540 006 001 ( O R ( 006 002 D E C L A R
0136560 E D - S P E C I A L 006 001 V A R
0136600 D E C L S ) \r
0136620
0136640 ( V A R I A B
0136660 L E - G L O B A L L Y - S P E C
0136700 I A L - P V A R ) ) \r
0136720
0136740 ( R E T U R N
0136760 ( P R O G V ( L I S T V A
0137000 R ) \r
0137020
0137040 (
0137060 L I S T V A L U E ) \r
0137100
*
0137140 ( 006 002 E V A L -
0137160 L E T * - R E C U R S I O N 006 001
0137200 V A R S D E C L S E N V
0137220 B O D Y ) ) ) \r
0137240
0137260 ( P R O G N ( C L :
0137300 P U S H ( C O N S V A R V
0137320 A L U E ) \r
0137340
*
0137400 ( E N V I R O N M E N T - V A
0137420 R S E N V ) ) \r
0137440
0137460 ( G O
0137500 I T E R A T E ] ) \r \r ( 006 004 \
0137520 L E T t r a n 006 001 \r [ L A M
0137540 B D A ( L E T T A I L S E Q
0137560 U E N T I A L P ) 006 003 006 001
0137600
0137620 006 003 ( *
0137640 l m m " 1 6 - J u l - 8 5 1
0137660 2 : 5 2 " ) 006 001 \r ( P R
0137700 O G ( [ V A R S ( M A P C A
0137720 R ( C A R L E T T A I L ) \r
0137740
0137760 ( 006 002 F U N C T
0140000 I O N 006 001 ( L A M B D A ( B
0140020 I N D E N T R Y ) \r
0140040
0140060 ( 006
0140100 002 i f 006 001 ( L I S T P B I N
0140120 D E N T R Y ) \r
0140140
*
0140200 006 002 t h e n 006 001 ( C A R B I
0140220 N D E N T R Y ) \r
0140240
0140260 006
0140300 002 E L S E 006 001 B I N D E N T R
0140320 Y ] \r [ V
0140340 A L S ( M A P C A R ( C A R
0140360 L E T T A I L ) \r
0140400
0140420 ( 006 002 F U N C T I O N 006 001
0140440 ( L A M B D A ( B I N D E N T
0140460 R Y ) \r
0140500
0140520 ( 006 002 i f 006 001
0140540 ( L I S T P B I N D E N T R Y
0140560 ) \r
0140600
0140620 006 002 t h e n
0140640 006 001 ( 006 002 i f 006 001 ( C D D R
0140660 B I N D E N T R Y ) \r
0140700
*
0140740 006 002 t
0140760 h e n 006 001 ( C O N S ( Q U O
0141000 T E P R O G 1 ) \r
0141020
*
0141100 ( C D R B I N D E
0141120 N T R Y ) ) \r
0141140
*
0141200 006 002 e l s e 006 001 (
0141220 C A D R B I N D E N T R Y ) )
0141240 \r
0141260
0141300 006 002 e l s e 006 001
0141320 N I L ] \r
0141340 ( B O D Y ( C D R L E T T A
0141360 I L ) ) \r
0141400 ( D E C L S N I L ) \r
0141420 ( C O M N T S N
0141440 I L ) ) \r (
0141460 R E T U R N ( 006 002 i f 006 001 (
0141500 N O T S E Q U E N T I A L P )
0141520