$ od -c -N 50000 [eris]<LispCore>SOURCES>CMLEVAL!8
0000000 ( D E F I N E - F I L E - I N F
0000020 O 247 R E A D T A B L E " I N
0000040 T E R L I S P " 247 P A C K A G
0000060 E " I N T E R L I S P " ) \r 006
0000100 001 ( F I L E C R E A T E D " 2
0000120 2 - O c t - 8 6 1 2 : 4 2 : 5
0000140 6 " 006 004 { E R I S } < L I S P
0000160 C O R E > S O U R C E S > C M L
0000200 E V A L . ; 8 006 001 6 8 0 8 1
0000220 \r \r c h a n g e s
0000240 t o % : ( F N S C L : C
0000260 O N S T A N T P C L : E V A L
0000300 ) \r \r p r e v i o u
0000320 s d a t e % : " 8 - O c t
0000340 - 8 6 1 2 : 1 3 : 5 6 " { E
0000360 R I S } < L I S P C O R E > S O
0000400 U R C E S > C M L E V A L . ; 5
0000420 ) \r \r \r ( * " \r C o p y r i g
0000440 h t ( c ) 1 9 8 6 b y X
0000460 e r o x C o r p o r a t i o n
0000500 . A l l r i g h t s r e
0000520 s e r v e d . \r " ) \r \r ( P R E
0000540 T T Y C O M P R I N T C M L E
0000560 V A L C O M S ) \r \r ( R P A Q Q
0000600 006 002 C M L E V A L C O M S 006 001
0000620 ( ( C O M S ( * ; " F o
0000640 r m f o r d e f i n i n i n
0000660 g i n t e r p r e t e r s o
0000700 f s p e c i a l f o r m s "
0000720 ) \r
0000740 ( D E F
0000760 I N E - T Y P E S S P E C I A
0001000 L - F O R M S ) \r
0001020
0001040 ( F U N C T I O N S D E
0001060 F I N E - S P E C I A L - F O R
0001100 M ) \r
0001120 ( F U
0001140 N C T I O N S C L : S P E C I
0001160 A L - F O R M - P ) ) \r
0001200
0001220 ( C O M S ( S P E C I A L - F
0001240 O R M S I N T E R L I S P ) \r
0001260
0001300 ( P R O P
0001320 D M A C R O I N T E R L I S P
0001340 C O M M O N - L I S P ) \r
0001360
0001400 ( F N S C O M
0001420 M O N - L I S P ) ) \r
0001440 (
0001460 C O M S ( A D D V A R S ( L
0001500 A M B D A S P L S T C L : L A
0001520 M B D A ) ) \r
0001540
0001560 ( F N S \ T R A N S L A T E
0001600 - C L % : L A M B D A ) \r
0001620
0001640 ( V A R I A B L E
0001660 S * C H E C K - A R G U M E N
0001700 T - C O U N T S * ) \r
0001720
0001740 ( P R O P D M A C R
0001760 O C O M M O N - L I S P ) ) \r
0002000
0002020 ( V A R I A B L E S C
0002040 L : L A M B D A - L I S T - K E
0002060 Y W O R D S C L : C A L L - A
0002100 R G U M E N T S - L I M I T \r
0002120
0002140 C L : L A
0002160 M B D A - P A R A M E T E R S -
0002200 L I M I T ) \r
0002220 ( S T R U
0002240 C T U R E S C L O S U R E E
0002260 N V I R O N M E N T ) \r
0002300
0002320 ( C O M S ( F N S C L : E V
0002340 A L E V A L - I N V O K E - L
0002360 A M B D A \ I N T E R P R E T
0002400 - A R G U M E N T S \ I N T E
0002420 R P R E T E R - L A M B D A \r
0002440
0002460 C
0002500 H E C K - B I N D A B L E C H
0002520 E C K - K E Y W O R D S ) \r
0002540
0002560 ( F U N C T I O
0002600 N S A R G - R E F ) \r
0002620
0002640 ( P R O P D M A C
0002660 R O . C O M P I L E R - S P R
0002700 E A D - A R G U M E N T S . ) )
0002720 \r
0002740 ( F N S D E C L A R
0002760 E D - S P E C I A L E V A L H
0003000 O O K ) \r
0003020 ( C O M S (
0003040 * ; " F U N C A L L a n d
0003060 A P P L Y , n o t q u i t
0003100 e s a m e a s I n t e r l
0003120 i s p " ) \r
0003140
0003160 ( F N S C L : F U N C A L L
0003200 C L : A P P L Y ) \r
0003220
0003240 ( P R O P D M A C R O
0003260 C L : A P P L Y C L : F U N
0003300 C A L L ) ) \r
0003320 ( C O M S
0003340 ( * ; " C O M P I L E R -
0003360 L E T n e e d s t o w o r
0003400 k d i f f e r e n t l y c o
0003420 m p i l e d a n d i n t e r
0003440 p r e t e d " ) \r
0003460
0003500 ( F N S C L : C O M P I
0003520 L E R - L E T C O M P . C O M
0003540 P I L E R - L E T ) \r
0003560
0003600 ( P R O P D M A C R
0003620 O C L : C O M P I L E R - L E
0003640 T ) \r
0003660 ( S P
0003700 E C I A L - F O R M S C L : C
0003720 O M P I L E R - L E T ) ) \r
0003740
0003760 ( S P E C I A L - F O R M S
0004000 Q U O T E ) \r
0004020 ( C O M
0004040 S ( S P E C I A L - F O R M S
0004060 T H E ) \r
0004100
0004120 ( P R O P D M A C R O T H E
0004140 ) ) \r
0004160 ( C O M S ( P R
0004200 O P D M A C R O C L : E V A
0004220 L - W H E N ) \r
0004240
0004260 ( F N S C L : E V A L - W
0004300 H E N ) \r
0004320 (
0004340 S P E C I A L - F O R M S C L
0004360 : E V A L - W H E N ) ) \r
0004400
0004420 ( C O M S ( S P E C I A L -
0004440 F O R M S D E C L A R E ) \r
0004460
0004500 ( F U N C T I
0004520 O N S C L : L O C A L L Y ) )
0004540 \r
0004560 ( C O M S ( * ;
0004600 " I n t e r l i s p v e r s i
0004620 o n o n L L I N T E R P " )
0004640 \r
0004660 ( S P E C
0004700 I A L - F O R M S P R O G N )
0004720 \r
0004740 ( F N S
0004760 E V A L - P R O G N ) ) \r
0005000
0005020 ( C O M S ( * ; \r
0005040 " C o
0005060 n f u s e d b e c a u s e c
0005100 u r r e n t l y I n t e r l i
0005120 s p s p e c i a l f o r m ,
0005140 f i x i n g M A C R O - F U
0005160 N C T I O N i s c o m p l e
0005200 x " \r
0005220
0005240 ) \r
0005260 ( * ;
0005300 " T h e I n t e r l i s p
0005320 f u n c t i o n i s o n L
0005340 L I N T E R P " ) \r
0005360
0005400 ( S P E C I A L - F O R
0005420 M S P R O G 1 ) \r
0005440
0005460 ( F U N C T I O N S P
0005500 R O G 1 ) ) \r
0005520 ( C O M S
0005540 ( S P E C I A L - F O R M S
0005560 L E T * L E T ) \r
0005600
0005620 ( P R O P M A C R O
0005640 L E T L E T * ) \r
0005660
0005700 ( F N S E V A L - L E
0005720 T * - R E C U R S I O N \ L E
0005740 T t r a n ) ) \r
0005760 ( C O M
0006000 S ( S P E C I A L - F O R M S
0006020 C O N D ) \r
0006040
0006060 ( F U N C T I O N S C O N D
0006100 ) ) \r
0006120 ( C O M S ( *
0006140 ; " c o n s i d e r m a k i
0006160 n g C L : I F e x t e n d e
0006200 d t o h a v e I n t e r l
0006220 i s p ' s f e a t u r e s " )
0006240 \r
0006260 ( F N S
0006300 C L : I F ) \r
0006320
0006340 ( S P E C I A L - F O R M S
0006360 C L : I F ) \r
0006400
0006420 ( P R O P D M A C R O C L
0006440 : I F ) ) \r
0006460 ( C O M S
0006500 ( * ; " I n t e r l i s p
0006520 N L A M B D A d e f i n i t i
0006540 o n s o n L L I N T E R P "
0006560 ) \r
0006600 ( * ;
0006620 " b o t h s p e c i a l f
0006640 o r m a n d m a c r o " ) \r
0006660
0006700 ( F U N C T
0006720 I O N S A N D O R ) \r
0006740
0006760 ( S P E C I A L -
0007000 F O R M S A N D O R ) ) \r
0007020
0007040 ( C O M S ( * ; " B
0007060 L O C K a n d R E T U R N
0007100 g o t o g e t h e r " ) \r
0007120
0007140 ( F N S C L :
0007160 B L O C K ) \r
0007200
0007220 ( P R O P D M A C R O C L
0007240 : B L O C K ) \r
0007260
0007300 ( S P E C I A L - F O R M S
0007320 C L : B L O C K ) \r
0007340
0007360 ( F U N C T I O N S
0007400 R E T U R N ) \r
0007420
0007440 ( F N S C L : R E T U R N
0007460 - F R O M ) \r
0007500
0007520 ( S P E C I A L - F O R M S
0007540 C L : R E T U R N - F R O M ) )
0007560 \r
0007600 ( C O M S ( * ;
0007620 " e v e n t u a l l y s h o u
0007640 l d n ' t b e s h a d o w e
0007660 d b u t c u r r e n t l y
0007700 * r e a l l y * d i f f e r e
0007720 n t " ) \r
0007740 (
0007760 F N S C L : F U N C T I O N
0010000 F U N C T I O N ) \r
0010020
0010040 ( P R O P D M A C R O
0010060 C L : F U N C T I O N ) \r
0010100
0010120 ( S P E C I A L
0010140 - F O R M S C L : F U N C T I
0010160 O N F U N C T I O N ) ) \r
0010200
0010220 ( S P E C I A L - F O R M S
0010240 C L : M U L T I P L E - V A L
0010260 U E - C A L L ) \r
0010300 ( F N
0010320 S C O M P . C L - E V A L ) \r
0010340
0010360 ( V A R I A B L E S *
0010400 E V A L H O O K * * A P P L Y
0010420 H O O K * ) \r
0010440 ( I N I T
0010460 V A R S ( * S K I P - E V A L
0010500 H O O K * N I L ) \r
0010520
0010540 ( * S K I P - A P P
0010560 L Y H O O K * N I L ) ) \r
0010600
0010620 ( F N S C L : C O N S T A
0010640 N T P ) \r
0010660 ( C O M S (
0010700 * ; " I n t e r l i s p S
0010720 E T Q f o r C o m m o n L
0010740 i s p a n d v i c e v e r
0010760 s a " ) \r
0011000 (
0011020 S P E C I A L - F O R M S C L
0011040 : S E T Q S E T Q ) \r
0011060
0011100 ( P R O P D M A C
0011120 R O C L : S E T Q ) \r
0011140
0011160 ( P R O P M A C R
0011200 O S E T Q ) \r
0011220
0011240 ( F N S S E T - S Y M B O
0011260 L ) \r
0011300 ( F U
0011320 N C T I O N S C L : P S E T Q
0011340 ) ) \r
0011360 ( C O M S ( *
0011400 ; " C o m m o n L i s p s t
0011420 y l e C A T C H a n d T H
0011440 R O W " ) \r
0011460
0011500 ( S P E C I A L - F O R M S C
0011520 L : C A T C H C L : T H R O W
0011540 ) \r
0011560 ( F N S
0011600 C L : C A T C H \ C A T C H
0011620 - F U N C A L L \ C A T C H -
0011640 E V A L \ C A T C H - C L - E
0011660 V A L C L : T H R O W E V A
0011700 L - T H R O W \r
0011720
0011740 \ D O - T H R O
0011760 W ) \r
0012000 ( P R
0012020 O P D M A C R O C L : C A T
0012040 C H C L : T H R O W ) ) \r
0012060
0012100 ( C O M S ( F U N C T I O
0012120 N S P R O G P R O G * ) \r
0012140
0012160 ( S P E C I A
0012200 L - F O R M S G O C L : T A
0012220 G B O D Y ) \r
0012240
0012260 ( F N S C L : T A G B O D Y
0012300 ) ) \r
0012320 ( C O M S ( S P
0012340 E C I A L - F O R M S C L : U
0012360 N W I N D - P R O T E C T ) \r
0012400
0012420 ( M A C R O S
0012440 C L : U N W I N D - P R O T E
0012460 C T ) ) \r
0012500 ( F I L E S
0012520 C M L P R O G V ) \r
0012540 ( C
0012560 O M S ( * ; " h a c k t
0012600 o g e t N L S E T Q s t o
0012620 w o r k o n c o m m o n
0012640 l i s p i n t e r p r e t e r
0012660 " ) \r
0012700 ( S P
0012720 E C I A L - F O R M S . E R R
0012740 S E T Q . ) \r
0012760
0013000 ( F N S E V A L - E R R O R
0013020 S E T ) ) \r
0013040 ( L O C A L
0013060 V A R S . T ) \r
0013100 ( P
0013120 R O P F I L E T Y P E C M L
0013140 E V A L ) \r
0013160 ( D E C L A
0013200 R E % : D O N T E V A L @ L O
0013220 A D D O C O P Y ( P ( f o
0013240 r X i n S Y S S P E C V A
0013260 R S d o ( C L : S E T F (
0013300 \r
0013320
*
0013400 V A R I A
0013420 B L E - G L O B A L L Y - S P E
0013440 C I A L - P \r
0013460
*
0013600 X ) \r
0013620
*
0013720 T ) ) ) )
0013740 \r
0013760 ( C O M S ( * ;
0014000 " f o r m a c r o c a c h i
0014020 n g " ) \r
0014040 (
0014060 F N S C A C H E M A C R O ) \r
0014100
0014120 ( V A R I A
0014140 B L E S * M A C R O E X P A N
0014160 D - H O O K * ) \r
0014200
0014220 ( V A R S ( * I N - C O
0014240 M P I L E R - L E T * N I L )
0014260 ) ) \r
0014300 ( D E C L A R E %
0014320 : D O N T E V A L @ L O A D
0014340 D O E V A L @ C O M P I L E D
0014360 O N T C O P Y C O M P I L E R
0014400 V A R S \r
0014420
0014440 ( A D D V A R S ( N L A M A
0014460 C L : T A G B O D Y C L : C A
0014500 T C H C L : B L O C K C L :
0014520 E V A L - W H E N C L : C O M
0014540 P I L E R - L E T \r
0014560
*
0014620 C O M M O N - L I S
0014640 P ) \r
0014660
0014700 ( N L A M L C L : T
0014720 H R O W F U N C T I O N C L
0014740 : F U N C T I O N C L : R E T
0014760 U R N - F R O M C L : I F ) \r
0015000
*
0015040 ( L A M A C L : A P P L Y
0015060 C L : F U N C A L L E V A L
0015100 H O O K ) ) ) ) ) \r \r \r \r 006 004 (
0015120 * ; " F o r m f o r d e
0015140 f i n i n i n g i n t e r p r
0015160 e t e r s o f s p e c i a l
0015200 f o r m s " ) 006 001 \r \r ( D E F
0015220 - D E F I N E - T Y P E 006 002 S
0015240 P E C I A L - F O R M S 006 001 "
0015260 C o m m o n L i s p s p e c
0015300 i a l f o r m s " ) \r \r ( D
0015320 E F D E F I N E R 006 002 D E F I
0015340 N E - S P E C I A L - F O R M 006
0015360 001 \r S P E C I A L - F O R
0015400 M S ( N A M E A R G S & R
0015420 E S T B O D Y ) \r
0015440 ( C O N D \r
0015460 ( ( N U L L B O D Y
0015500 ) \r (
0015520 C L : A S S E R T ( C L : S Y
0015540 M B O L P B O D Y ) ) \r
0015560 ` ( P U T P
0015600 R O P S , N A M E S P E C I
0015620 A L - F O R M , A R G S ) ) \r
0015640 ( T (
0015660 L E T ( ( S F ( P A C K *
0015700 " \ i n t e r p r e t - " N A
0015720 M E ) ) ) \r
0015740 ( C L : M U
0015760 L T I P L E - V A L U E - B I N
0016000 D ( P A R S E D - B O D Y D
0016020 E C L S D O C ) \r
0016040
0016060 ( P A R S E - D E F M
0016100 A C R O A R G S ' $ $ T A I
0016120 L B O D Y N A M E N I L
0016140 : P A T H ' $ $ T A I L : E
0016160 N V I R O N M E N T \r
0016200
0016220 ' $ $
0016240 E N V ) \r
0016260
0016300 ( S E T Q A R G S S F ) \r
0016320
0016340 ` ( P R O G
0016360 N ( C L : S E T F ( C L : S
0016400 Y M B O L - F U N C T I O N '
0016420 , S F ) \r
0016440
0016460 #
0016500 ' ( C L : L A M B D A ( $ $ T
0016520 A I L $ $ E N V ) \r
0016540
*
0016600 ( C
0016620 L : B L O C K , N A M E , @
0016640 D E C L S , P A R S E D - B O
0016660 D Y ) ) ) \r
0016700
0016720 ( P U T P R O
0016740 P S , N A M E S P E C I A L
0016760 - F O R M , S F ) ) ) ) ) ) )
0017000 \r \r ( C L : D E F U N 006 002 C L
0017020 : S P E C I A L - F O R M - P 006
0017040 001 ( X ) ( G E T X ' S P
0017060 E C I A L - F O R M ) ) \r \r ( D
0017100 E F I N E - S P E C I A L - F O
0017120 R M 006 002 I N T E R L I S P 006 001
0017140 P R O G N ) \r \r \r ( P U T P R
0017160 O P S 006 002 I N T E R L I S P
0017200 D M A C R O 006 001 ( ( X . Y
0017220 ) \r
0017240 ( P
0017260 R O G N X . Y ) ) ) \r \r (
0017300 P U T P R O P S 006 002 C O M M O
0017320 N - L I S P D M A C R O 006 001
0017340 ( ( X ) \r
0017360
0017400 X ) ) \r ( D E F I N E Q \r
0017420 \r ( 006 004 C O M M O N - L I S P 006
0017440 001 \r ( N L A M B D A C O M
0017460 M O N - L I S P - F O R M S 006 006
0017500 006 001
0017520
0017540 006 006 ( * l m m " 6 -
0017560 J u n - 8 6 0 1 : 0 7 " ) 006 001
0017600 \r ( 006 002 E V A L - P R O
0017620 G N 006 001 C O M M O N - L I S P
0017640 - F O R M S N I L ) ) ) \r ) \r
0017660 \r ( A D D T O V A R 006 002 L A M
0017700 B D A S P L S T 006 001 C L : L A
0017720 M B D A ) \r ( D E F I N E Q \r \r
0017740 ( 006 004 \ T R A N S L A T E - C L
0017760 % : L A M B D A 006 001 \r ( L A
0020000 M B D A ( E X P R ) 006 006 006 001
0020020
*
0020060 006 006 ( *
0020100 l m m " 1 6 - J u n - 8 6
0020120 2 2 : 4 1 " ) 006 001 \r ( L
0020140 E T \r ( V R B L S K
0020160 E Y V A R S O P T V A R S A
0020200 U X L I S T R E S T F O R M
0020220 V A R T Y P B O D Y K E Y W
0020240 O R D S ( C N T 1 ) \r
0020260 ( M I N 0 )
0020300 \r ( M A
0020320 X 0 ) \r
0020340 D E C L S \r
0020360 ( S I M P L E P T ) ) \r
0020400 ( 006 002 f o r 006 001 B I
0020420 N D I N G V A R 006 002 i n 006 001
0020440 ( C A R ( C D R E X P R )
0020460 ) \r 006 002 d o 006 001
0020500 \r ( S E L E C T
0020520 Q B I N D I N G \r
0020540 ( ( & R E S T & B
0020560 O D Y ) \r
0020600 ( S E T Q V A R
0020620 T Y P ' & R E S T ) ) \r
0020640 ( & O P T I O
0020660 N A L ( S E T Q V A R T Y P
0020700 B I N D I N G ) ) \r
0020720 ( & A U X ( S E
0020740 T Q V A R T Y P B I N D I N
0020760 G ) ) \r
0021000 ( & A L L O W - O T H E R - K E
0021020 Y S \r
0021040 ( O R ( E Q V A R
0021060 T Y P ' & K E Y ) \r
0021100
0021120 ( E R R O R " & A L L O W - O
0021140 T H E R - K E Y S n o t i n
0021160 & K E Y " ) ) ) \r
0021200 ( & K E Y ( S E T
0021220 Q V A R T Y P ' & K E Y ) )
0021240 \r ( S E
0021260 L E C T Q V A R T Y P \r
0021300 ( N I
0021320 L " r e q u i r e d " ( 006 002
0021340 p u s h 006 001 V R B L S B I N
0021360 D I N G ) \r
0021400
0021420 ( 006 002 a d d 006 001 C N T 1 )
0021440 \r
0021460 ( 006 002 a
0021500 d d 006 001 M I N 1 ) \r
0021520
0021540 ( 006 002 a d d 006 001
0021560 M A X 1 ) \r
0021600
0021620 ( A N D * C H E C K - A R
0021640 G U M E N T - C O U N T S * (
0021660 S E T Q S I M P L E P N I L
0021700 ) ) ) \r
0021720 ( & R E S T ( S E T Q
0021740 R E S T F O R M ` ( ( , B I
0021760 N D I N G ( 006 002 f o r 006 001 I
0022000 006 002 f r o m 006 001 , C N T 006
0022020 002 t o 006 001 - a r g s - \r
0022040
*
0022120 006 002 c o l l e c t 006 001 ( A
0022140 R G - a r g s - I ) ) ) ) )
0022160 \r
0022200 ( S E T Q M A
0022220 X N I L ) \r
0022240 ( S
0022260 E T Q S I M P L E P N I L )
0022300 ) \r
0022320 ( & A U X ( 006 002 p u s h 006
0022340 001 A U X L I S T B I N D I N
0022360 G ) ) \r
0022400 ( & K E Y ( L E T * \r
0022420
0022440 ( S V A R ( I N
0022460 I T ( C O N D \r
0022500
0022520 (
0022540 ( L I S T P B I N D I N G ) \r
0022560
*
0022620 ( P R O G 1 ( C
0022640 A D R B I N D I N G ) \r
0022660
*
0022720 ( S E T Q
0022740 S V A R ( C A D D R B I N
0022760 D I N G ) ) \r
0023000
*
0023040 ( S E T Q B I N D I
0023060 N G ( C A R B I N D I N G )
0023100 ) ) ) ) ) \r
0023120
0023140 ( K E Y ( C O N D \r
0023160
*
0023220 ( ( L I S T P B I N D I
0023240 N G ) \r
0023260
0023300 ( P R O G 1
0023320 ( C A R B I N D I N G ) \r
0023340
*
0023400 ( S E T
0023420 Q B I N D I N G ( C A D R
0023440 B I N D I N G ) ) ) ) \r
0023460
*
0023520 ( T ( M A K E - K E Y W O R
0023540 D B I N D I N G ) ) ) ) ) \r
0023560
0023600 ( C O N D \r
0023620
0023640 ( S V A R ( 006 002 p
0023660 u s h 006 001 K E Y V A R S ( L
0023700 I S T S V A R T ) ) ) ) \r
0023720
0023740 ( 006 002 p u s h 006 001 \r
0023760
0024000 K E Y V A R S \r
0024020
0024040 ( L I S T B I
0024060 N D I N G \r
0024100
0024120 ` ( 006 002 f o r 006 001 \ I
0024140 N D E X 006 002 f r o m 006 001 , C
0024160 N T 006 002 t o 006 001 - a r g s -
0024200 006 002 b y 006 001 2 \r
0024220
0024240 006 002 w h
0024260 e n 006 001 ( E Q ( A R G - a
0024300 r g s - \ I N D E X ) \r
0024320
*
0024360 , K E Y ) 006 002
0024400 d o 006 001 ( R E T U R N ( A R
0024420 G - a r g s - ( A D D 1 \
0024440 I N D E X ) ) ) \r
0024460
0024500 006 002 f i n
0024520 a l l y 006 001 ( R E T U R N ,
0024540 ( C O N D \r
0024560
*
0024620 ( S V A
0024640 R ` ( P R O G N ( S E T Q
0024660 , S V A R N I L ) \r
0024700
*
0024760 ,
0025000 I N I T ) ) \r
0025020
*
0025060 ( T
0025100 I N I T ) ) ) ) ) ) ) \r
0025120
0025140 ( S E T Q M A X N I L )
0025160 \r
0025200 ( S E T Q S I M
0025220 P L E P N I L ) ) \r
0025240 ( & O P T
0025260 I O N A L ( O R ( L I S T P
0025300 B I N D I N G ) \r
0025320
0025340 ( S E T Q B
0025360 I N D I N G ( L I S T B I N
0025400 D I N G ) ) ) \r
0025420
0025440 ( L E T ( ( S V A R (
0025460 C A D D R B I N D I N G ) ) )
0025500 \r
0025520
0025540 ( C L : W H E N S V A R (
0025560 006 002 p u s h 006 001 O P T V A R S
0025600 S V A R ) \r
0025620
0025640 ( S
0025660 E T Q S I M P L E P N I L )
0025700 ) \r
0025720
0025740 ( C L : W H E N ( C A D R
0025760 B I N D I N G ) \r
0026000
*
0026040 ( S E T Q S I M P L E P N
0026060 I L ) ) \r
0026100
0026120 ( 006 002 p u s h 006 001 O
0026140 P T V A R S \r
0026160
0026200 ` ( ,
0026220 ( C A R B I N D I N G ) \r
0026240
*
0026300 ( C O N D \r
0026320
*
0026360 ( ( I G R E A T E
0026400 R P , C N T - a r g s - ) \r
0026420
*
0026460 , ( C A
0026500 D R B I N D I N G ) ) \r
0026520
*
0026560 ( T , @ ( C O
0026600 N D \r
0026620
*
0026660 ( S V A R ` ( ( S
0026700 E T Q , S V A R T ) ) ) )
0026720 ( A R G - a r g s - , C N T
0026740 ) ) ) ) ) ) \r
0026760
0027000 ( A N D M A X ( 006 002 a d
0027020 d 006 001 M A X 1 ) ) \r
0027040
0027060 ( 006 002 a d d 006 001
0027100 C N T 1 ) ) \r
0027120 ( S H O U L D N
0027140 T ) ) ) ) \r ( C L : M
0027160 U L T I P L E - V A L U E - S E
0027200 T Q ( B O D Y D E C L S ) \r
0027220 ( P A R
0027240 S E - B O D Y ( C D R ( C D
0027260 R E X P R ) ) \r
0027300 N I L )
0027320 ) \r ( 006 002 C L : I F 006
0027340 001 S I M P L E P ` ( L A M B
0027360 D A ( , @ ( R E V E R S E V
0027400 R B L S ) , @ ( M A P C A R
0027420 ( R E V E R S E O P T V A R S
0027440 ) \r
0027460
*
0027520 ( 006 002 F U
0027540 N C T I O N 006 001 C A R ) ) ) \r
0027560
0027600 ( 006 002 D E C L A R
0027620 E 006 001 ( L O C A L V A R S .
0027640 T ) ) \r
0027660 , @ D E
0027700 C L S \r
0027720 ( L E T *
0027740 ( , @ ( R E V E R S E A U X
0027760 L I S T ) ) \r
0030000
0030020 , @ D E C L S \r
0030040
0030060 , @ B O D Y )
0030100 ) \r ` (
0030120 L A M B D A - a r g s - \r
0030140 ( 006 002
0030160 D E C L A R E 006 001 ( L O C A L
0030200 V A R S . T ) ) \r
0030220 , @ ( C O N
0030240 D \r
0030260 ( ( A N D * C H E
0030300 C K - A R G U M E N T - C O U N
0030320 T S * M I N ( N E Q M I N
0030340 0 ) ) \r
0030360 ` ( ( C O N
0030400 D \r
0030420 ( ( I L
0030440 E S S P , ' - a r g s - , M
0030460 I N ) \r
0030500 (
0030520 E R R O R " T o o f e w a
0030540 r g s " , ' - a r g s - ) ) )
0030560 ) ) ) \r
0030600 , @ ( C O N D \r
0030620 (
0030640 ( A N D * C H E C K - A R G U
0030660 M E N T - C O U N T S * M A X
0030700 ) \r
0030720 ` ( ( C O N D \r
0030740
0030760 ( ( I G R E A
0031000 T E R P , ' - a r g s - , M
0031020 A X ) \r
0031040 (
0031060 E R R O R " T o o m a n y
0031100 a r g s " , ' - a r g s - ) )
0031120 ) ) ) ) \r
0031140 ( L E T * ( , @ ( 006 002
0031160 f o r 006 001 V A R 006 002 i n 006 001
0031200 ( R E V E R S E V R B L S )
0031220 006 002 a s 006 001 I 006 002 f r o m
0031240 006 001 1 \r
0031260
0031300 006 002 c o l l e c t 006 001 ( L I S
0031320 T V A R ` ( A R G - a r g
0031340 s - , I ) ) ) , @ ( R E V E
0031360 R S E O P T V A R S ) \r
0031400
0031420 , @ ( R E V E
0031440 R S E K E Y V A R S ) \r
0031460
0031500 , @ R E S T F
0031520 O R M \r
0031540
0031560 , @ ( R E V E R S E A U X L I
0031600 S T ) ) \r
0031620 , @ D E C L
0031640 S \r
0031660 , @ B O D Y ) ) )
0031700 ) ) ) \r ) \r ( C L : D E F P A R
0031720 A M E T E R 006 002 * C H E C K -
0031740 A R G U M E N T - C O U N T S *
0031760 006 001 N I L ) \r \r \r ( P U T P R
0032000 O P S 006 002 C O M M O N - L I S
0032020 P D M A C R O 006 001 ( ( X ) \r
0032040
0032060 X )
0032100 ) \r ( C L : D E F P A R A M E T
0032120 E R 006 002 C L : L A M B D A - L
0032140 I S T - K E Y W O R D S 006 001 '
0032160 ( & O P T I O N A L & R E S T
0032200 & K E Y & A U X & B O D Y
0032220 & W H O L E & A L L O W - O
0032240 T H E R - K E Y S \r
0032260
*
0032320 & E N V
0032340 I R O N M E N T ) ) \r \r ( C L
0032360 : D E F P A R A M E T E R 006 002
0032400 C L : C A L L - A R G U M E N T
0032420 S - L I M I T 006 001 5 1 2 ) \r \r
0032440 ( C L : D E F P A R A M E T E R
0032460 006 002 C L : L A M B D A - P A R
0032500 A M E T E R S - L I M I T 006 001
0032520 5 1 2 ) \r \r ( D E F S T R U C T
0032540 006 002 C L O S U R E 006 001 " A n
0032560 i n t e r p r e t e d l e x
0032600 i c a l c l o s u r e . C o
0032620 n t a i n s t h e f u n c t
0032640 i o n a n d a n e n v i r
0032660 o n m e n t o b j e c t " \r
0032700 F U N C T I O N E N V I R
0032720 O N M E N T ) \r \r ( D E F S T R
0032740 U C T 006 002 E N V I R O N M E N
0032760 T 006 001 " A n e n v i r o n m
0033000 e n t u s e d b o t h b y
0033020 i n t e r p r e t e r a n d
0033040 m a c r o e x p a n d e r "
0033060 V A R S F U N C T I O N S
0033100 \r
0033120
*
0033220 B L O C K S
0033240 T A G S \r
0033260
*
0033400 P A R E N T \r
0033420
*
0033540 M A C R O S ) \r \r ( D E F I N
0033560 E Q \r \r ( 006 004 C L : E V A L 006 001
0033600 \r ( L A M B D A ( E X P R
0033620 E S S I O N E N V I R O N M E
0033640 N T ) \r ( 006 002 D E C L A
0033660 R E 006 001 ( L O C A L V A R S
0033700 . T ) ) 006 006 006 001
0033720
0033740 006 006 ( * l m
0033760 m " 2 2 - O c t - 8 6 0 9 :
0034000 3 0 " ) 006 001 \r ( C L : T
0034020 Y P E C A S E E X P R E S S I
0034040 O N ( C L : S Y M B O L \r
0034060
0034100 ( C O N D
0034120 \r
0034140
0034160 ( ( N U L L E X P R E S S I
0034200 O N ) \r
0034220
0034240 N I L ) \r
0034260
0034300 ( ( E Q E
0034320 X P R E S S I O N T ) \r
0034340
0034360 T )
0034400 \r
0034420
0034440 ( ( C L : K E Y W O R D P E
0034460 X P R E S S I O N ) 006 006
0034500 ( * \r 006 001
0034520
0034540 006 006 " w o u l d n ' t
0034560 n e e d t h i s i f k e
0034600 y w o r d s w e r e s e t
0034620 t o t h e m s e l v e s w h
0034640 e n g e n e r a t e d " ) 006 001
0034660 \r
0034700
0034720 E X P R E S S I O N ) \r
0034740
0034760 ( T
0035000 ( 006 002 w h i l e 006 001 E N V I
0035020 R O N M E N T 006 002 b i n d 006 001
0035040 L O C V A L \r
0035060
0035100 006
0035120 002 d o 006 001 ( 006 002 i f 006 001 ( S
0035140 E T Q L O C ( A S S O C E
0035160 X P R E S S I O N ( E N V I R
0035200 O N M E N T - V A R S \r
0035220
*
0035320 E N V
0035340 I R O N M E N T ) ) ) \r
0035360
*
0035420 006 002 t h e n 006
0035440 001 ( R E T U R N ( C D R L
0035460 O C ) ) \r
0035500
*
0035540 006 002 e l s e 006 001 ( S E T Q E
0035560 N V I R O N M E N T ( E N V I
0035600 R O N M E N T - P A R E N T E
0035620 N V I R O N M E N T ) ) ) \r
0035640
*
0035700 006 002 f i n a l l y 006 001
0035720 006
0035740 006 ( * \r 006 001
0035760
*
0036020 006 006 " c o p i
0036040 e d f r o m \ E V A L V A R
0036060 i n t h e I n t e r l i s
0036100 p i n t e r p r e t e r " ) 006
0036120 001 \r
0036140
0036160 ( S
0036200 E T Q L O C ( \ S T K S C A
0036220 N E X P R E S S I O N ) ) \r
0036240
*
0036300 ( R E T U
0036320 R N ( C O N D \r
0036340
*
0036420 ( ( A N D ( E Q ( S E T Q
0036440 V A L ( \ G E T B A S E P T R
0036460 L O C 0 ) ) \r
0036500
*
0036560 ' N O B I N
0036600 D ) \r
0036620
*
0036700 ( E Q ( C L : F L O O R ( \
0036720 H I L O C L O C ) \r
0036740
*
0037040 2 ) \r
0037060
*
0037140 ( \ H I L O C \
0037160 V A L S P A C E ) ) ) \r
0037200 \r
0037220 006 006 ( * V a l u e i s N
0037240 O B I N D a n d i t w a s
0037260 f o u n d a s t h e t o
0037300 p - l e v e l v a l u e ) 006 001
0037320 \r \r
0037340
*
0037400 ( C L : E R
0037420 R O R ' U N B O U N D - V A R
0037440 I A B L E : N A M E E X P R
0037460 E S S I O N ) \r
0037500
*
0037560 ) \r
0037600
*
0037640 ( T V A L )
0037660 ) ) ) ) ) ) \r
0037700 ( C O N S ( 006 002 C L : I F
0037720 006 001 ( C L : C O N S P ( C A
0037740 R E X P R E S S I O N ) ) \r
0037760
0040000 ( L E T ( ( A R
0040020 G C O U N T 1 ) )
0040040 006 006 ( *
0040060 " T h i s i s a v e r y
0040100 v e r y a w f u l h a c k
0040120 . " \r 006 001
0040140
0040160 006 006 " . C O M
0040200 P I L E R - S P R E A D - A R G
0040220 U M E N T S . i s h a n d l
0040240 e d s p e c i a l l y b y
0040260 t h e c o m p i l e r " \r 006
0040300 001
0040320
*
0040360 006 006
0040400 " i t i t e r a t e s o v e
0040420 r a l i s t p u s h i n g
0040440 t h i n g s " \r 006 001
0040460
*
0040540 006 006 " s e c o
0040560 n d l y , t h e ( O P C O D
0040600 E S ) d i r e c t l y c a l
0040620 l s " \r 006 001
0040640
*
0040720 006 006 E V A L - I N V O K
0040740 E - L A M B D A \r 006 001
0040760
0041000 006 006
0041020 " w i t h m o r e a r g s
0041040 t h a n a r e g i v e n ,
0041060 b l o w i n g a w a y t h e
0041100 f o l l o w i n g A P P L Y
0041120 F N " ) 006 001 \r
0041140
0041160 ( . C O M P I L E R - S
0041200 P R E A D - A R G U M E N T S .
0041220 ( C D R E X P R E S S I O N
0041240 ) \r
0041260
0041300 A R G C O U N T \r
0041320
*
0041360 ( ( O P C O D E S F N 3
0041400 0 ( F N . E V A L - I N
0041420 V O K E - L A M B D A ) \r
0041440
*
0041500 R E T U R N )
0041520 \r
0041540
0041560 ( C A R E X P R E
0041600 S S I O N ) \r
0041620
0041640 E N V I
0041660 R O N M E N T ) \r
0041700
0041720 ( ( 006
0041740 002 C L : E V A L 006 001 E N V I R
0041760 O N M E N T ) ) ) ) \r
0042000
0042020 ( C A S E ( A R G T Y P
0042040 E ( C A R E X P R E S S I O
0042060 N ) ) \r
0042100
0042120 ( ( 0 2 ) \r
0042140
0042160 ( L E T ( ( A
0042200 R G C O U N T 0 ) ) \r
0042220
*
0042260 ( . C O M P I L E R - S P R E A
0042300 D - A R G U M E N T S . ( C D
0042320 R E X P R E S S I O N ) \r
0042340
*
0042400 A R G C O U N
0042420 T \r
0042440
0042460 ( C A
0042500 R E X P R E S S I O N ) \r
0042520
*
0042560 ( ( 006 002 C L :
0042600 E V A L 006 001 E N V I R O N M E
0042620 N T ) ) ) ) ) \r
0042640
0042660 ( T ( L E T ( (
0042700 T E M P ( G E T ( C A R E
0042720 X P R E S S I O N ) \r
0042740
*
0043000 ' S P
0043020 E C I A L - F O R M ) ) ) \r
0043040
*
0043100 ( C O N D \r
0043120
*
0043160 ( T E M P ( 006 002 C L : F
0043200 U N C A L L 006 001 T E M P ( C
0043220 D R E X P R E S S I O N ) \r
0043240
*
0043320 E N V I R O N M E N T
0043340 ) ) \r
0043360
0043400 ( ( S E
0043420 T Q T E M P ( C L : M A C R
0043440 O - F U N C T I O N ( C A R
0043460 E X P R E S S I O N ) \r
0043500
*
0043560 E N V I R O N M
0043600 E N T ) ) \r
0043620
*
0043660 ( 006 002 C L : E V A L 006 001 ( C L
0043700 : M A C R O E X P A N D - 1 E
0043720 X P R E S S I O N E N V I R O
0043740 N M E N T ) \r
0043760
*
0044020 E N V I R O N M
0044040 E N T ) ) \r
0044060
0044100 (
0044120 T ( E R R O R " U n d e f i
0044140 n e d c a r o f f o r m "
0044160 E X P R E S S I O N ) ) ) ) )
0044200 ) ) ) \r (
0044220 ( O R C L : N U M B E R S T
0044240 R I N G C L : C H A R A C T E
0044260 R C L : B I T - V E C T O R )
0044300 \r E X P
0044320 R E S S I O N ) \r
0044340 ( C L : O T H E R W I S
0044360 E ( C L : C E R R O R " r e
0044400 t u r n t h e e x p r e s s
0044420 i o n a s i t s o w n v
0044440 a l u e " \r
0044460
0044500 " ~ s i n v a l
0044520 i d f o r m f o r E V A L
0044540 . " E X P R E S S I O N ) \r
0044560
0044600 E X P R E S S I O N ) ) ) ) \r
0044620 \r ( 006 004 E V A L - I N V O K E -
0044640 L A M B D A 006 001 \r ( L A M B
0044660 D A ( N L A M E N V I R O
0044700 N M E N T ) 006 006 006 001
0044720
0044740 006 006 ( * P
0044760 a v e l " 6 - O c t - 8 6
0045000 1 9 : 4 8 " ) 006 001 \r ( L
0045020 E T ( ( A R G B L O C K ( A
0045040 D D S T A C K B A S E ( - (
0045060 006 002 f e t c h 006 001 ( F X N E
0045100 X T B L O C K ) 006 002 o f 006 001
0045120 ( \ M Y A L I N K ) ) \r
0045140
*
0045200 ( + ( C L : D E C F N ) \r
0045220
*
0045260 N ) ) ) ) ) 006 006
0045300 006 001 006 006 ( * ; ; " F
0045320 i r s t s u b - f o r m i s
0045340 a l i s t o f ( v a r i
0045360 a b l e i n i t i a l i z a t
0045400 i o n ) p a i r s . I n i
0045420 t i a l i z e s t h e v a r
0045440 i a b l e s , b i n d i n g
0045460 t h e m t o n e w v a l u
0045500 e s a l l a t o n c e ,
0045520 t h e n e x e c u t e s t h
0045540 e r e m a i n i n g f o r m
0045560 s a s i n a P R O G N .
0045600 " ) 006 001 \r ( C
0045620 L : M U L T I P L E - V A L U E
0045640 - B I N D ( B O D Y D E C L
0045660 S ) \r
0045700 ( P A R S E - B O D Y (
0045720 C D D R L A M ) \r
0045740
0045760 E N V I R O N M E N T ) \r
0046000 ( 006
0046020 002 \ I N T E R P R E T - A R G U
0046040 M E N T S 006 001 " a L A M B D
0046060 A a s t h e C A R o f
0046100 a f o r m " ( C L : E C A S
0046120 E ( C A R L A M ) \r
0046140
*
0046240 ( ( L A M B D
0046260 A ) \r
0046300
*
0046400 ' & I N T E R L I S P ) \r
0046420
*
0046520 ( ( C L :
0046540 L A M B D A ) \r
0046560
*
0046660 ' & R E Q U I R E D
0046700 ) ) \r
0046720 ( C A D R
0046740 L A M ) \r
0046760 D E C L
0047000 S \r
0047020 ( M A K E - E
0047040 N V I R O N M E N T : P A R E
0047060 N T E N V I R O N M E N T ) \r
0047100
0047120 B O D Y A R G B
0047140 L O C K N 0 ) ) ) ) ) \r \r (
0047160 006 004 \ I N T E R P R E T - A R G
0047200 U M E N T S 006 001 \r ( L A M B
0047220 D A ( \ F N - N A M E \ A R
0047240 G T Y P E \ A R G L I S T \
0047260 D E C L A R A T I O N S \ E N
0047300 V I R O N M E N T \ B O D Y
0047320 \ A R G U M E N T - B L O C K
0047340 \ L E N G T H \ I N D E X \r
0047360
0047400 ) 006 006 006 001
0047420
*
0047460 006 006 ( * P a v e l " 6 - O
0047500 c t - 8 6 1 9 : 4 8 " ) 006 001 006
0047520 006 006 001 \r
0047540
*
0047600 006 006 ( * ; ; " W
0047620 r i t t e n i n a s o m e
0047640 w h a t a r c a n e s t y l
0047660 e t o a v o i d r e c u r
0047700 s i v e c a l l s w h e n e
0047720 v e r p o s s i b l e , &
0047740 k e e p c o d e i n l i n e
0047760 . R E C U R d o e s a r
0050000 e c u r s i v e c a l l i f
0050020 u n d e r a P R O G V ,
0050040 b u t o t h e r w i s e d o
0050060 e s a G O . " ) 006 001 \r
0050100 ( C L : M A C R O L E T \r
0050120 ( ( R E C U R ( T A G
0050140 ) \r `
0050160 ( G O , T A G ) ) \r
0050200 ( W I T H - B I N D I N G \r
0050220 ( V A R V A L &
0050240 R E S T F O R M S ) \r
0050260 ` ( P R O G N ( 006 002 C H
0050300 E C K - B I N D A B L E 006 001 ,
0050320 V A R ) \r
0050340 ( 006 002 C L : I F 006 001 (
0050360 O R ( 006 002 D E C L A R E D - S
0050400 P E C I A L 006 001 , V A R \ D
0050420 E C L A R A T I O N S ) \r
0050440
0050460 ( V A R I A B L E
0050500 - G L O B A L L Y - S P E C I A
0050520 L - P , V A R ) ) \r
0050540
0050560 ( C L : M A C R O L E T ( (
0050600 R E C U R ( T A G ) \r
0050620
*
0050660 ` ( 006 002 \ I N T E
0050700 R P R E T - A R G U M E N T S 006
0050720 001 \r
0050740
0050760 \
0051000 F N - N A M E \r
0051020
*
0051060 , ( 006 002 C L : I F 006 001
0051100 ( E Q T A G ' I N - K E Y
0051120 W O R D S ) \r
0051140
*
0051200 ' \ A R
0051220 G T Y P E \r
0051240
*
0051300 ` ' , T A
0051320 G ) \ A R G L I S T \ D E C
0051340 L A R A T I O N S \ E N V I R
0051360 O N M E N T \r
0051400
*
0051440 \ B O D Y \ A R G U
0051460 M E N T - B L O C K \ L E N G
0051500 T H \ I N D E X ) ) ) \r
0051520
0051540 ( C L : P R
0051560 O G V ( L I S T , V A R ) \r
0051600
*
0051640 ( L I S T , V A L ) \r
0051660
*
0051720 , @ F O R M S ) ) \r
0051740
0051760 ( P R O G N ( C L : P
0052000 U S H ( C O N S , V A R ,
0052020 V A L ) \r
0052040
0052060 ( E N V I R O
0052100 N M E N T - V A R S \ E N V I
0052120 R O N M E N T ) ) \r
0052140
0052160 , @ F O R M S ) )
0052200 ) ) ) \r ( P R O G (
0052220 V A R V A L S V A R S P )
0052240 006 006 006 001
0052260 006 006 ( * ;
0052300 ; " d i s p a t c h o n i
0052320 n p u t t y p e . T h e i
0052340 n - k e y w o r d s c a s e
0052360 i s s p e c i a l , s i n c
0052400 e i t n e e d s t o p a
0052420 s s d o w n w h e r e t h
0052440 e b e g i n n i n g o f t
0052460 h e k e y w o r d s s e c t
0052500 i o n i s " ) 006 001 \r
0052520 ( C A S E \ A R G
0052540 T Y P E ( & R E Q U I R E D
0052560 ( G O & R E Q U I R E D ) ) \r
0052600
0052620 ( & O P T I O N A L ( G O
0052640 & O P T I O N A L ) ) \r
0052660 ( & I
0052700 N T E R L I S P ( G O & I N
0052720 T E R L I S P ) ) \r
0052740 ( & R E S
0052760 T ( G O & R E S T ) ) \r
0053000 (
0053020 & K E Y ( G O & K E Y ) ) \r
0053040
0053060 ( & A U X ( G O & A U X )
0053100 ) \r
0053120 ( & B O D Y ( G O & B
0053140 O D Y ) ) \r
0053160 ( T ( G O I N
0053200 - K E Y W O R D S ) ) ) \r
0053220 & R E Q U I R E D \r
0053240 ( R E T U R N
0053260 \r ( C O
0053300 N D \r
0053320 ( ( N U L L \ A R G L I S
0053340 T ) \r
0053360 ( 006 002 C L : I F 006 001 ( <
0053400 \ I N D E X \ L E N G T H )
0053420 \r
0053440 ( C L : E R R O
0053460 R ' T O O - M A N Y - A R G U
0053500 M E N T S : C A L L E E \ F
0053520 N - N A M E : A C T U A L \
0053540 L E N G T H : M A X I M U M
0053560 \ I N D E X \r
0053600
0053620 ) ) \r
0053640 ( R E C U R &
0053660 B O D Y ) ) \r
0053700 ( T ( C A S E (
0053720 S E T Q V A R ( 006 002 p o p 006
0053740 001 \ A R G L I S T ) ) \r
0053760
0054000 ( & O P T I O N A L
0054020 ( R E C U R & O P T I O N A L
0054040 ) ) \r
0054060 ( & R E S
0054100 T ( R E C U R & R E S T ) )
0054120 \r
0054140 ( & A U X (
0054160 R E C U R & A U X ) ) \r
0054200
0054220 ( & K E Y ( R E C U
0054240 R & K E Y ) ) \r
0054260
0054300 ( T ( C O N D \r
0054320
0054340 ( ( > = \ I N
0054360 D E X \ L E N G T H ) \r
0054400
0054420 ( C L :
0054440 E R R O R ' T O O - F E W - A
0054460 R G U M E N T S : C A L L E E
0054500 \ F N - N A M E : A C T U A
0054520 L \ L E N G T H : M I N I M
0054540 U M \r
0054560
0054600 ( + 1 \ I
0054620 N D E X \r
0054640
0054660 ( 006
0054700 002 F O R 006 001 A R G 006 002 I N 006
0054720 001 \ A R G L I S T \r
0054740
*
0055000 006 002 W H I L E 006 001
0055020 ( N O T ( F M E M B A R G
0055040 ' ( & O P T I O N A L & R E
0055060 S T & A U X & K E Y ) ) ) \r
0055100
*
0055140 006 002 S U
0055160 M 006 001 1 ) ) ) ) ) \r
0055200
0055220 ( S E T Q V A L
0055240 ( A R G - R E F \ A R G U M E
0055260 N T - B L O C K ( P R O G 1
0055300 \ I N D E X ( C L : I N C F
0055320 \ I N D E X ) ) ) ) \r
0055340
0055360 ( W I T H - B I N D
0055400 I N G V A R V A L ( R E C
0055420 U R & R E Q U I R E D ) ) ) )
0055440 ) ) ) \r & O P T I
0055460 O N A L \r
0055500 ( R E T U R N ( C O N D \r
0055520
0055540 ( ( N U L L \ A R G L
0055560 I S T ) \r
0055600 ( 006 002 C
0055620 L : I F 006 001 ( < \ I N D E X
0055640 \ L E N G T H ) \r
0055660
0055700 ( C L : E R R O
0055720 R ' T O O - M A N Y - A R G U
0055740 M E N T S : C A L L E E \ F
0055760 N - N A M E : A C T U A L \
0056000 L E N G T H : M A X I M U M
0056020 \r
0056040
0056060 \ I N D E X ) ) \r
0056100
0056120 ( R E C U R & B O
0056140 D Y ) ) \r
0056160 ( T ( C
0056200 A S E ( S E T Q V A R ( 006
0056220 002 p o p 006 001 \ A R G L I S T )
0056240 ) \r
0056260
0056300 ( & R E S T ( R E C U R &
0056320 R E S T ) ) \r
0056340
0056360 ( & A U X ( R E C
0056400 U R & A U X ) ) \r
0056420
0056440 ( & K E Y (
0056460 R E C U R & K E Y ) ) \r
0056500
0056520 ( T (
0056540 006 002 C L : I F 006 001 ( > = \ I
0056560 N D E X \ L E N G T H ) \r
0056600
*
0056640 ( 006 002 C L : I F 006
0056660 001 ( C L : C O N S P V A R )
0056700 \r
0056720
*
0056760 ( P R O G N ( S E T Q V A
0057000 L ( 006 002 C L : E V A L 006 001 (
0057020 C A D R V A R ) \r
0057040
*
0057140 \ E N V I R O N M E N T ) )
0057160 \r
0057200
*
0057240 ( S E T Q S V
0057260 A R ( C A D D R V A R ) ) \r
0057300
*
0057360 ( S E T Q V A R
0057400 ( C A R V A R ) ) \r
0057420
*
0057500 ( S E T Q S P N I L )
0057520 ) \r
0057540
*
0057600 ( S E T Q V A L N I L )
0057620 ) \r
0057640
0057660 ( P R O G
0057700 N ( C O N D \r
0057720
*
0057760 ( ( C L :
0060000 C O N S P V A R ) \r
0060020
*
0060060 (
0060100 S E T Q S V A R ( C A D D R
0060120 V A R ) ) \r
0060140
*
0060200 ( S E T Q
0060220 S P T ) \r
0060240
*
0060300 ( S E T Q
0060320 V A R ( C A R V A R ) ) )
0060340 ) \r
0060360
*
0060420 ( S E T Q V A L ( A R G
0060440 - R E F \ A R G U M E N T - B
0060460 L O C K \ I N D E X ) ) \r
0060500
*
0060540 ( C
0060560 L : I N C F \ I N D E X ) ) )
0060600 \r
0060620
0060640 ( W I T H - B I N D I N G
0060660 V A R V A L ( 006 002 C L : I
0060700 F 006 001 S V A R ( W I T H - B
0060720 I N D I N G S V A R S P \r
0060740
*
0061040 ( R E C U R
0061060 & O P T I O N A L ) ) \r
0061100
*
0061160 ( R E C
0061200 U R & O P T I O N A L ) ) ) )
0061220 ) ) ) ) \r & I N T
0061240 E R L I S P \r
0061260 ( R E T U R N ( C O N D \r
0061300
0061320 ( ( N U L L \ A R
0061340 G L I S T ) \r
0061360 ( R
0061400 E C U R & B O D Y ) ) \r
0061420
0061440 ( T ( S E T Q V A R
0061460 ( 006 002 p o p 006 001 \ A R G L I S
0061500 T ) ) \r
0061520 ( 006 002
0061540 C L : I F 006 001 ( > = \ I N D
0061560 E X \ L E N G T H ) \r
0061600
0061620 ( S E T
0061640 Q V A L N I L ) \r
0061660
0061700 ( P R O G
0061720 N ( S E T Q V A L ( A R G
0061740 - R E F \ A R G U M E N T - B
0061760 L O C K \ I N D E X ) ) \r
0062000
*
0062040 ( C L : I N C F \ I
0062060 N D E X ) ) ) \r
0062100
0062120 ( W I T H - B I N D I N G V
0062140 A R V A L ( R E C U R & I
0062160 N T E R L I S P ) ) ) ) ) \r
0062200 & R E S T \r
0062220 ( S E T Q V A R
0062240 ( 006 002 p o p 006 001 \ A R G L I S
0062260 T ) ) \r (
0062300 S E T Q V A L ( 006 002 f o r 006
0062320 001 I 006 002 f r o m 006 001 \ I N
0062340 D E X 006 002 w h i l e 006 001 ( <
0062360 I \ L E N G T H ) 006 002 c o
0062400 l l e c t 006 001 ( A R G - R E F
0062420 \ A R G U M E N T - B L O C K
0062440 I ) ) ) \r
0062460 ( R E T U R N ( W I T H - B
0062500 I N D I N G V A R V A L (
0062520 006 002 C L : I F 006 001 ( N U L L
0062540 \ A R G L I S T ) \r
0062560
*
0062620 ( R E C U R
0062640 & B O D Y ) \r
0062660
*
0062720 ( C A S E ( 006
0062740 002 p o p 006 001 \ A R G L I S T )
0062760 \r
0063000
*
0063040 ( & A U X ( R E
0063060 C U R & A U X ) ) \r
0063100
*
0063160 ( & K E Y ( R E C U R & K
0063200 E Y ) ) \r
0063220
*
0063260 ( T ( C
0063300 L : E R R O R ' I N V A L I D
0063320 - A R G U M E N T - L I S T :
0063340 C A L L E E \r
0063360
*
0063440 \ F N - N A M E
0063460 ) ) ) ) ) ) \r & K
0063500 E Y \r ( O
0063520 R ( E V E N P ( - \ L E N
0063540 G T H \ I N D E X ) ) \r
0063560 ( C L :
0063600 E R R O R " N o t a n e v
0063620 e n n u m b e r o f a r g
0063640 u m e n t s f o r & K E Y "
0063660 ) ) \r ( S
0063700 E T Q \ A R G T Y P E \ A R
0063720 G L I S T ) 006 006 006 001
0063740 006 006 ( * ;
0063760 \r 006 001
0064000
*
0064040 006 006 " T y p e i s n
0064060 o w t h e b e g i n n i n g
0064100 o f t h e k e y w o r d
0064120 a r g u m e n t s " ) 006 001 \r
0064140 I N - K E Y W O R D S
0064160 \r ( R E T
0064200 U R N \r
0064220 ( C O N D \r
0064240 ( ( N U L L \ A R G
0064260 L I S T ) \r
0064300 ( 006 002 C H E C K - K
0064320 E Y W O R D S 006 001 \ A R G T Y
0064340 P E \ A R G U M E N T - B L O
0064360 C K \ L E N G T H \ I N D E
0064400 X ) \r
0064420 ( R E C U R & B O D Y )
0064440 ) \r
0064460 ( T ( C A S E ( S E T Q
0064500 V A R ( 006 002 p o p 006 001 \ A R
0064520 G L I S T ) ) \r
0064540
0064560 ( & A U X ( 006 002 C H E C K - K
0064600 E Y W O R D S 006 001 \ A R G T Y
0064620 P E \ A R G U M E N T - B L O
0064640 C K \ L E N G T H \ I N D E
0064660 X ) \r
0064700
0064720 ( R E C U R & A U X ) ) \r
0064740
0064760 ( & A L L O W - O
0065000 T H E R - K E Y S ( 006 002 C L :
0065020 I F 006 001 ( N U L L \ A R G L
0065040 I S T ) \r
0065060
*
0065120 ( R E C U R & B
0065140 O D Y ) \r
0065160
*
0065220 ( C A S E ( 006 002
0065240 p o p 006 001 \ A R G L I S T ) \r
0065260
*
0065340 ( & A U X ( R
0065360 E C U R & A U X ) ) \r
0065400
*
0065460 ( T ( C L : E R R O R
0065500 ' I N V A L I D - A R G U M E
0065520 N T - L I S T : C A L L E E
0065540 \r
0065560
*
0065640 \ F N - N A M E ) ) ) ) )
0065660 \r
0065700 ( T ( C O N
0065720 D \r
0065740
0065760 ( ( C L : C O N S P V A R ) \r
0066000
0066020 (
0066040 S E T Q V A L ( C A D R V
0066060 A R ) ) \r
0066100
0066120 ( S E T Q S V A R (
0066140 C A D D R V A R ) ) \r
0066160
0066200 ( S E T Q
0066220 V A R ( C A R V A R ) ) )
0066240 \r
0066260 (
0066300 T ( S E T Q S V A R N I L
0066320 ) \r
0066340
0066360 ( S E T Q V A L N I L
0066400 ) ) ) \r
0066420 (
0066440 L E T ( ( K E Y ( 006 002 C L :
0066460 I F 006 001 ( C L : C O N S P V
0066500 A R ) \r
0066520
*
0066560 ( P R O G 1 ( C A R V A R
0066600 ) \r
0066620
*
0066660 ( S E T Q V A R
0066700 ( C A D R V A R ) ) ) \r
0066720
*
0066760 ( M A K E -
0067000 K E Y W O R D V A R ) ) ) ) \r
0067020
*
0067060 ( 006 002 f o r 006 001 I 006 002 f r o
0067100 m 006 001 \ I N D E X 006 002 w h i
0067120 l e 006 001 ( < I \ L E N G T
0067140 H ) 006 002 b y 006 001 2 \r
0067160
0067200 006
0067220 002 d o 006 001 ( 006 002 C L : I F 006 001
0067240 ( E Q ( A R G - R E F \ A
0067260 R G U M E N T - B L O C K I )
0067300 \r
0067320
*
0067360 K E Y ) \r
0067400
*
0067440 ( R E T U R N ( P R O
0067460 G N ( S E T Q V A L ( A R
0067500 G - R E F \ A R G U M E N T -
0067520 B L O C K \r
0067540
*
0067640 ( + I 1 ) ) ) \r
0067660
*
0067740 ( S E T Q S
0067760 P T ) ) ) ) \r
0070000
0070020 006 002 f i n
0070040 a l l y 006 001 ( S E T Q V A L
0070060 ( 006 002 C L : E V A L 006 001 V A
0070100 L \ E N V I R O N M E N T ) )
0070120 \r
0070140
0070160 ( S E T Q
0070200 S P N I L ) ) ) \r
0070220
0070240 ( W I T H - B I N D I
0070260 N G V A R V A L ( 006 002 C L
0070300 : I F 006 001 S V A R ( W I T H
0070320 - B I N D I N G S V A R S P
0070340 ( R E C U R I N - K E Y W O
0070360 R D S \r
0070400
*
0070500 ) )
0070520 \r
0070540
*
0070600 ( R E C U R
0070620 I N - K E Y W O R D S ) ) ) ) )
0070640 ) ) ) \r & A U X \r
0070660 ( R E T U
0070700 R N ( C O N D \r
0070720 (
0070740 ( N U L L \ A R G L I S T ) \r
0070760
0071000 ( R E C U R & B
0071020 O D Y ) ) \r
0071040 ( T (
0071060 S E T Q V A R ( 006 002 p o p 006
0071100 001 \ A R G L I S T ) ) \r
0071120
0071140 ( 006 002 C L : I F 006 001
0071160 ( C L : C O N S P V A R ) \r
0071200
*
0071240 ( P R O G N ( S E T Q V A L
0071260 ( 006 002 C L : E V A L 006 001 ( C
0071300 A D R V A R ) \r
0071320
*
0071400 \ E N V I R O N M E N T ) ) \r
0071420
*
0071460 ( S E T Q V A R
0071500 ( C A R V A R ) ) ) \r
0071520
0071540 ( S E
0071560 T Q V A L N I L ) ) \r
0071600
0071620 ( W I T H - B I N D
0071640 I N G V A R V A L ( R E C
0071660 U R & A U X ) ) ) ) ) \r
0071700 & B O D Y \r
0071720 ( R E T U R N ( 006 002
0071740 C L : I F 006 001 ( N U L L ( C
0071760 D R \ B O D Y ) ) \r
0072000
0072020 ( 006 002 C L : I F 006 001
0072040 ( C L : C O N S P ( S E T Q
0072060 \ B O D Y ( C A R \ B O D Y
0072100 ) ) ) \r
0072120
0072140 ( C A S E ( C A R
0072160 \ B O D Y ) \r
0072200
0072220 ( 006
0072240 002 C L : B L O C K 006 001 006 006 006 001
0072260 006 006 ( * ; ; " s p e c i a
0072300 l c a s e t o h a n d l e
0072320 B L O C K t o a v o i d
0072340 c o n s i n g t w o e n v i
0072360 r o n m e n t s j u s t t o
0072400 e n t e r a n o r m a l
0072420 L A M B D A f u n c t i o n "
0072440 ) 006 001 \r
0072460
*
0072520 ( C L : S E T F ( E N V I
0072540 R O N M E N T - B L O C K S \
0072560 E N V I R O N M E N T ) \r
0072600
*
0072660 ( S E T Q \ B O D Y ( C
0072700 D R \ B O D Y ) ) ) \r
0072720
*
0072760 ( 006 002 C L :
0073000 C A T C H 006 001 \ E N V I R O N
0073020 M E N T ( 006 002 E V A L - P R O
0073040 G N 006 001 ( C D R \ B O D Y )
0073060 \r
0073100
*
0073160 \ E N
0073200 V I R O N M E N T ) ) ) \r
0073220
*
0073260 ( T ( 006 002 C L : E V A
0073300 L 006 001 \ B O D Y \ E N V I R
0073320 O N M E N T ) ) ) \r
0073340
0073360 ( 006 002 C L
0073400 : E V A L 006 001 \ B O D Y \ E
0073420 N V I R O N M E N T ) ) \r
0073440
0073460 ( P R O G N ( 006
0073500 002 C L : E V A L 006 001 ( 006 002 p o
0073520 p 006 001 \ B O D Y ) \r
0073540
*
0073600 \ E N V I R O N M E N T )
0073620 \r
0073640
0073660 ( R E C U R & B O D Y ) )
0073700 ) ) ) ) ) ) \r \r ( 006 004 \ I N T E
0073720 R P R E T E R - L A M B D A 006 001
0073740 \r ( L A M B D A ( N D E
0073760 F E N V F N ) 006 006 006 001
0074000
*
0074040 006 006 ( * P a v e l " 6
0074060 - O c t - 8 6 1 7 : 2 1 " ) 006
0074100 001 \r ( L E T ( ( A R G
0074120 B L O C K ( A D D S T A C K B
0074140 A S E ( 006 002 f e t c h 006 001 (
0074160 B F I V A R ) 006 002 o f 006 001
0074200 ( 006 002 f e t c h 006 001 ( F X B
0074220 L I N K ) 006 002 o f 006 001 ( \ M
0074240 Y A L I N K ) ) ) ) ) ) \r
0074260 ( C L : M U L T I P
0074300 L E - V A L U E - B I N D ( B
0074320 O D Y D E C L S ) \r
0074340 ( P A R S
0074360 E - B O D Y ( C D R ( C D R
0074400 D E F ) ) \r
0074420 N I
0074440 L ) \r
0074460 ( 006 002 \ I N T E R P R E T
0074500 - A R G U M E N T S 006 001 F N
0074520 ' & R E Q U I R E D ( C A R
0074540 ( C D R D E F ) ) \r
0074560
0074600 D E C L S \r
0074620 (
0074640 M A K E - E N V I R O N M E N T
0074660 : P A R E N T E N V ) \r
0074700
0074720 B O D Y A R G B L O
0074740 C K ( - N 1 ) \r
0074760
0075000 0 ) ) ) ) ) \r \r ( 006 004 C H E
0075020 C K - B I N D A B L E 006 001 \r
0075040 ( L A M B D A ( V A R ) 006 006 006
0075060 001
0075100
0075120 006
0075140 006 ( * l m m " 2 0 - J u l -
0075160 8 6 1 5 : 1 6 " ) 006 001 \r
0075200
*
0075260 006 006 ( * "
0075300 1 9 - J u l - 8 6 1 5 : 5 6 "
0075320 ) 006 001 \r ( C L : U N L E
0075340 S S ( C L : S Y M B O L P V
0075360 A R ) \r (
0075400 C L : E R R O R " a t t e m p
0075420 t t o b i n d a n o n -
0075440 s y m b o l : ~ A " V A R )
0075460 ) \r ( C L : W H E N (
0075500 O R ( 006 002 C L : C O N S T A N
0075520 T P 006 001 V A R ) \r
0075540 ( F M E M
0075560 B V A R C L : L A M B D A -
0075600 L I S T - K E Y W O R D S ) ) \r
0075620 ( C L : E
0075640 R R O R ( 006 002 C L : I F 006 001
0075660 ( C L : K E Y W O R D P V A R
0075700 ) \r
0075720 " a
0075740 t t e m p t t o b i n d a
0075760 k e y w o r d : ~ A " " a
0076000 t t e m p t t o b i n d a
0076020 c o n s t a n t : ~ A " ) \r
0076040
0076060 V A R ) ) \r ( C L :
0076100 W H E N ( V A R I A B L E - G
0076120 L O B A L - P V A R ) \r
0076140 ( C L : C E R R
0076160 O R " G o a h e a d a n d
0076200 b i n d i t a n y w a y "
0076220 " A t t e m p t t o b i n
0076240 d a v a r i a b l e p r o
0076260 c l a i m e d g l o b a l "
0076300 \r
0076320 V A R ) ) \r V A R
0076340 ) ) \r \r ( 006 004 C H E C K - K E Y
0076360 W O R D S 006 001 \r ( L A M B D
0076400 A ( K E Y - A R G U M E N T S
0076420 A R G B L O C K L E N G T H
0076440 N ) 006 006 006 001
0076460 006 006 ( * l m
0076500 m " 2 0 - J u l - 8 6 1 3 :
0076520 3 3 " ) 006 001 \r
0076540
*
0076620 006 006 ( * " 1 9 - J u l
0076640 - 8 6 2 2 : 4 2 " ) 006 001 \r
0076660
*
0076740 006 006 ( *
0076760 " c h e c k t o s e e i f
0077000 a n y k e y w o r d s i n
0077020 A R G B L O C K a r e n o
0077040 t i n t h e k e y s -
0077060 n o t c a l l e d i f & A
0077100 L L O W - O T H E R - K E Y S
0077120 w a s s e t " ) 006 001 \r
0077140 ( 006 002 C L : B L O C K 006 001 C H
0077160 E C K - K E Y S ( L E T ( B
0077200 A D K E Y W O R D ) \r
0077220
0077240 ( C L : D O
0077260 ( ( I N ( + I 2 ) ) ) \r
0077300
*
0077340 ( ( > = I L E N G
0077360 T H ) ) \r
0077400
0077420 ( L E T (
0077440 ( G I V E N - K E Y ( A R G -
0077460 R E F A R G B L O C K I ) )
0077500 ) \r
0077520
0077540 ( 006 002 C
0077560 L : I F 006 001 ( E Q G I V E N
0077600 - K E Y : A L L O W - O T H E
0077620 R - K E Y S ) \r
0077640
*
0077700 ( 006 002 C L : I
0077720 F 006 001 ( A R G - R E F A R G
0077740 B L O C K ( C L : 1 + I ) )
0077760 \r
0100000
*
0100040 ( 006 002 C L : R
0100060 E T U R N - F R O M 006 001 C H E
0100100 C K - K E Y S N I L ) \r
0100120
*
0100200 N I L ) \r
0100220
*
0100260 ( C L : D
0100300 O ( ( K E Y T A I L K E Y -
0100320 A R G U M E N T S ( C D R K
0100340 E Y T A I L ) ) ) \r
0100360
*
0100440 ( ( O R ( N U L L K E Y
0100460 T A I L ) \r
0100500
*
0100560 ( E Q ( C A R K E Y T
0100600 A I L ) \r
0100620
*
0100700 ' & A U X ) ) \r
0100720
*
0101000 006 006 ( *
0101020 " g o t t o e n d o f k
0101040 e y w o r d s e g m e n t " )
0101060 006 001 \r
0101100
*
0101140 ( S E T
0101160 Q B A D K E Y W O R D G I V
0101200 E N - K E Y ) ) \r
0101220
*
0101300 ( L E T ( ( W A N T E D - K
0101320 E Y ( C A R K E Y T A I L )
0101340 ) ) \r
0101360
*
0101440 ( C L : W H E N ( C L : C O N
0101460 S P W A N T E D - K E Y ) \r
0101500
*
0101600 ( S E T Q W A N T E D -
0101620 K E Y ( C A R W A N T E D -
0101640 K E Y ) \r
0101660
*
0101740 ) \r
0101760
*
0102060 ( C L : W H E N ( C L : C O N
0102100 S P W A N T E D - K E Y ) \r
0102120
*
0102220 ( S E T Q
0102240 W A N T E D - K E Y \r
0102260
*
0102360 ( C A R W A N T
0102400 E D - K E Y ) ) ) ) \r
0102420
*
0102500 ( 006 002 C L : I F
0102520 006 001 ( E Q ( M A K E - K E Y
0102540 W O R D W A N T E D - K E Y )
0102560 \r
0102600
*
0102660 G I V E N - K
0102700 E Y ) \r
0102720
*
0103000 ( R E T U R N
0103020 N I L ) ) ) ) ) ) ) \r
0103040
0103060 ( 006 002 C L : I
0103100 F 006 001 B A D K E Y W O R D (
0103120 C L : E R R O R \r
0103140
*
0103200 " K e y w o r d a r g u m e
0103220 n t d o e s n ' t m a t c h
0103240 e x p e c t e d l i s t o
0103260 f k e y w o r d s : ~ A "
0103300 \r
0103320
*
0103360 B A D K E Y W O
0103400 R D ) ) ) ) ) ) \r ) \r ( D E F M
0103420 A C R O 006 002 A R G - R E F 006 001
0103440 ( B L O C K N ) ` ( \ G E
0103460 T B A S E P T R , B L O C K
0103500 ( L L S H , N 1 ) ) ) \r \r \r
0103520 ( P U T P R O P S 006 002 . C O M
0103540 P I L E R - S P R E A D - A R G
0103560 U M E N T S . D M A C R O 006 001
0103600 ( A P P L Y C O M P . S P R
0103620 E A D ) ) \r ( D E F I N E Q \r \r
0103640 ( 006 004 D E C L A R E D - S P E C
0103660 I A L 006 001 \r ( L A M B D A
0103700 ( V A R D E C L S ) 006 006 006 001
0103720
*
0103760 006 006 ( * l m m
0104000 " 2 4 - M a y - 8 6 2 2 : 2 7
0104020 " ) 006 001 \r ( A N D D E
0104040 C L S ( O R ( A N D ( L I
0104060 S T P ( C A R D E C L S ) )
0104100 \r
0104120 ( E Q ( C A
0104140 A R D E C L S ) \r
0104160
0104200 ' D E C L A R E ) \r
0104220
0104240 ( 006 002 f o r 006 001
0104260 D E C 006 002 i n 006 001 ( C D A
0104300 R D E C L S ) 006 002 w h e n 006
0104320 001 ( A N D ( E Q ( C A R
0104340 D E C ) \r
0104360
*
0104440 ' C L : S P E C I A L )
0104460 \r
0104500
*
0104540 ( F M E
0104560 M B V A R ( C D R D E C )
0104600 ) ) \r
0104620 006 002
0104640 d o 006 001 ( R E T U R N T ) )
0104660 ) \r
0104700 ( 006 002 D E C L A R E D
0104720 - S P E C I A L 006 001 V A R (
0104740 C D R D E C L S ) ) ) ) ) ) \r
0104760 \r ( 006 004 E V A L H O O K 006 001 \r
0105000 ( C L : L A M B D A ( F O R
0105020 M E V A L H O O K F N A P P
0105040 L Y H O O K F N & O P T I O N
0105060 A L E N V ) 006 006 006 001
0105100 006 006 ( * l m m " 2 - M a y
0105120 - 8 6 2 2 : 2 3 " ) 006 001 \r
0105140 \r
0105160 006 006 ( * E v a l u a t e
0105200 s F o r m w i t h * E v a
0105220 l h o o k * b o u n d t o
0105240 E v a l h o o k f n a n d *
0105260 A p p l y h o o k * b o u n d
0105300 t o \r 006 001
0105320 006 006 a p p l y h o o k f n .
0105340 I g n o r e s t h e s e h o
0105360 o k s o n c e , f o r t h
0105400 e t o p - l e v e l e v a l
0105420 u a t i o n o f F o r m . \r
0105440 006 001 006 006 * )
0105460 006 001 \r \r ( L E
0105500 T ( ( * E V A L H O O K * E
0105520 V A L H O O K F N ) \r
0105540 ( * S K I P
0105560 - E V A L H O O K * T ) \r
0105600 ( * A
0105620 P P L Y H O O K * A P P L Y H
0105640 O O K F N ) \r
0105660 ( * S K I P - A P P
0105700 L Y H O O K * N I L ) ) \r
0105720 ( H O O
0105740 K E D - E V A L F O R M ) ) )
0105760 ) \r ) \r \r \r \r 006 004 ( * ; " F
0106000 U N C A L L a n d A P P L Y
0106020 , n o t q u i t e s a m e
0106040 a s I n t e r l i s p " ) 006
0106060 001 \r \r ( D E F I N E Q \r \r ( 006 004
0106100 C L : F U N C A L L 006 001 \r (
0106120 C L : L A M B D A ( F N & R
0106140 E S T A R G S ) 006 006 006 001
0106160
0106200 006 006
0106220 ( * l m m " 2 - M a y - 8
0106240 6 2 1 : 5 8 " ) 006 001 \r
0106260 ( 006 002 C L : A P P L Y
0106300 006 001 F N A R G S ) ) ) \r \r (
0106320 006 004 C L : A P P L Y 006 001 \r (
0106340 L A M B D A N 006 006 006 001
0106360
*
0106420 006 006
0106440 ( * l m m " 2 9 - A p r - 8
0106460 6 2 1 : 2 6 " ) 006 001 \r
0106500 ( 006 002 D E C L A R E 006 001 ( L O
0106520 C A L V A R S . T ) ) 006 006 006
0106540 001
0106560
0106600 006 006 ( * c o m p i l e s "
0106620 o p e n " ) 006 001 \r ( S E
0106640 L E C T Q N \r
0106660 ( 0 ( E R R O R " T O O F
0106700 E W A R G U M E N T S T O
0106720 A P P L Y " ) ) \r
0106740 ( S P R E A D A P P L Y ( A
0106760 R G N 1 ) \r
0107000 ( L E T ( ( A V
0107020 ( A R G N N ) ) ) \r
0107040
0107060 ( 006 002 f o r 006 001 I 006 002 f r
0107100 o m 006 001 ( S U B 1 N ) 006 002
0107120 t o 006 001 2 006 002 b y 006 001 - 1
0107140 006 002 d o 006 001 ( 006 002 p u s h 006
0107160 001 A V ( A R G N I ) ) )
0107200 \r
0107220 A V ) ) ) ) ) \r ) \r \r
0107240 ( P U T P R O P S 006 002 C L : A
0107260 P P L Y D M A C R O 006 001 ( D
0107300 E F M A C R O ( 006 002 F N 006 001
0107320 & R E S T A R G S ) ` ( L E
0107340 T ( ( F N , F N ) \r
0107360
*
0107440 ( C N T , ( L E
0107460 N G T H ( C D R A R G S ) )
0107500 ) ) \r
0107520
*
0107560 ( . S
0107600 P R E A D . ( ( O P C O D E S
0107620 ) \r
0107640
*
0107720 % , @ A R G S )
0107740 \r
0107760
*
0110040 C N T F N ) ) ) \r ) \r \r
0110060 ( P U T P R O P S 006 002 C L : F
0110100 U N C A L L D M A C R O 006 001
0110120 ( D E F M A C R O ( 006 002 F N 006
0110140 001 & R E S T A R G S ) ` (
0110160 ( O P C O D E S A P P L Y F N
0110200 ) \r
0110220
*
0110260 , @ A R G S
0110300 \r
0110320
*
0110360 , ( L E N G T
0110400 H A R G S ) \r
0110420
*
0110500 , F N ) ) \r ) \r \r \r \r 006 004 ( *
0110520 ; " C O M P I L E R - L E T
0110540 n e e d s t o w o r k d
0110560 i f f e r e n t l y c o m p i
0110600 l e d a n d i n t e r p r e
0110620 t e d " ) 006 001 \r \r ( D E F I N E
0110640 Q \r \r ( 006 004 C L : C O M P I L E
0110660 R - L E T 006 001 \r ( N L A M B
0110700 D A T A I L 006 006 006 001
0110720
*
0110760 006 006 ( * l m
0111000 m " 2 7 - M a y - 8 6 1 1 :
0111020 1 9 " ) 006 001 \r ( C L : P
0111040 R O G V ( 006 002 f o r 006 001 X
0111060 006 002 i n 006 001 ( C A R T A I L
0111100 ) 006 002 c o l l e c t 006 001 ( C
0111120 O N D \r
0111140
*
0111200 ( ( C L : C O N S P X ) \r
0111220
*
0111260 (
0111300 C A R X ) ) \r
0111320
*
0111360 ( T X ) ) ) \r
0111400 ( 006 002 f o r 006
0111420 001 X 006 002 i n 006 001 ( C A R
0111440 T A I L ) 006 002 c o l l e c t 006
0111460 001 ( C O N D \r
0111500
*
0111540 ( ( C L : C O N S P X )
0111560 \r
0111600
0111620 ( \ E
0111640 V A L ( C A D R X ) ) ) ) )
0111660 \r ( \ E V
0111700 P R O G N ( C D R T A I L )
0111720 ) ) ) ) \r \r ( 006 004 C O M P . C O
0111740 M P I L E R - L E T 006 001 \r (
0111760 L A M B D A ( A ) \r (
0112000 006 002 D E C L A R E 006 001 ( L O C
0112020 A L V A R S . T ) ) 006 006 006 001
0112040
*
0112100 006 006 ( * l m m " 2 7 - M a y
0112120 - 8 6 1 2 : 1 4 " ) 006 001 \r
0112140
*
0112220 006 006 ( *
0112240 E N T R Y P O I N T I N T O
0112260 B Y T E C O M P I L E R ) 006 001
0112300 \r
0112320
*
0112360 006 006
0112400 ( * l m m " 2 7 - M a y - 8
0112420 6 1 1 : 1 7 " ) 006 001 \r
0112440 ( C L : P R O G V ( 006 002 f o r
0112460 006 001 X 006 002 i n 006 001 ( C A R
0112500 A ) 006 002 c o l l e c t 006 001
0112520 ( 006 002 i f 006 001 ( C L : C O N S
0112540 P X ) \r
0112560
*
0112620 006 002 t h e n 006 001 ( C A R X
0112640 ) \r
0112660
0112700 006 002 e l
0112720 s e 006 001 X ) ) \r
0112740 ( 006 002 f o r 006 001 X 006
0112760 002 i n 006 001 ( C A R A ) 006 002
0113000 c o l l e c t 006 001 ( C O N D \r
0113020
*
0113060 ( ( C L : C O N
0113100 S P X ) \r
0113120
0113140 (
0113160 E V A L ( C A D R X ) ) ) )
0113200 ) \r ( C O
0113220 M P . P R O G N ( C D R A )
0113240 ) ) ) ) \r ) \r \r ( P U T P R O P
0113260 S 006 002 C L : C O M P I L E R -
0113300 L E T D M A C R O 006 001 C O M
0113320 P . C O M P I L E R - L E T ) \r
0113340 ( D E F I N E - S P E C I A L -
0113360 F O R M 006 002 C L : C O M P I L
0113400 E R - L E T 006 001 ( A R G S &
0113420 R E S T B O D Y & E N V I R
0113440 O N M E N T E N V ) \r (
0113460 L E T ( ( * I N - C O M P I L
0113500 E R - L E T * T ) ) \r
0113520 ( 006 002 D E C L A R E 006 001
0113540 ( C L : S P E C I A L * I N
0113560 - C O M P I L E R - L E T * ) )
0113600 006 006 (
0113620 * \r 006 001 006 006 "
0113640 t h e * I N - C O M P I L E R
0113660 - L E T * i s f o r m a c
0113700 r o - c a c h i n g . I t s
0113720 a y s : d o n ' t c a c h e
0113740 m a c r o s u n d e r c o
0113760 m p i l e r l e t s " ) 006 001 \r
0114000 ( C L : P R O G
0114020 V ( 006 002 f o r 006 001 X 006 002 i
0114040 n 006 001 A R G S 006 002 c o l l e
0114060 c t 006 001 ( 006 002 i f 006 001 ( C L
0114100 : C O N S P X ) \r
0114120
*
0114160 006 002 t h e n 006 001
0114200 ( C A R X ) \r
0114220
*
0114260 006 002 e l s e 006 001 X ) ) \r
0114300 (
0114320 006 002 f o r 006 001 X 006 002 i n 006 001
0114340 A R G S 006 002 c o l l e c t 006
0114360 001 ( 006 002 i f 006 001 ( C L : C O
0114400 N S P X ) \r
0114420
*
0114460 006 002 t h e n 006 001 ( C L : E V
0114500 A L ( C A D R X ) \r
0114520
*
0114600 E N V ) \r
0114620
0114640 006
0114660 002 e l s e 006 001 N I L ) ) \r
0114700 ( E V
0114720 A L - P R O G N B O D Y E N
0114740 V ) ) ) ) \r \r ( D E F I N E - S
0114760 P E C I A L - F O R M 006 002 Q U
0115000 O T E 006 001 C A R ) \r \r ( D E F
0115020 I N E - S P E C I A L - F O R M
0115040 006 002 T H E 006 001 ( T Y P E - S
0115060 P E C F O R M & E N V I R O
0115100 N M E N T E N V ) \r ( C
0115120 L : I F ( E Q ( C A R ( L
0115140 I S T P T Y P E - S P E C ) )
0115160 \r '
0115200 C L : V A L U E S ) \r
0115220 ( L E T ( ( C L : V
0115240 A L U E S ( C L : M U L T I P
0115260 L E - V A L U E - L I S T ( C
0115300 L : E V A L F O R M E N V )
0115320 ) ) ) \r
0115340 ( C L : I F ( C L : N O
0115360 T E V E R Y # ' ( C L : L A M
0115400 B D A ( V A L U E S P E C )
0115420 \r
0115440
0115460 ( T Y
0115500 P E P V A L U E S P E C ) )
0115520 C L : V A L U E S ( C D R
0115540 T Y P E - S P E C ) ) \r
0115560
0115600 ( C H E C K - T Y P E - F A
0115620 I L T F O R M C L : V A L
0115640 U E S T Y P E - S P E C N I
0115660 L ) \r
0115700 ( C L : V A L
0115720 U E S - L I S T C L : V A L U
0115740 E S ) ) ) \r
0115760 ( L E T ( ( V A L U E ( C L
0116000 : E V A L F O R M E N V ) )
0116020 ) \r
0116040 ( C L : I F ( T Y P E P V
0116060 A L U E T Y P E - S P E C ) \r
0116100
0116120 V A L U E \r
0116140
0116160 ( C H E C K - T Y P E - F A
0116200 I L T F O R M V A L U E
0116220 T Y P E - S P E C N I L ) ) )
0116240 ) ) \r \r \r ( P U T P R O P S 006
0116260 002 T H E D M A C R O 006 001 ( (
0116300 S P E C F O R M ) \r
0116320
0116340 F O R M ) ) \r \r ( P U T P R O
0116360 P S 006 002 C L : E V A L - W H E
0116400 N D M A C R O 006 001 ( D E F M
0116420 A C R O ( 006 002 O P T I O N S 006
0116440 001 & B O D Y B O D Y ) ( A
0116460 N D ( O R ( F M E M B ' C
0116500 O M P I L E O P T I O N S ) \r
0116520
*
0116620 ( F M E M B ' C L
0116640 : C O M P I L E O P T I O N S
0116660 ) ) \r
0116700
*
0116760 ( M A P C B O D Y
0117000 ( F U N C T I O N C L : E V A
0117020 L ) ) ) \r
0117040
0117060 ( A N D ( O R (
0117100 F M E M B ' L O A D O P T I
0117120 O N S ) \r
0117140
0117160 (
0117200 F M E M B ' C L : L O A D O
0117220 P T I O N S ) ) \r
0117240
0117260 `
0117300 ( P R O G N , @ B O D Y ) ) )
0117320 \r ) \r ( D E F I N E Q \r \r ( 006 004
0117340 C L : E V A L - W H E N 006 001 \r
0117360 ( N L A M B D A O P T I O N
0117400 S . B O D Y 006 006 006 001
0117420
*
0117460 006 006 ( * l m m " 1 - J u n
0117500 - 8 6 1 5 : 1 6 " ) 006 001 \r
0117520 ( A N D ( O R ( F M E M
0117540 B ' C L : E V A L ( C A R
0117560 O P T I O N S . B O D Y ) ) \r
0117600 ( F M E
0117620 M B ' E V A L ( C A R O P
0117640 T I O N S . B O D Y ) ) ) \r
0117660 ( M A P C ( C D
0117700 R O P T I O N S . B O D Y ) \r
0117720 (
0117740 006 002 F U N C T I O N 006 001 \ E V
0117760 A L ) ) ) ) ) \r ) \r ( D E F I N
0120000 E - S P E C I A L - F O R M 006
0120020 002 C L : E V A L - W H E N 006 001
0120040 ( T A G S & R E S T B O D Y
0120060 & E N V I R O N M E N T E N
0120100 V ) \r ( A N D ( O R (
0120120 F M E M B ' C L : E V A L T
0120140 A G S ) \r
0120160 ( F M E M B ' E V A L T A
0120200 G S ) ) \r ( E V
0120220 A L - P R O G N B O D Y E N
0120240 V ) ) ) \r \r ( D E F I N E - S P
0120260 E C I A L - F O R M 006 002 D E C
0120300 L A R E 006 001 F A L S E ) \r \r (
0120320 D E F M A C R O 006 002 C L : L O
0120340 C A L L Y 006 001 ( & B O D Y B
0120360 O D Y ) ` ( L E T N I L ,
0120400 @ B O D Y ) ) \r \r \r \r \r 006 004 ( *
0120420 ; " I n t e r l i s p v e
0120440 r s i o n o n L L I N T E R
0120460 P " ) 006 001 \r \r ( D E F I N E - S
0120500 P E C I A L - F O R M 006 002 P R
0120520 O G N 006 001 E V A L - P R O G N
0120540 ) \r \r ( D E F I N E Q \r \r ( 006 004
0120560 E V A L - P R O G N 006 001 \r (
0120600 L A M B D A ( B O D Y E N V
0120620 I R O N M E N T ) 006 006 006 001
0120640
0120660 006 006
0120700 ( * l m m " 2 2 - M a y - 8
0120720 6 2 3 : 5 5 " ) 006 001 \r
0120740 ( 006 002 i f 006 001 ( C D R B O D
0120760 Y ) \r 006 002 t h e
0121000 n 006 001 ( 006 002 C L : E V A L 006 001
0121020 ( C A R B O D Y ) \r
0121040
0121060 E N V I R O N M E N T ) \r
0121100 ( 006 002 E V A
0121120 L - P R O G N 006 001 ( C D R B
0121140 O D Y ) \r
0121160 E N V I R O N
0121200 M E N T ) \r 006 002 e l
0121220 s e 006 001 ( 006 002 C L : E V A L 006
0121240 001 ( C A R B O D Y ) \r
0121260 E
0121300 N V I R O N M E N T ) ) ) ) \r )
0121320 \r \r \r \r 006 004 ( * ; " C o n f
0121340 u s e d b e c a u s e c u r
0121360 r e n t l y I n t e r l i s p
0121400 s p e c i a l f o r m , f
0121420 i x i n g M A C R O - F U N C
0121440 T I O N i s c o m p l e x "
0121460 ) 006 001 \r \r \r \r \r 006 004 ( * ; "
0121500 T h e I n t e r l i s p f u
0121520 n c t i o n i s o n L L I
0121540 N T E R P " ) 006 001 \r \r ( D E F I
0121560 N E - S P E C I A L - F O R M
0121600 006 002 P R O G 1 006 001 ( F I R S T
0121620 & R E S T C L : R E S T &
0121640 E N V I R O N M E N T E N V )
0121660 \r ( L E T ( ( V A L (
0121700 C L : E V A L F I R S T E N
0121720 V ) ) ) \r ( C L
0121740 : T A G B O D Y P R O G 1 (
0121760 C L : I F C L : R E S T ( P
0122000 R O G N ( C L : E V A L ( C
0122020 A R C L : R E S T ) \r
0122040
*
0122120 E N V ) \r
0122140
*
0122200 ( S E T Q C L
0122220 : R E S T ( C D R C L : R E
0122240 S T ) ) ) \r
0122260
0122300 ( C L : R E T U R
0122320 N - F R O M P R O G 1 V A L
0122340 ) ) \r
0122360 ( G O P R O G 1 ) ) ) ) \r
0122400 \r ( D E F M A C R O 006 002 P R O
0122420 G 1 006 001 ( F I R S T & R E S
0122440 T C L : R E S T ) ( C O N S
0122460 ' ( L A M B D A ( X ) \r
0122500
*
0122540 X )
0122560 ( C O N S F I R S T C L : R
0122600 E S T ) ) ) \r \r ( D E F I N E -
0122620 S P E C I A L - F O R M 006 002 L
0122640 E T * 006 001 ( V A R S & R E S
0122660 T B O D Y & E N V I R O N M
0122700 E N T E N V I R O N M E N T )
0122720 \r ( C L : M U L T I P L E
0122740 - V A L U E - B I N D ( B O D
0122760 Y D E C L S ) \r
0123000 ( P A R S E - B O D Y B
0123020 O D Y E N V I R O N M E N T )
0123040 \r ( C O N D
0123060 \r ( V
0123100 A R S ( L E T ( ( N E W E N
0123120 V ( M A K E - E N V I R O N M
0123140 E N T : P A R E N T E N V I
0123160 R O N M E N T ) ) ) \r
0123200
0123220 ( E V A L - L E T * - R E
0123240 C U R S I O N V A R S D E C
0123260 L S N E W E N V B O D Y ) )
0123300 ) \r (
0123320 T ( E V A L - P R O G N B O
0123340 D Y E N V I R O N M E N T ) )
0123360 ) ) ) \r \r ( D E F I N E - S P E
0123400 C I A L - F O R M 006 002 L E T 006
0123420 001 ( V A R S & B O D Y B O
0123440 D Y & E N V I R O N M E N T
0123460 E N V I R O N M E N T ) \r
0123500 \r
0123520 006 006 ( * I n i t i a l i
0123540 z e s t h e v a r i a b l e
0123560 s , b i n d i n g t h e m
0123600 t o n e w v a l u e s a l
0123620 l a t o n c e , t h e n
0123640 \r 006 001 006 006 e
0123660 x e c u t e s t h e r e m a
0123700 i n i n g f o r m s a s i
0123720 n a P R O G N . ) 006 001 \r (
0123740 C L : M U L T I P L E - V A L U
0123760 E - B I N D ( B O D Y D E C
0124000 L S ) \r ( P A R
0124020 S E - B O D Y B O D Y E N V
0124040 I R O N M E N T ) \r
0124060 ( L E T ( L E X V A R S
0124100 S P E C V A R S S P E C V A L
0124120 S ) \r
0124140 ( 006 002 f o r 006 001 V A R 006 002 i
0124160 n 006 001 V A R S 006 002 d o 006 001
0124200 ( L E T ( V A L U E ) \r
0124220
*
0124260 ( 006 002 i f 006 001 ( C L : C
0124300 O N S P V A R ) \r
0124320
*
0124360 006 002 t h e n 006 001 ( S E
0124400 T Q V A L U E ( C L : E V A
0124420 L ( C A D R V A R ) \r
0124440
*
0124520 E
0124540 N V I R O N M E N T ) ) \r
0124560
*
0124620 ( S E T
0124640 Q V A R ( C A R V A R ) )
0124660 ) \r
0124700
0124720 ( C H E C K - B
0124740 I N D A B L E V A R ) \r
0124760
*
0125020 ( 006 002 i f 006 001 ( O R (
0125040 D E C L A R E D - S P E C I A L
0125060 V A R D E C L S ) \r
0125100
*
0125140 ( V A R I A
0125160 B L E - G L O B A L L Y - S P E
0125200 C I A L - P V A R ) ) \r
0125220
*
0125260 006 002 t h e n 006 001
0125300 ( C L : P U S H V A R S P E
0125320 C V A R S ) \r
0125340
*
0125400 ( C L : P U S H V
0125420 A L U E S P E C V A L S ) \r
0125440
*
0125500 006 002 e l s e 006 001
0125520 ( C L : P U S H ( C O N S V
0125540 A R V A L U E ) \r
0125560
*
0125620 L E
0125640 X V A R S ) ) ) ) \r
0125660 ( C L : I F S P
0125700 E C V A R S ( C L : P R O G V
0125720 S P E C V A R S S P E C V A
0125740 L S ( E V A L - P R O G N B
0125760 O D Y \r
0126000
*
0126060 ( C L : I F L E X V A
0126100 R S \r
0126120
*
0126200 ( M A K E -
0126220 E N V I R O N M E N T : V A R
0126240 S \r
0126260
*
0126360 L E X V A R S : P A R E N T
0126400 \r
0126420
*
0126520 E N V I R O N M E N T ) \r
0126540
*
0126640 E N V I R O N M E N T )
0126660 ) ) \r
0126700 ( E V A L - P R O
0126720 G N B O D Y ( C L : I F L
0126740 E X V A R S ( M A K E - E N V
0126760 I R O N M E N T : V A R S L
0127000 E X V A R S : P A R E N T \r
0127020
*
0127100 E N V I R
0127120 O N M E N T ) \r
0127140
*
0127200 E N V I R O N M E N T )
0127220 ) ) ) ) ) \r \r \r ( P U T P R O P
0127240 S 006 002 L E T M A C R O 006 001
0127260 ( X ( \ L E T t r a n X ) )
0127300 ) \r \r ( P U T P R O P S 006 002 L
0127320 E T * M A C R O 006 001 ( X (
0127340 \ L E T t r a n X T ) ) ) \r
0127360 ( D E F I N E Q \r \r ( 006 004 E V A
0127400 L - L E T * - R E C U R S I O N
0127420 006 001 \r ( L A M B D A ( V A
0127440 R S D E C L S E N V B O D
0127460 Y ) \r ( 006 002 D E C L A R
0127500 E 006 001 ( L O C A L V A R S .
0127520 T ) ) 006 006 006 001
0127540
0127560 006 006 ( * l m m
0127600 " 2 0 - J u l - 8 6 1 5 : 1
0127620 0 " ) 006 001 \r
0127640
*
0127720 006 006 ( * " 1 9 - J u l -
0127740 8 6 1 5 : 5 6 " ) 006 001 \r
0127760 ( P R O G N I L \r
0130000 I T E R A T E \r
0130020 ( 006 002 C L : I F 006 001 ( N
0130040 O T V A R S ) \r
0130060 ( R E T U R
0130100 N ( 006 002 E V A L - P R O G N 006
0130120 001 B O D Y E N V ) ) \r
0130140 ( L
0130160 E T ( ( V A R ( 006 002 p o p 006
0130200 001 V A R S ) ) \r
0130220
0130240 V A L U E ) \r
0130260 ( C L
0130300 : W H E N ( C L : C O N S P
0130320 V A R ) \r
0130340
0130360 ( S E T Q V A L U E ( 006
0130400 002 C L : E V A L 006 001 ( C A D R
0130420 V A R ) \r
0130440
*
0130500 E N V ) ) \r
0130520
0130540 ( S E T Q V
0130560 A R ( C A R V A R ) ) ) \r
0130600
0130620 ( 006 002 C H E C K - B I
0130640 N D A B L E 006 001 V A R ) \r
0130660
0130700 ( 006 002 C L : I F 006 001 (
0130720 O R ( 006 002 D E C L A R E D - S
0130740 P E C I A L 006 001 V A R D E C
0130760 L S ) \r
0131000
0131020 ( V A R I A B L E - G
0131040 L O B A L L Y - S P E C I A L -
0131060 P V A R ) ) \r
0131100
0131120 ( R E T U R N ( C L
0131140 : P R O G V ( L I S T V A R
0131160 ) \r
0131200
0131220 ( L
0131240 I S T V A L U E ) \r
0131260
*
0131320 ( 006 002 E V A L - L
0131340 E T * - R E C U R S I O N 006 001
0131360 V A R S D E C L S E N V B
0131400 O D Y ) ) ) \r
0131420
0131440 ( P R O G N ( C L : P
0131460 U S H ( C O N S V A R V A
0131500 L U E ) \r
0131520
*
0131560 ( E N V I R O N M E N T - V A R
0131600 S E N V ) ) \r
0131620
0131640 ( G O
0131660 I T E R A T E ) ) ) ) ) ) ) ) \r
0131700 \r ( 006 004 \ L E T t r a n 006 001 \r
0131720 ( L A M B D A ( L E T T A I
0131740 L S E Q U E N T I A L P ) 006 006
0131760 006 001
0132000
0132020 006 006 ( * l m m " 1 6 - J u l
0132040 - 8 5 1 2 : 5 2 " ) 006 001 \r
0132060 ( P R O G ( ( V A R S (
0132100 M A P C A R ( C A R L E T T
0132120 A I L ) \r
0132140 ( 006 002
0132160 F U N C T I O N 006 001 ( L A M B
0132200 D A ( B I N D E N T R Y ) \r
0132220
*
0132260 ( 006 002 i f 006 001 ( L I S T
0132300 P B I N D E N T R Y ) \r
0132320
*
0132360 006 002 t h e n 006 001 ( C
0132400 A R B I N D E N T R Y ) \r
0132420
*
0132460 006 002 E L S E 006 001 B I N
0132500 D E N T R Y ) ) ) ) ) \r
0132520 ( V A L S ( M A
0132540 P C A R ( C A R L E T T A I
0132560 L ) \r
0132600 ( 006 002 F U
0132620 N C T I O N 006 001 ( L A M B D A
0132640 ( B I N D E N T R Y ) \r
0132660
*
0132720 ( 006 002 i f 006 001 ( L I S T P
0132740 B I N D E N T R Y ) \r
0132760
*
0133020 006 002 t h e n 006 001 ( 006 002 i
0133040 f 006 001 ( C D D R B I N D E N
0133060 T R Y ) \r
0133100
*
0133140 006 002 t h e n 006 001 (
0133160 C O N S ' P R O G 1 ( C D R
0133200 B I N D E N T R Y ) ) \r
0133220
*
0133260 006 002 e l
0133300 s e 006 001 ( C A D R B I N D E
0133320 N T R Y ) ) \r
0133340
0133360 006 002 e
0133400 l s e 006 001 N I L ) ) ) ) ) \r
0133420 ( B O D Y
0133440 ( C D R L E T T A I L ) ) \r
0133460 ( D E C L S
0133500 N I L ) \r
0133520 ( C O M N T S N I L ) ) \r
0133540 ( R E T U R N
0133560 ( 006 002 i f 006 001 ( N O T S E
0133600 Q U E N T I A L P ) \r
0133620
0133640 006 002 t h e n 006 001 ( L I S T *
0133660 ( L I S T * ' L A M B D A
0133700 V A R S B O D Y ) \r
0133720
0133740 V A L
0133760 S ) \r
0134000 006 002 e l s e i f 006
0134020 001 ( N U L L ( C D R V A R
0134040 S ) ) \r
0134060 006 002 t h e n
0134100 006 001 ( S E L E C T Q S E Q U
0134120 E N T I A L P \r
0134140
0134160 ( P R O G * ( C
0134200 O N S ' P R O G L E T T A I
0134220 L ) ) \r
0134240
0134260 ` ( ( L A M B D A % ,
0134300 V A R S % , @ B O D Y ) \r
0134320
*
0134360 % , @ V A L S ) ) \r
0134400 006
0134420 002 e l s e 006 001 \r
0134440 \r 006 006
0134460 ( * i n t h e s e q u e n
0134500 t i a l c a s e , a l l d
0134520 e c l a r a t i o n s m u s t
0134540 b e " p u l l e d u p "
0134560 t o t h e t o p ) 006 001 \r \r
0134600
0134620 ( 006 002 i f 006 001
0134640 ( E Q S E Q U E N T I A L P
0134660 ' P R O G * ) \r
0134700
0134720 006 002 t h e n 006 001 ( S
0134740 E T Q B O D Y ( L I S T (
0134760 L I S T * ' P R O G N I L
0135000 B O D Y ) ) ) ) \r
0135020
0135040 ( 006 002 f o r 006 001 V A R 006
0135060 002 i n 006 001 ( R E V E R S E (
0135100 C D R V A R S ) ) 006 002 a s 006
0135120 001 V A L 006 002 i n 006 001 ( R E
0135140 V E R S E ( C D R V A L S )
0135160 ) \r
0135200 006 002
0135220 d o 006 001 ( S E T Q B O D Y
0135240 ( L I S T ( L I S T ( L I S
0135260 T * ' L A M B D A ( L I S T
0135300 V A R ) \r
0135320
*
0135400 B O D Y ) \r
0135420
*
0135460 V
0135500 A L ) ) ) ) \r
0135520
0135540 ( L I S T ( L I S T * ' L A
0135560 M B D A ( L I S T ( C A R
0135600 V A R S ) ) \r
0135620
0135640 B O D
0135660 Y ) \r
0135700
0135720 ( C A R V A L S ) ) ) ) )
0135740 ) ) \r ) \r ( D E F I N E - S P E
0135760 C I A L - F O R M 006 002 C O N D
0136000 006 001 ( & R E S T C O N D - C
0136020 L A U S E S & E N V I R O N M
0136040 E N T E N V I R O N M E N T )
0136060 \r ( P R O G N I L \r
0136100 C O N D L O O P \r
0136120 ( C O N D \r
0136140 ( ( N U L L C O
0136160 N D - C L A U S E S ) \r
0136200 ( R E T U R N
0136220 N I L ) ) \r
0136240 ( ( N U L L ( C D A R
0136260 C O N D - C L A U S E S ) ) \r
0136300 ( R E T
0136320 U R N ( O R ( C L : E V A L
0136340 ( C A A R C O N D - C L A U
0136360 S E S ) \r
0136400
0136420 E N V I R O N M E N T
0136440 ) \r
0136460 ( P R O G
0136500 N ( S E T Q C O N D - C L A
0136520 U S E S ( C D R C O N D - C
0136540 L A U S E S ) ) \r
0136560
0136600 ( G O C O N
0136620 D L O O P ) ) ) ) ) \r
0136640 ( ( C L : E V A L
0136660 ( C A A R C O N D - C L A U
0136700 S E S ) \r
0136720 E N V I R O N
0136740 M E N T ) \r
0136760 ( R E T U R N ( E V A L
0137000 - P R O G N ( C D A R C O N
0137020 D - C L A U S E S ) \r
0137040
0137060 E N V I R O N M E
0137100 N T ) ) ) \r
0137120 ( T ( S E T Q C O N D -
0137140 C L A U S E S ( C D R C O N
0137160 D - C L A U S E S ) ) \r
0137200 ( G O C
0137220 O N D L O O P ) ) ) ) ) \r \r ( D
0137240 E F M A C R O 006 002 C O N D 006 001
0137260 ( & R E S T T A I L ) \r
0137300 ( C L : I F T A I L ( C L
0137320 : I F ( N U L L ( C D A R
0137340 T A I L ) ) \r
0137360 ( C L
0137400 : I F ( C D R T A I L ) \r
0137420
0137440 ( L E T
0137460 ( ( V A R ( C L : G E N T E
0137500 M P ) ) ) \r
0137520
0137540 ` ( L E T ( (
0137560 , V A R , ( C A A R T A I L
0137600 ) ) ) \r
0137620
0137640 ( C L :
0137660 I F , V A R , V A R ( C O
0137700 N D \r
0137720
*
0137760 ,
0140000 @ ( C D R T A I L ) ) ) ) ) \r
0140020
0140040 ` ( C
0140060 L : V A L U E S , ( C A A R
0140100 T A I L ) ) ) \r
0140120 ` (
0140140 C L : I F , ( C A A R T A I
0140160 L ) , ( M K P R O G N ( C D
0140200 A R T A I L ) ) \r
0140220
0140240 , @ ( C L : I F
0140260 ( C D R T A I L ) \r
0140300
*
0140340 ( L I S T ( C L : I F
0140360 ( E Q ( C A A D R T A I L )
0140400 \r
0140420
*
0140460 T ) \r
0140500
*
0140560 ( M K P R O G N ( C D A D R
0140600 T A I L ) ) \r
0140620
*
0140660 ` ( C O N
0140700 D \r
0140720
*
0140760 , @ ( C D R
0141000 T A I L ) ) ) ) ) ) ) ) ) \r \r
0141020 \r \r \r 006 004 ( * ; " c o n s i
0141040 d e r m a k i n g C L : I F
0141060 e x t e n d e d t o h a v
0141100 e I n t e r l i s p ' s f e
0141120 a t u r e s " ) 006 001 \r \r ( D E F
0141140 I N E Q \r \r ( 006 004 C L : I F 006 001
0141160 \r ( N L A M B D A ( T E S
0141200 T T H E N E L S E ) \r
0141220 ( 006 002 D E C L A R E 006 001 ( L
0141240 O C A L V A R S . T ) ) 006 006
0141260 006 001
0141300
0141320 006 006 ( * l m m " 1 - J
0141340 u n - 8 6 1 6 : 1 5 " ) 006 001 \r
0141360 ( C O N D \r
0141400 ( ( \ E V A L T E S T ) \r
0141420 ( \ E V A L T H
0141440 E N ) ) \r ( T (
0141460 \ E V A L E L S E ) ) ) ) ) \r
0141500 ) \r ( D E F I N E - S P E C I A
0141520