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