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