$ od -c -N 50000 [phylum]<LISPUSERS>Lyric>compilebang!1
0000000 ( D E F I N E - F I L E - I N F
0000020 O 247 P A C K A G E " I N T E
0000040 R L I S P " 247 R E A D T A B L
0000060 E " I N T E R L I S P " 247 B
0000100 A S E 1 0 ) \r 006 001 ( F I L E C
0000120 R E A T E D " 2 2 - D e c - 8
0000140 6 1 8 : 4 2 : 3 4 " 006 004 { E
0000160 R I S } < L I S P U S E R S > L
0000200 I S P C O R E > C O M P I L E B
0000220 A N G . ; 3 006 001 3 4 6 5
0000240 \r \r c h a n g e s
0000260 t o % : ( F N S C O M P I
0000300 L E ! ) \r \r p r e v
0000320 i o u s d a t e % : " 1 8 -
0000340 N o v - 8 6 2 2 : 2 3 : 4 3 "
0000360 { E R I S } < L I S P U S E R
0000400 S > L I S P C O R E > C O M P I
0000420 L E B A N G . ; 2 ) \r \r \r ( *
0000440 " \r C o p y r i g h t ( c )
0000460 1 9 8 2 , 1 9 8 3 , 1 9 8 4
0000500 , 1 9 8 6 b y X e r o x
0000520 C o r p o r a t i o n . A l
0000540 l r i g h t s r e s e r v e
0000560 d . \r " ) \r \r ( P R E T T Y C O
0000600 M P R I N T C O M P I L E B A
0000620 N G C O M S ) \r \r ( R P A Q Q
0000640 006 002 C O M P I L E B A N G C O M
0000660 S 006 001 ( ( F N S C O M P I L
0000700 E ! ) \r
0000720 ( L I S
0000740 P X M A C R O S C ) \r
0000760
0001000 ( U S E R M A C R O S
0001020 C ) \r
0001040 ( C O M M
0001060 A N D S C ) \r
0001100
0001120 ( P R O P F I L E T Y P E C
0001140 O M P I L E B A N G ) ) ) \r ( D
0001160 E F I N E Q \r \r ( 006 004 C O M P I
0001200 L E ! 006 001 \r [ L A M B D A
0001220 ( X N O S A V E N O R E D E
0001240 F I N E P R I N T L A P )
0001260
0001300 ( * b v m % : " 1 0 -
0001320 M A R - 8 3 1 2 : 4 8 " ) \r
0001340 ( 006 002 D E C L A R E 006 001
0001360 ( S P E C V A R S L C F I L
0001400 L A P F L G S T R F S V F L
0001420 G L S T F I L S P E C V A R
0001440 S L O C A L V A R S N L A M
0001460 A N L A M L L A M S L A M
0001500 A \r
0001520 N O F I X F N S L
0001540 S T N O F I X V A R S L S T )
0001560 ) \r \r
0001600 ( * ; ; " I n
0001620 - c o r e c o m p i l i n g
0001640 f o r f u n c t i o n s a n
0001660 d f o r m s , w i t h o u t
0001700 t h e i n t e r v i e w .
0001720 I f X i s a l i s t ,
0001740 w e a s s u m e t h a t
0001760 w e a r e b e i n g c a l
0002000 l e d m e r e l y t o d i
0002020 s p l a y t h e l a p a n
0002040 d m a c h i n e c o d e .
0002060 T H e f o r m i s c o m
0002100 p i l e d a s t h e d e f
0002120 i n i t i o n o f F O O b
0002140 u t t h e c o m p i l e d
0002160 c o d e i s t h r o w n a
0002200 w a y . - - - I f X i
0002220 s a l i t a t o m , t h e
0002240 n s a v i n g , r e d e f i
0002260 n i n g , a n d p r i n t i
0002300 n g i s c o n t r o l l e d
0002320 b y t h e f l a g s . " )
0002340 \r \r ( R E S E T L S T
0002360
*
0002420 (
0002440 * ; \r
0002460 " R E S E T L S T t o p
0002500 r o v i d e r e s e t c o n
0002520 t e x t f o r m a c r o s
0002540 u n d e r C O M P I L E 1 a
0002560 s g e n e r a t e d e . g .
0002600 b y D E C L . " ) \r
0002620 ( L E T ( ( L C
0002640 F I L ) \r
0002660 [ L A P F L G ( A
0002700 N D P R I N T L A P ( C O N
0002720 D \r
0002740
0002760 ( B Y T
0003000 E C O M P F L G T ) \r
0003020
*
0003060 ( T 2 ] \r
0003100 ( S T
0003120 R F ( N O T N O R E D E F I
0003140 N E ) ) \r
0003160 ( S V F L G ( N O
0003200 T N O S A V E ) ) \r
0003220 ( L S T
0003240 F I L T ) \r
0003260 ( S P E C V A R
0003300 S T ) \r
0003320 ( L O C A L V A R S
0003340 ( C O N D \r
0003360
0003400 ( ( N E Q L O C A
0003420 L V A R S T ) \r
0003440
0003460 ( U N I O N
0003500 S Y S L O C A L V A R S L O C
0003520 A L V A R S ) ) \r
0003540
0003560 ( T S Y S L O
0003600 C A L V A R S ) ) ) \r
0003620 ( N L A
0003640 M A N L A M A ) \r
0003660 ( N L A M
0003700 L N L A M L ) \r
0003720 ( L A M S
0003740 L A M S ) \r
0003760 ( L A M A L A M
0004000 A ) \r
0004020 ( N O F I X F N S L S T
0004040 N O F I X F N S L S T ) \r
0004060 (
0004100 N O F I X V A R S L S T N O F
0004120 I X V A R S L S T ) ) \r
0004140 ( C O M
0004160 P I L E 1 ( C O N D \r
0004200
0004220 ( ( L I T A T
0004240 O M X ) \r
0004260
0004300 X ) \r
0004320
0004340 ( T ' * D U M M Y - C
0004360 O M P I L E D - F U N C T I O N
0004400 * ) ) \r
0004420 ( C O N D
0004440 \r
0004460 ( ( N L I
0004500 S T P X ) \r
0004520
0004540 ( V I R G I N F N X T )
0004560 ) \r
0004600 ( ( A R
0004620 G T Y P E X ) \r
0004640
0004660 X ) \r
0004700
0004720 ( T ( L I S T ' L A M B D
0004740 A N I L X ) ) ) \r
0004760
0005000 T ] ) \r ) \r \r ( A D D T O V
0005020 A R 006 002 L I S P X M A C R O S
0005040 006 001 ( C ( C O N D ( L I S
0005060 P X L I N E ( C O M P I L E !
0005100 ( C A R L I S P X L I N E )
0005120 \r
0005140
*
0005200 N I L N I L T ) ) \r
0005220
0005240 ( T
0005260 C ) ) ) ) \r \r ( A D D T O V A R
0005300 006 002 U S E R M A C R O S 006 001
0005320 [ C N I L ( O R R ( U P
0005340 1 ) \r
0005360
0005400 N I L ) \r
0005420
0005440 ( O R R ( ( E ( C O M P I
0005460 L E ! ( O R ( L I S T P (
0005500 % # # ) ) \r
0005520
*
0005560 ( % # # ! 0 ) ) \r
0005600
*
0005640 T T T ) ) ) \r
0005660
0005700 ( ( E
0005720 ' C ? ] ) \r \r ( A D D T O V A
0005740 R 006 002 E D I T C O M S A 006 001
0005760 C ) \r \r ( D E F C O M M A N D
0006000 ( 006 002 C 006 001 : E V A L ) ( &
0006020 R E S T L I S P X L I N E )
0006040 ( C O N D \r
0006060
*
0006120 ( L I S P X L I N E ( C O M
0006140 P I L E ! ( C A R L I S P X
0006160 L I N E ) \r
0006200
*
0006260 N I L N I L T ) ) \r
0006300
*
0006340 ( T C ) )
0006360 ) \r \r \r ( P U T P R O P S 006 002
0006400 C O M P I L E B A N G F I L E
0006420 T Y P E 006 001 C L : C O M P I L
0006440 E - F I L E ) \r ( P U T P R O P
0006460 S C O M P I L E B A N G C O
0006500 P Y R I G H T ( " X e r o x
0006520 C o r p o r a t i o n " 1 9 8
0006540 2 1 9 8 3 1 9 8 4 1 9 8 6
0006560 ) ) \r ( D E C L A R E % : D O
0006600 N T C O P Y \r ( F I L E M A
0006620 P ( N I L ( 6 2 2 2 5 6 7
0006640 ( C O M P I L E ! 6 3 2 .
0006660 2 5 6 5 ) ) ) ) ) \r S T O P \r
0006700