$ od -c -N 50000 [phylum]<LISPUSERS>Lyric>lambdatran!1
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 " 1
0000120 9 - F e b - 8 7 1 0 : 4 0 : 4
0000140 3 " 006 004 { Q V } < L F G > P A
0000160 R S E R > N E X T > L A M B D A
0000200 T R A N . ; 2 006 001 9 5 5 6
0000220 \r \r c h a n g e s
0000240 t o % : ( F N S F N T Y
0000260 P 1 L T D W I M U S E R F N
0000300 L T S T K N A M E N A R G S )
0000320 \r \r p r e v i o u s
0000340 d a t e % : " 1 9 - F e b -
0000360 8 7 0 9 : 5 6 : 1 8 " { Q V
0000400 } < L F G > P A R S E R > N E X
0000420 T > L A M B D A T R A N . ; 1 )
0000440 \r \r \r ( * " \r C o p y r i g h
0000460 t ( c ) 1 9 8 4 , 1 9 8 7
0000500 b y X e r o x C o r p o r
0000520 a t i o n . A l l r i g h
0000540 t s r e s e r v e d . \r " ) \r
0000560 \r ( P R E T T Y C O M P R I N T
0000600 L A M B D A T R A N C O M S )
0000620 \r \r ( R P A Q Q 006 002 L A M B D
0000640 A T R A N C O M S 006 001 [ ( *
0000660 T r a n s l a t i o n m a c h
0000700 i n e r y f o r n e w L A
0000720 M B D A w o r d s ) \r
0000740
0000760 ( L O C A L V A R S .
0001000 T ) \r
0001020 [ D E C L A
0001040 R E % : F I R S T ( P ( V
0001060 I R G I N F N ' A R G L I S T
0001100 T ) \r
0001120
0001140 (
0001160 M O V D ? ' A R G L I S T '
0001200 O L D A R G L I S T ) \r
0001220
*
0001260 ( V I R G I N F N
0001300 ' N A R G S T ) \r
0001320
*
0001360 ( M O V D ? ' N A
0001400 R G S ' O L D N A R G S ) \r
0001420
*
0001460 ( V I R G I
0001500 N F N ' A R G T Y P E T ) \r
0001520
*
0001560 ( M O V D
0001600 ? ' A R G T Y P E ' O L D A
0001620 R G T Y P E ) \r
0001640
*
0001700 ( M O V D ? ' N I L L
0001720 ' L T D W I M U S E R F N ] \r
0001740
0001760 ( F N S A R G L I
0002000 S T A R G T Y P E F N T Y P
0002020 1 L T D W I M U S E R F N L
0002040 T S T K N A M E N A R G S ) \r
0002060
0002100 ( A D D V A R S
0002120 ( D W I M U S E R F O R M S (
0002140 L T D W I M U S E R F N ) ) ) \r
0002160
0002200 ( P R O P V A R
0002220 T Y P E L A M B D A T R A N F
0002240 N S ) \r
0002260 ( A L I S
0002300 T S ( L A M B D A T R A N F N
0002320 S ) ) \r
0002340 ( P R O P
0002360 M A C R O L T S T K N A M E
0002400 ) \r
0002420 ( P ( P U T
0002440 H A S H ' L T S T K N A M E
0002460 ' ( N I L ) M S T E M P L A T
0002500 E S ) ) \r
0002520 ( P (
0002540 R E L I N K ' W O R L D ) ) \r
0002560
0002600 ( D E C L A R E %
0002620 : E V A L @ C O M P I L E D
0002640 O N T C O P Y ( P ( R E S E
0002660 T S A V E D W I M I F Y C O M
0002700 P F L G T ) ) \r
0002720
0002740 ( G L O B A L V A
0002760 R S C L I S P A R R A Y C O
0003000 M M E N T F L G L A M B D A S
0003020 P L S T L A M B D A T R A N F
0003040 N S B O U N D P D U M M Y \r
0003060
*
0003120 ) ) \r
0003140 ( D
0003160 E C L A R E % : D O N T C O P
0003200 Y ( R E C O R D S L A M B D
0003220 A W O R D ) ) \r
0003240 (
0003260 D E C L A R E % : D O N T E V
0003300 A L @ L O A D D O E V A L @ C
0003320 O M P I L E D O N T C O P Y
0003340 C O M P I L E R V A R S \r
0003360
0003400 ( A D D V
0003420 A R S ( N L A M A ) \r
0003440
*
0003500 ( N L A M L L T S T K N A M
0003520 E ) \r
0003540
0003560 ( L A M A ] ) \r
0003600 \r \r \r 006 004 ( * T r a n s l a t
0003620 i o n m a c h i n e r y f o
0003640 r n e w L A M B D A w o r
0003660 d s ) 006 001 \r \r ( D E C L A R E %
0003700 : D O E V A L @ C O M P I L E
0003720 D O N T C O P Y \r \r ( L O C A
0003740 L V A R S . T ) \r ) \r ( D E
0003760 C L A R E % : F I R S T \r (
0004000 V I R G I N F N ' A R G L I S
0004020 T T ) \r ( M O V D ? ' A R G
0004040 L I S T ' O L D A R G L I S T
0004060 ) \r ( V I R G I N F N ' N A R
0004100 G S T ) \r ( M O V D ? ' N A
0004120 R G S ' O L D N A R G S ) \r (
0004140 V I R G I N F N ' A R G T Y P
0004160 E T ) \r ( M O V D ? ' A R G
0004200 T Y P E ' O L D A R G T Y P E
0004220 ) \r ( M O V D ? ' N I L L '
0004240 L T D W I M U S E R F N ) \r ) \r
0004260 ( D E F I N E Q \r \r ( 006 004 A R G
0004300 L I S T 006 001 \r [ L A M B D A
0004320 ( F N ) 006 006 006 001
0004340
*
0004400 006 006 ( * r m k
0004420 % : " 6 - A U G - 7 9 2 2
0004440 : 4 1 " ) 006 001 \r ( P R O
0004460 G ( T E M P ( D E F ( C G
0004500 E T D F N ) ) ) \r
0004520 ( 006 002 D E C L A R E 006 001
0004540 ( L O C A L V A R S . T )
0004560 ) \r ( R E T
0004600 U R N ( 006 002 i f 006 001 ( O R
0004620 ( S U B R P D E F ) \r
0004640
0004660 ( N L I S T P D E
0004700 F ) \r
0004720 ( S E
0004740 L E C T Q ( C A R D E F ) \r
0004760
0005000 ( [
0005020 L A M B D A N L A M B D A F
0005040 U N A R G ] \r
0005060
0005100 T ) \r
0005120
0005140 N I L )
0005160 ) \r
0005200 006 002 t h e n 006 001
0005220 ( O L D A R G L I S T F N )
0005240 \r
0005260 006 002 e l s e i f 006 001
0005300 ( A N D C L I S P A R R A Y
0005320 ( S E T Q T E M P ( G E T H
0005340 A S H D E F C L I S P A R R
0005360 A Y ) ) ) \r
0005400 006 002 t h
0005420 e n 006 001 ( 006 002 A R G L I S T 006
0005440 001 T E M P ) \r
0005460 006 002 e l
0005500 s e i f 006 001 [ A N D [ S E T
0005520 Q T E M P ( 006 002 f e t c h 006
0005540 001 A R G L I S T 006 002 o f 006 001
0005560 ( C D R ( A S S O C ( C A
0005600 R D E F ) \r
0005620
*
0005720 L A M B D A T R A N F N S ] \r
0005740
0005760 (
0006000 N E Q T ( S E T Q T E M P
0006020 ( A P P L Y * T E M P D E
0006040 F ] \r
0006060 006 002 t h e n 006
0006100 001 T E M P \r
0006120 006 002 e l s
0006140 e 006 001 ( O L D A R G L I S T
0006160 F N ] ) \r \r ( 006 004 A R G T Y P E
0006200 006 001 \r [ L A M B D A ( F N
0006220 ) 006 006 006 001
0006240
*
0006300 006 006 ( * r m k % : "
0006320 9 - A P R - 7 8 1 2 : 5 5 "
0006340 ) 006 001 \r \r
0006360 006 006 ( * N o
0006400 t e % : W e d o n ' t h a
0006420 v e t o w o r r y a b o u
0006440 t S U B R ' s o r C C O D
0006460 E h e r e ) 006 001 \r \r (
0006500 O R ( O L D A R G T Y P E F
0006520 N ) \r ( S E L E
0006540 C T Q ( F N T Y P F N ) \r
0006560 ( E X P R
0006600 0 ) \r
0006620 ( F E X P R 1 ) \r
0006640 ( E X P R * 2 ) \r
0006660 ( F E X
0006700 P R * 3 ) \r
0006720 N I L ] ) \r \r ( 006 004 F N T
0006740 Y P 1 006 001 \r [ L A M B D A
0006760 ( X ) 006 006 006 001
0007000
*
0007040 006 006 ( * r m k %
0007060 : " 6 - A U G - 7 9 2 2 :
0007100 4 3 " ) 006 001 \r
0007120 \r 006 006 ( *
0007140 C a l l e d b y F N T Y P
0007160 w h e n i t c a n ' t i
0007200 n t e r p r e t t h e C A R
0007220 o f a l i s t d e f i n
0007240 i t i o n . \r 006 001
0007260 006 006 D o e s n ' t c a l
0007300 l d w i m i f y , b e c a u
0007320 s e i t m i g h t n o t
0007340 k n o w w h a t F A U L T N
0007360 r e a l l y i s . \r 006 001
0007400 006 006 T h e r e f
0007420 o r e , e x a m i n e s t h
0007440 e F N T Y P f i e l d o f
0007460 t h e L A M B D A T R A N
0007500 e n t r y ) 006 001 \r \r ( P
0007520 R O G ( T E M P ) \r
0007540 ( R E T U R N ( 006 002
0007560 i f 006 001 ( A N D C L I S P A
0007600 R R A Y ( S E T Q T E M P
0007620 ( G E T H A S H X C L I S P
0007640 A R R A Y ) ) ) \r
0007660 006
0007700 002 t h e n 006 001 ( F N T Y P T
0007720 E M P ) \r
0007740 006 002 e l s e i
0007760 f 006 001 ( S E T Q T E M P (
0010000 C D R ( A S S O C ( C A R
0010020 X ) \r
0010040
*
0010100 L A M B D A T R A N F
0010120 N S ) ) ) \r
0010140 006 002 t h
0010160 e n 006 001 ( S E L E C T Q ( S
0010200 E T Q T E M P ( 006 002 f e t c
0010220 h 006 001 F N T Y P 006 002 o f 006 001
0010240 T E M P ) ) \r
0010260
0010300 ( ( E X P R E X
0010320 P R * F E X P R F E X P R *
0010340 ) \r
0010360
0010400 T E M P ) \r
0010420
0010440 ( N I L
0010460 ' E X P R ) \r
0010500
0010520 ( A P P L Y * T
0010540 E M P X ] ) \r \r ( 006 004 L T D W
0010560 I M U S E R F N 006 001 \r [ L A
0010600 M B D A N I L 006 006 006 001
0010620
*
0010660 006 006 ( *
0010700 r m k % : " 6 - A U G - 7
0010720 9 2 2 : 4 9 " ) 006 001 \r
0010740
*
0011020 006 006 ( * N O
0011040 T E % : d w i m u s e r f n
0011060 H A S t o b e \r 006 001
0011100
*
0011160 006 006 c o m p
0011200 i l e d f o r p r o p e r
0011220 a c t i o n ! ! ) 006 001 \r
0011240 \r
0011260 006 006 ( * L A M B D A - w o r
0011300 d s c a n b e a d d e d
0011320 b y m a k i n g e n t r i e
0011340 s o n L A M B D A T R A N F
0011360 N S , e . g . \r 006 001
0011400 006 006 ( F O O L A M B D
0011420 A F O O T R A N E X P R F
0011440 O O A R G L I S T ) ) 006 001 \r \r
0011460 ( 006 002 D E C L A R E 006 001
0011500 ( U S E D F R E E E X P R F
0011520 A U L T F N F A U L T A P P L
0011540 Y F L G F A U L T X F A U L
0011560 T A R G S L A M B D A S P L S
0011600 T L A M B D A T R A N F N S
0011620 \r
0011640 C O M M E N T F L G
0011660 C L I S P C H A N G E ) ) \r
0011700 ( P R O G ( F O R M T R
0011720 A N T R A N F N ( E X P R
0011740 E X P R ) \r
0011760 ( F A U L T F N F
0012000 A U L T F N ) ) \r
0012020 ( 006 002 D E C L A R E 006 001
0012040 ( S P E C V A R S F A U L T F
0012060 N E X P R ) )
0012100 006 006 ( * R
0012120 e b i n d F A U L T F N t o
0012140 g u a r a n t e e \r 006 001
0012160
*
0012240 006 006 f u n
0012260 c t i o n n a m e i n s t e
0012300 a d o f T Y P E - I N ) 006 001
0012320 \r [ S E T Q
0012340 F O R M ( 006 002 i f 006 001 ( L
0012360 I S T P F A U L T X ) \r
0012400
0012420 006 002 t h e n 006 001 (
0012440 006 002 i f 006 001 ( F M E M B ( C
0012460 A R F A U L T X ) \r
0012500
*
0012540 L A M B D A S P L S T )
0012560 \r
0012600
0012620 006 002 t h e n 006 001 F A U L
0012640 T X \r
0012660
0012700 006 002 e l s e i f 006 001 ( L
0012720 I T A T O M ( C A R F A U L
0012740 T X ) ) \r
0012760
0013000 006 002 t h e n 006 001
0013020 [ S E T Q E X P R ( G E T D
0013040 ( S E T Q F A U L T F N (
0013060 C A R F A U L T X ] \r
0013100
0013120 006 002 e l
0013140 s e 006 001 ( L I S T P ( C A R
0013160 F A U L T X ) ) ) \r
0013200
0013220 006 002 e l s e i f 006 001 ( A N
0013240 D F A U L T A P P L Y F L G
0013260 ( L I T A T O M F A U L T X )
0013300 ) \r
0013320 006 002 t h e
0013340 n 006 001 ( S E T Q E X P R (
0013360 G E T D ( S E T Q F A U L T
0013400 F N F A U L T X ] \r
0013420 ( R E T U R N \r
0013440 ( 006 002 i f 006 001
0013460 [ S E T Q T R A N F N ( 006 002
0013500 f e t c h 006 001 T R A N F N 006
0013520 002 o f 006 001 ( C D R ( A S S O
0013540 C ( C A R F O R M ) \r
0013560
*
0013640 L A M B D A T R A N
0013660 F N S ] \r
0013700 006 002 t h e n 006 001 ( S E
0013720 T Q C L I S P C H A N G E T
0013740 ) \r \r
0013760 006 006 ( * T e l
0014000 l d w i m n o t t o t r
0014020 y a g a i n i f t h e t
0014040 r a n s l a t i o n d o e s n
0014060 ' t m a k e i t ) 006 001 \r \r
0014100
0014120 ( 006 002 i f 006 001 ( L I S T
0014140 P ( S E T Q T R A N ( A P
0014160 P L Y * T R A N F N F O R M
0014200 ) ) ) \r
0014220 006 002 t h
0014240 e n 006 001 ( 006 002 i f 006 001 [ O R
0014260 ( E Q F O R M ( G E T D
0014300 F A U L T F N ) ) \r
0014320
0014340 (
0014360 E Q F O R M ( G E T P F A
0014400 U L T F N ' E X P R ] \r
0014420
0014440 006 002
0014460 t h e n 006 001 \r
0014500 \r 006 006 (
0014520 * I n s e r t t h e f o r
0014540 m t h a t w i l l e s t a
0014560 b l i s h t h e r i g h t
0014600 f u n c t i o n n a m e o n
0014620 t h e s t a c k ) 006 001 \r \r
0014640
*
0014700 ( 006 002 f o r 006 001 X
0014720 T E M P 006 002 o n 006 001 ( C D R
0014740 ( L I S T P ( C D R T R A
0014760 N ) ) ) \r
0015000
0015020 006 002
0015040 u n l e s s 006 001 ( S E L E C T
0015060 Q [ S E T Q T E M P ( C A
0015100 R ( L I S T P ( C A R X ]
0015120 \r
0015140
*
0015200 ( ( D E C L A R E C
0015220 L I S P % : ) \r
0015240
*
0015320 T ) \r
0015340
*
0015400 ( E Q T E M
0015420 P C O M M E N T F L G ) ) \r
0015440
*
0015500 006 002 d o 006 001 (
0015520 A T T A C H ( L I S T ' L T
0015540 S T K N A M E F A U L T F N )
0015560 \r
0015600
*
0015640 X ) \r
0015660
*
0015720 ( R E T U R N ) ) ) \r
0015740
0015760 ( C L I S
0016000 P T R A N F O R M T R A N )
0016020 \r
0016040 ( 006
0016060 002 i f 006 001 F A U L T A P P L Y
0016100 F L G \r
0016120
0016140 006 002 t h e n 006 001 ( R
0016160 E T A P P L Y ' F A U L T A P
0016200 P L Y T R A N F A U L T A R
0016220 G S ) \r
0016240
0016260 006 002 e l s e 006 001 ( S E L
0016300 E C T Q ( C A R T R A N ) \r
0016320
*
0016360 ( [ L A M B D A
0016400 N L A M B D A ] \r
0016420
*
0016460 ( 006 002 i f 006 001
0016500 ( E Q F O R M ( C A R F A
0016520 U L T X ) ) \r
0016540
*
0016600 006 002 t h e n 006 001
0016620 ( D W I M I F Y 0 ? ( C D R
0016640 F A U L T X ) \r
0016660
*
0016740 F A U L T X N I L
0016760 N I L N I L F A U L T F N
0017000 ) ) \r
0017020
*
0017100 006 006 ( * D w i m i f y t h e
0017120 a r g u m e n t s o f a n
0017140 o p e n \r 006 001
0017160
*
0017240 006 006 L A M B D A ) 006
0017260 001 \r
0017300
0017320 F
0017340 A U L T X ) \r
0017360
0017400 T
0017420 R A N ] ) \r \r ( 006 004 L T S T K N
0017440 A M E 006 001 \r [ N L A M B D A
0017460 ( N A M E ) 006 006 006 001
0017500
*
0017540 006 006 ( * r m k %
0017560 : " 6 - J U N - 7 9 1 0 :
0017600 5 4 " ) 006 001 \r
0017620 \r 006 006 ( *
0017640 S m a s h e s t h e c o r
0017660 r e c t s t a c k - n a m e
0017700 o n t h e f r a m e f o r
0017720 t h e L A M B D A - t r a n
0017740 s l a t i o n . \r 006 001
0017760 006 006 T h e c a l l
0020000 g o e s a w a y a t c o m
0020020 p i l e . I f B O U N D P D
0020040 U M M Y i s b o u n d t o
0020060 a s t a c k f r a m e , a
0020100 v o i d s \r 006 001
0020120 006 006 a l l o c a t i o n
0020140 o n e a c h c a l l . ) 006 001
0020160 \r \r ( 006 002 D E C L A R E
0020200 006 001 ( U S E D F R E E B O U
0020220 N D P D U M M Y ) ) \r (
0020240 P R O G ( P O S ) \r
0020260 ( S E T S T K N A M E
0020300 ( S E T Q P O S ( R E A L
0020320 S T K N T H - 1 ' L T S T K
0020340 N A M E T B O U N D P D U M
0020360 M Y ) ) \r
0020400 N A M E ) \r
0020420 ( R E L S T K P O
0020440 S ] ) \r \r ( 006 004 N A R G S 006 001 \r
0020460 [ L A M B D A ( X ) 006 006 006
0020500 001
0020520
*
0020560 006 006 ( * r m k % : " 2 9 -
0020600 A P R - 7 8 1 4 : 1 0 " ) 006 001
0020620 \r ( O R ( O L D N A R
0020640 G S X ) \r ( A
0020660 N D ( N L S E T Q ( S E T Q
0020700 X ( 006 002 A R G L I S T 006 001
0020720 X ) ) ) \r
0020740 ( 006 002 i f 006 001 ( N U L L
0020760 X ) \r
0021000 006 002 t h e n 006 001 0 \r
0021020 006 002
0021040 e l s e i f 006 001 ( L I S T P
0021060 X ) \r
0021100 006 002 t h e n 006 001 ( L E
0021120 N G T H X ) \r
0021140 006 002 e l s e 006 001
0021160 1 ] ) \r ) \r \r ( A D D T O V A R
0021200 006 002 D W I M U S E R F O R M S
0021220 006 001 ( L T D W I M U S E R F N
0021240 ) ) \r \r ( P U T P R O P S 006 002
0021260 L A M B D A T R A N F N S V A
0021300 R T Y P E 006 001 A L I S T ) \r \r
0021320 ( A D D T O V A R 006 002 L A M B
0021340 D A T R A N F N S 006 001 ) \r \r (
0021360 P U T P R O P S 006 002 L T S T K
0021400 N A M E M A C R O 006 001 ( X
0021420 ( C O N S C O M M E N T F L G
0021440 X ) ) ) \r ( P U T H A S H '
0021460 L T S T K N A M E ' ( N I L )
0021500 M S T E M P L A T E S ) \r ( R
0021520 E L I N K ' W O R L D ) \r ( D
0021540 E C L A R E % : E V A L @ C O
0021560 M P I L E D O N T C O P Y \r
0021600 ( R E S E T S A V E D W I M I
0021620 F Y C O M P F L G T ) \r \r ( D
0021640 E C L A R E % : D O E V A L @
0021660 C O M P I L E D O N T C O P Y
0021700 \r \r ( G L O B A L V A R S C L
0021720 I S P A R R A Y C O M M E N T
0021740 F L G L A M B D A S P L S T
0021760 L A M B D A T R A N F N S B O
0022000 U N D P D U M M Y ) \r ) \r ) \r (
0022020 D E C L A R E % : D O N T C O
0022040 P Y \r ( D E C L A R E % : E
0022060 V A L @ C O M P I L E \r \r ( R E
0022100 C O R D 006 002 L A M B D A W O R
0022120 D 006 001 ( T R A N F N F N T Y
0022140 P A R G L I S T ) ) \r ) \r ) \r
0022160 ( D E C L A R E % : D O N T E
0022200 V A L @ L O A D D O E V A L @
0022220 C O M P I L E D O N T C O P Y
0022240 C O M P I L E R V A R S \r \r
0022260 ( A D D T O V A R 006 002 N L A M
0022300 A 006 001 ) \r \r ( A D D T O V A R
0022320 006 002 N L A M L 006 001 L T S T K
0022340 N A M E ) \r \r ( A D D T O V A R
0022360 006 002 L A M A 006 001 ) \r ) \r ( P
0022400 U T P R O P S L A M B D A T R
0022420 A N C O P Y R I G H T ( " X
0022440 e r o x C o r p o r a t i o n
0022460 " 1 9 8 4 1 9 8 7 ) ) \r ( D
0022500 E C L A R E % : D O N T C O P
0022520 Y \r ( F I L E M A P ( N I
0022540 L ( 2 2 2 4 8 8 2 1 ( A R
0022560 G L I S T 2 2 3 4 . 3 1 8
0022600 8 ) ( A R G T Y P E 3 1 9 0
0022620 . 3 5 4 4 ) ( F N T Y P 1
0022640 3 5 4 6 . 4 4 5 5 ) ( \r
0022660 L T D W I M U S E R F N 4 4 5
0022700 7 . 7 9 5 7 ) ( L T S T K
0022720 N A M E 7 9 5 9 . 8 4 8 3
0022740 ) ( N A R G S 8 4 8 5 .
0022760 8 8 1 9 ) ) ) ) ) \r S T O P \r
0022777