$ od -c -N 50000 [eris]<Lisp>Carol>LIBRARY>LAMBDATRAN.DCOM!1 0000000 ( F I L E C R E A T E D " 6 0000020 - J A N - 8 2 1 8 : 1 6 : 0 4 0000040 " ( " c o m p i l e d o n 0000060 " { P H Y L U M } < L I S P U 0000100 S E R S > L A M B D A T R A N . 0000120 ; 1 ) N O B I N D b c o m p 0000140 l ' d i n \r " N T E R L I S 0000160 P - D " d a t e d " 6 - 0000200 J A N - 8 2 1 3 : 3 3 : 3 4 " 0000220 ) \r ( F I L E C R E A T E D " 0000240 1 8 - N O V - 7 9 2 2 : 4 5 : 0000260 2 2 " < L I S P U S E R S > L 0000300 A M B D A T R A N . ; 2 4 7 2 0000320 8 6 c h a n g e s t o : L 0000340 A M B D A T R A N C O M S p r 0000360 e v i o u s \r d a t e : " 0000400 6 - A U G - 7 9 2 2 : 5 0 : 0 0000420 4 " < L I S P U S E R S > L A 0000440 M B D A T R A N . ; 2 3 ) \r ( V 0000460 I R G I N F N ( Q U O T E A 0000500 R G L I S T ) T ) \r ( M O V D 0000520 ? ( Q U O T E A R G L I S T 0000540 ) ( Q U O T E O L D A R G L 0000560 I S T ) ) \r ( V I R G I N F N 0000600 ( Q U O T E N A R G S ) T ) 0000620 \r ( M O V D ? ( Q U O T E N 0000640 A R G S ) ( Q U O T E O L D 0000660 N A R G S ) ) \r ( V I R G I N F 0000700 N ( Q U O T E A R G T Y P E 0000720 ) T ) \r ( M O V D ? ( Q U O 0000740 T E A R G T Y P E ) ( Q U O 0000760 T E O L D A R G T Y P E ) ) \r 0001000 A R G L I S T D 1 \r ( L ( 0 0001020 F N ) ) \0 \ 002 \0 \0 001 @ \t \0 \0 0001040 021 021 001 H \t \0 \0 263 H 003 262 034 H 001 d 0001060 g \0 \0 360 253 d g \0 \0 360 245 d g \0 \0 360 0001100 222 277 i 201 277 h 224 @ \t \0 \0 020 ` \0 \0 226 0001120 H ` \0 \0 035 265 035 H 001 ` \0 \0 \n \0 \0 002 0001140 002 002 001 Y 262 343 H k I 017 016 Y i 360 263 331 0001160 I 020 b \0 023 260 247 \0 ( 1 0 2 Q A S 0001200 S O C 5 6 Q O L D A R G L I 0001220 S T 1 2 Q S U B R P 3 C 0001240 G E T D ) \r ( 7 7 Q L A M B D 0001260 A T R A N F N S 6 7 Q C L I 0001300 S P A R R A Y 6 2 Q C L I S 0001320 P A R R A Y 4 2 Q F U N A R 0001340 G 3 4 Q N L A M B D A 2 6 0001360 Q L A M B D A ) \r N I L \r A R 0001400 G T Y P E D 1 \r ( L ( 0 F 0001420 N ) ) \0 - \0 \0 \0 001 @ \t \0 \0 265 ' 0001440 @ \t \0 \0 d g \0 \0 360 221 j 020 d g \0 \0 0001460 360 221 k 020 d g \0 \0 360 222 l 002 020 g \0 \0 0001500 360 264 004 l 003 020 \0 ( 1 1 Q F N T Y 0001520 P 3 O L D A R G T Y P E ) \r 0001540 ( 4 5 Q F E X P R * 3 5 Q 0001560 E X P R * 2 5 Q F E X P R 0001600 1 5 Q E X P R ) \r N I L \r F N 0001620 T Y P 1 D 1 \r ( L ( 0 X ) 0001640 ) \0 G 001 \0 \0 001 021 020 \0 ` \0 \0 226 @ 0001660 ` \0 \0 035 265 + @ 001 ` \0 \0 \n \0 \0 002 d 0001700 262 036 002 001 X d g \0 \0 360 263 024 d g \0 \0 0001720 360 253 d g \0 \0 360 245 d g \0 \0 360 224 020 \t 0001740 \0 \0 020 243 g \0 \0 020 @ k H 017 016 020 \0 ( 0001760 7 1 Q F N T Y P 2 5 Q A S 0002000 S O C ) \r ( 7 6 Q E X P R 6 0002020 3 Q F E X P R * 5 5 Q F E 0002040 X P R 4 7 Q E X P R * 4 0 0002060 Q E X P R 2 2 Q L A M B D 0002100 A T R A N F N S 1 2 Q C L I 0002120 S P A R R A Y 5 C L I S P A 0002140 R R A Y ) \r N I L \r L T D W I M 0002160 U S E R F N D 1 \r ( P 1 F 0002200 A U L T F N P 0 E X P R 0002220 F 1 0 Q F A U L T X F 1 0002240 1 Q F A U L T A P P L Y F L G 0002260 F 1 2 Q E X P R F 1 3 0002300 Q F A U L T F N F 1 4 Q 0002320 F A U L T A R G S F 1 5 Q 0002340 C L I S P C H A N G E ) \0 347 \b 0002360 006 \0 \0 W 024 W 026 021 2 004 W 020 003 265 027 W 0002400 022 264 2 W 020 004 l 004 360 264 * W 020 Y \t \0 0002420 \0 X 260 ! d 001 ` \0 \0 034 224 277 W 020 260 025 0002440 001 004 l 004 360 230 W 020 001 Y \t \0 \0 X 203 W 0002460 020 001 003 Z d 001 ` \0 \0 \n \0 \0 002 001 \ 264 0002500 003 202 261 \0 224 i c 032 J k L 017 016 [ 003 264 0002520 003 202 261 \0 204 J I \t \0 \0 360 251 J d I g 0002540 \0 \0 033 360 236 277 K 002 003 002 021 ! \a M ^ 003 0002560 265 026 023 J K \n \0 \0 W 022 262 7 g \0 \0 K 0002600 W 030 \v \0 \0 020 001 003 001 _ 016 g \0 \0 360 250 0002620 O 016 d g \0 \0 360 222 277 i 203 ` \0 \0 360 254 0002640 g \0 \0 I # 032 N \n \0 \0 277 260 307 N 002 260 0002660 277 K 001 d g \0 \0 360 246 d g \0 \0 360 262 031 0002700 277 J W 020 001 360 234 W 020 002 W 020 h d d I 0002720 \r 006 \0 \0 W 020 020 K 020 \0 ( 3 4 0 Q 0002740 D W I M I F Y 0 ? 2 6 6 Q A 0002760 T T A C H 2 2 1 Q R E T A P 0003000 P L Y 2 0 4 Q C L I S P T R 0003020 A N 1 4 6 Q G E T D 1 1 0 0003040 Q A S S O C 7 1 Q G E T D 0003060 3 5 Q G E T D ) \r ( 3 1 1 Q 0003100 N L A M B D A 3 0 3 Q L A 0003120 M B D A 2 5 7 Q L T S T K N 0003140 A M E 2 5 2 Q C O M M E N T 0003160 F L G 2 4 2 Q C L I S P : 0003200 2 3 2 Q D E C L A R E 2 1 3 0003220 Q F A U L T A P P L Y 1 5 6 0003240 Q E X P R 1 0 5 Q L A M B 0003260 D A T R A N F N S 4 5 Q L A 0003300 M B D A S P L S T ) \r N I L \r L 0003320 T S T K N A M E D 1 \r ( L ( 0003340 0 N A M E ) ) \0 033 001 \0 001 001 021 0003360 020 \0 m 377 g \0 \0 i ` \0 \0 \f \0 \0 X @ 0003400 \n \0 \0 H \t \0 \0 h 020 \0 ( 2 7 Q R 0003420 E L S T K 2 3 Q S E T S T K 0003440 N A M E 1 6 Q R E A L S T K 0003460 N T H ) \r ( 1 3 Q B O U N D P 0003500 D U M M Y 7 L T S T K N A M 0003520 E ) \r N I L \r N A R G S A 0 0 1 0003540 9 D 1 \r ( N A M E E R R O R 0003560 S E T L ( 2 E R R O R S E 0003600 T . W 1 E R R O R S E T . V 0003620 0 E R R O R S E T . U ) F 0003640 0 X ) \0 \t \0 001 \0 003 P \t \0 \0 0003660 c \0 # 020 \0 ( 3 A R G L I S T ) 0003700 \r N I L \r N I L \r N A R G S D 0003720 1 \r ( I 0 X ) \0 036 \0 \0 \0 001 0003740 @ \t \0 \0 265 017 o \0 \0 \0 \t \0 \0 264 006 @ 0003760 265 004 j 020 003 224 @ \t \0 \0 020 k 020 \0 ( 3 0004000 1 Q L E N G T H 1 4 Q N A 0004020 R G S A 0 0 1 9 3 O L D N A 0004040 R G S ) \r N I L \r ( 1 1 Q ( D 0004060 U M M Y . F O R . E R R O R S E 0004100 T ) ) \r ( P R E T T Y C O M P R 0004120 I N T L A M B D A T R A N C O 0004140 M S ) \r ( R P A Q Q L A M B D 0004160 A T R A N C O M S ( ( * T r 0004200 a n s l a t i o n m a c h i n 0004220 e r y f o r n e w L A M B 0004240 D A w o r d s ) ( L O C A L 0004260 V A R S . T ) ( D E C L A 0004300 R E : F I R S T \r ( P ( V 0004320 I R G I N F N ( Q U O T E A 0004340 R G L I S T ) T ) ( M O V D 0004360 ? ( Q U O T E A R G L I S T 0004400 ) ( Q U O T E O L D A R G L 0004420 I S T ) ) ( V I R G I N F N 0004440 ( Q U O T E N A R G S ) T ) 0004460 \r ( M O V D ? ( Q U O T E 0004500 N A R G S ) ( Q U O T E O L 0004520 D N A R G S ) ) ( V I R G I N 0004540 F N ( Q U O T E A R G T Y P 0004560 E ) T ) ( M O V D ? ( Q U 0004600 O T E A R G T Y P E ) ( Q U 0004620 O T E \r O L D A R G T Y P E ) 0004640 ) ) ) ( F N S A R G L I S T 0004660 A R G T Y P E F N T Y P 1 0004700 L T D W I M U S E R F N L T S 0004720 T K N A M E N A R G S ) ( A 0004740 D D V A R S ( D W I M U S E R 0004760 F O R M S ( \r L T D W I M U S 0005000 E R F N ) ) ) ( P R O P V A 0005020 R T Y P E L A M B D A T R A N 0005040 F N S ) ( A L I S T S ( L A 0005060 M B D A T R A N F N S ) ) ( P 0005100 R O P M A C R O L T S T K N 0005120 A M E ) ( P ( \r P U T H A S 0005140 H ( Q U O T E L T S T K N A 0005160 M E ) ( Q U O T E ( N I L ) 0005200 ) M S T E M P L A T E S ) ) 0005220 ( P ( R E L I N K ( Q U O T 0005240 E W O R L D ) ) ) ( D E C L 0005260 A R E : \r E V A L @ C O M P I 0005300 L E D O N T C O P Y ( P ( 0005320 R E S E T S A V E D W I M I F 0005340 Y C O M P F L G T ) ) ( G L 0005360 O B A L V A R S C L I S P A R 0005400 R A Y C O M M E N T F L G L 0005420 A M B D A S P L S T \r L A M B 0005440 D A T R A N F N S B O U N D P 0005460 D U M M Y ) ) ( D E C L A R E 0005500 : D O C O P Y ( D E C L A R 0005520 E : E V A L @ L O A D W H E N 0005540 ( N E Q ( E V A L V ( Q U 0005560 O T E L D F L G ) ) ( Q U O 0005600 T E \r S Y S L O A D ) ) ( R 0005620 E C O R D S L A M B D A W O R 0005640 D ) ) ) ( D E C L A R E : D 0005660 O N T E V A L @ L O A D D O E 0005700 V A L @ C O M P I L E D O N T 0005720 C O P Y C O M P I L E R V A R 0005740 S ( \r A D D V A R S ( N L A 0005760 M A ) ( N L A M L L T S T K 0006000 N A M E ) ( L A M A ) ) ) ) ) 0006020 \r ( A D D T O V A R D W I M U 0006040 S E R F O R M S ( L T D W I M 0006060 U S E R F N ) ) \r ( P U T P R O 0006100 P S L A M B D A T R A N F N S 0006120 V A R T Y P E A L I S T ) \r 0006140 ( A D D T O V A R L A M B D A 0006160 T R A N F N S ) \r ( P U T P R O 0006200 P S L T S T K N A M E M A C 0006220 R O ( X ( C O N S C O M M 0006240 E N T F L G X ) ) ) \r ( P U T 0006260 H A S H ( Q U O T E L T S T 0006300 K N A M E ) ( Q U O T E ( N 0006320 I L ) ) M S T E M P L A T E S 0006340 ) \r ( R E L I N K ( Q U O T E 0006360 W O R L D ) ) \r ( D E C L A R 0006400 E : E V A L @ L O A D W H E N 0006420 ( N E Q ( E V A L V ( Q U 0006440 O T E L D F L G ) ) ( Q U O 0006460 T E S Y S L O A D ) ) ( D E 0006500 C L A R E : E V A L @ C O M P 0006520 I L E ( R E C O R D \r L A M 0006540 B D A W O R D ( T R A N F N 0006560 F N T Y P A R G L I S T ) ) ) 0006600 ) \r N I L \r 0006606