$ od -c -N 50000 [phylum]<LISP>Lyric>Lispusers>LISPXCONVERT!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 "
0000120 4 - N o v - 8 6 1 5 : 4 9 : 0
0000140 2 " 006 004 { E R I S } < L I S P
0000160 U S E R S > L I S P C O R E > L
0000200 I S P X C O N V E R T . ; 1 006 001
0000220 2 0 7 1 \r \r
0000240 c h a n g e s t o % : ( V
0000260 A R S L I S P X C O N V E R T
0000300 C O M S ) \r
0000320 ( F N S L
0000340 I S P X C O N V E R T ) ) \r \r \r
0000360 ( * " \r C o p y r i g h t (
0000400 c ) 1 9 8 6 b y X e r o x
0000420 C o r p o r a t i o n . A
0000440 l l r i g h t s r e s e r v
0000460 e d . \r " ) \r \r ( P R E T T Y C
0000500 O M P R I N T L I S P X C O N
0000520 V E R T C O M S ) \r \r ( R P A Q
0000540 Q 006 002 L I S P X C O N V E R T
0000560 C O M S 006 001 ( ( F N S L I S
0000600 P X C O N V E R T ) ) ) \r ( D E
0000620 F I N E Q \r \r ( 006 004 L I S P X C
0000640 O N V E R T 006 001 \r [ L A M B
0000660 D A ( M A C R O N A M E S E
0000700 D I T F L G )
0000720
0000740 ( * b v m % : "
0000760 4 - N o v - 8 6 1 5 : 4 6 "
0001000 ) \r
0001020
*
0001060 ( * ; ; " C o n v e
0001100 r t o l d s t y l e l i s
0001120 p x m a c r o s t o n e w
0001140 s t y l e d e f c o m m a n d
0001160 s . I f E D I T F L G i
0001200 s t r u e , y o u g e t
0001220 a c h a n c e t o e d i t
0001240 t h e D E F C O M M A N D
0001260 f o r m s b e f o r e t h e
0001300 y g e t e v a l ' e d . " )
0001320 \r ( 006 002 f o r 006 001 N A
0001340 M E 006 002 i n s i d e 006 001 M A
0001360 C R O N A M E S \r
0001400 006 002 c o l l e c t 006 001 [ L E T
0001420 ( T Y P E B O D ) \r
0001440
0001460 ( 006 002 i f 006 001 ( S E T Q B O
0001500 D ( C D R ( A S S O C N A
0001520 M E L I S P X H I S T O R Y M
0001540 A C R O S ) ) ) \r
0001560
0001600 006 002 t h e n 006 001
0001620
0001640 ( * ; "
0001660 h i s t o r y m a c r o " ) \r
0001700
0001720 ( S E
0001740 T Q T Y P E : I N P U T ) \r
0001760
0002000 006 002 e l s e i f 006 001
0002020 ( S E T Q B O D ( C D R
0002040 ( A S S O C N A M E L I S P
0002060 X M A C R O S ) ) ) \r
0002100
0002120 006 002 t h e n 006 001
0002140
0002160 ( * ;
0002200 " e v a l t y p e " ) \r
0002220
0002240 ( S E T Q
0002260 T Y P E : E V A L ) \r
0002300
0002320 006 002 e l s e 006 001 ( C L :
0002340 C E R R O R " I g n o r e ~
0002360 S " " L i s p x m a c r o f
0002400 o r ~ S n o t f o u n d "
0002420 N A M E ) ) \r
0002440 ( A N D
0002460 T Y P E ( C O P Y ` ( D E
0002500 F C O M M A N D ( 006 002 ( \ ,
0002520 N A M E ) 006 001 , T Y P E \r
0002540
*
0002620 , @ ( 006 002 i
0002640 f 006 001 ( N U L L ( C A R B
0002660 O D ) ) \r
0002700
*
0002760 006 002 t h e n 006 001
0003000 \r
0003020
*
0003060 ( * ; " l i k
0003100 e S H H , d o n ' t r e c
0003120 o r d o n h i s t o r y l
0003140 i s t " ) \r
0003160
*
0003240 ( 006 002
0003260 p o p 006 001 B O D ) \r
0003300
*
0003400 ' ( : Q U I E T ) ) ) ( &
0003420 R E S T L I S P X L I N E ) \r
0003440
*
0003500 , @ B O D ) \r ]
0003520 006 002 f i n a l l y 006 001 ( 006 002
0003540 i f 006 001 E D I T F L G \r
0003560 006 002 t h e
0003600 n 006 001 ( E D I T E $ $ V A L
0003620 ) ) \r ( R E T U
0003640 R N ( M A P C A R $ $ V A L
0003660 ( F U N C T I O N E V A L ]
0003700 ) \r ) \r ( P U T P R O P S L I
0003720 S P X C O N V E R T C O P Y R
0003740 I G H T ( " X e r o x C o r
0003760 p o r a t i o n " 1 9 8 6 ) )
0004000 \r ( D E C L A R E % : D O N T
0004020 C O P Y \r ( F I L E M A P
0004040 ( N I L ( 3 9 7 1 9 8 7 (
0004060 L I S P X C O N V E R T 4 0 7
0004100 . 1 9 8 5 ) ) ) ) ) \r S T O
0004120 P \r
0004122