$ 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