$ od -c -N 50000 [eris]<Lisp>Harmony>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