$ od -c -N 50000 [phylum]<LispLibrary>Koto>CMLEXEC.DCOM!1
0000000 ( F I L E C R E A T E D " 2 0
0000020 - N o v - 8 5 1 8 : 3 9 : 2 3
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 > C M L E X E
0000120 C . ; 1 2 ) \r " 1 7 - O c t -
0000140 8 5 1 8 : 5 8 : 4 4 " r e c
0000160 o m p i l e d c h a n g e s :
0000200 n o t h i n g i n " I N T
0000220 E R L I S P - D 1 7 - O c t -
0000240 8 5 . . . " d a t e d \r "
0000260 1 7 - O c t - 8 5 1 9 : 1 9 :
0000300 5 8 " ) \r ( F I L E C R E A T E
0000320 D " 2 0 - N o v - 8 5 1 8 :
0000340 3 9 : 0 6 " { E R I S } < L I
0000360 S P C O R E > L I B R A R Y > C
0000400 M L E X E C . ; 1 2 2 5 2 2
0000420 c h a n g e s t o : ( V A R
0000440 S \r C M L E X E C C O M S )
0000460 p r e v i o u s d a t e : "
0000500 1 4 - N o v - 8 5 2 1 : 2 1 :
0000520 0 0 " { E R I S } < L I S P C
0000540 O R E > L I B R A R Y > C M L E
0000560 X E C . ; 1 1 ) \r C M L T T Y I
0000600 N R E A D D 1 \r ( I 1 R D
0000620 T B L I 0 F I L E F 0
0000640 L I S P X I D F 1 C M L
0000660 P R O M P T F 2 C M L R D
0000700 T B L ) \0 024 \0 003 \0 002 P Q 360 230 @
0000720 R \n \0 \0 \t \0 \0 020 @ A \n \0 \0 020 \0 (
0000740 2 1 Q O L D T T Y I N R E A D
0000760 1 3 Q C M L T R A N S L A T
0001000 E 1 0 Q O L D T T Y I N R E
0001020 A D ) \r N I L \r ( ) \r C M L T T
0001040 Y I N E D I T D 1 \r ( I 4
0001060 R D T B L I 3 P R O M P T
0001100 I 2 P R I N T F N I 1
0001120 W I N D O W I 0 E X P R
0001140 S F 0 C M L P R O M P T
0001160 F 1 C M L R D T B L ) \0 036
0001200 \0 002 \0 005 C P 360 236 C h d g \0 \0 h d
0001220 @ Q \r \b \0 \0 020 @ A B C D \r 005 \0 \0
0001240 020 \0 ( 3 3 Q T T Y I N E D I T
0001260 2 1 Q T T Y I N ) \r ( 1 1 Q
0001300 L I S P X R E A D ) \r ( ) \r (
0001320 P R E T T Y C O M P R I N T C
0001340 M L E X E C C O M S ) \r ( R P A
0001360 Q Q C M L E X E C C O M S (
0001400 ( V A R S C M L P R O M P T )
0001420 ( F N S C M L T T Y I N R E
0001440 A D C M L T T Y I N E D I T )
0001460 ( D E C L A R E : D O N T E
0001500 V A L @ L O A D D O C O P Y
0001520 ( \r F I L E S L I S T E N )
0001540 ( P ( M O V D ? ( Q U O T E
0001560 T T Y I N R E A D ) ( Q U O
0001600 T E O L D T T Y I N R E A D )
0001620 ) ( M O V D ( Q U O T E C
0001640 M L T T Y I N R E A D ) ( Q U
0001660 O T E \r T T Y I N R E A D ) )
0001700 ( * * T h e f o l l o w
0001720 i n g d o e s n o t r e p
0001740 a i r F I X ' s n o n - u s
0001760 e o f t h e C M L R D T B
0002000 L ( C H A N G E N A M E ( Q
0002020 U O T E \r L I S P X F I X )
0002040 ( Q U O T E T T Y I N E D I T
0002060 ) ( Q U O T E C M L T T Y I
0002100 N E D I T ) ) ) ( f o r X
0002120 i n B a c k g r o u n d M e n
0002140 u C o m m a n d s w h e n (
0002160 O R ( \r S T R I N G - E Q U A
0002200 L ( C A R X ) ( Q U O T E
0002220 E X E C ) ) ( S T R I N G -
0002240 E Q U A L ( C A R X ) ( Q
0002260 U O T E L i s p % L i s t e
0002300 n e r ) ) ) d o ( R E T U R
0002320 N ( c h a n g e ( \r C D D D
0002340 R X ) ( Q U O T E ( ( S U
0002360 B I T E M S ( I n t e r l i s
0002400 p ( Q U O T E ( A D D . N E
0002420 W . E X E C ) ) ) ( " C o m m
0002440 o n L i s p " ( B Q U O T E
0002460 ( A D D . N E W . E X E C (
0002500 \r B Q U O T E ( L E T ( ( \
0002520 C M L . R E A D P R E F I X "
0002540 # " ) ) ( E V A L Q T ( B Q
0002560 U O T E ( \ , C M L P R O M
0002600 P T ) ) ) ) ) ) ) ) ) ) ) ) ) )
0002620 ( S E T Q B a c k g r o u n
0002640 d M e n u ) ) \r ) ) ) \r ( R P A
0002660 Q Q C M L P R O M P T " * "
0002700 ) \r ( F I L E S L O A D L I S
0002720 T E N ) \r ( M O V D ? ( Q U O
0002740 T E T T Y I N R E A D ) ( Q
0002760 U O T E O L D T T Y I N R E A
0003000 D ) ) \r ( M O V D ( Q U O T E
0003020 C M L T T Y I N R E A D ) (
0003040 Q U O T E T T Y I N R E A D )
0003060 ) \r ( f o r X i n B a c k
0003100 g r o u n d M e n u C o m m a n
0003120 d s w h e n ( O R ( S T R
0003140 I N G - E Q U A L ( C A R X
0003160 ) ( Q U O T E E X E C ) )
0003200 ( S T R I N G - E Q U A L ( C
0003220 A R X ) ( \r Q U O T E L i
0003240 s p % L i s t e n e r ) ) )
0003260 d o ( R E T U R N ( c h a n
0003300 g e ( C D D D R X ) ( Q U
0003320 O T E ( ( S U B I T E M S (
0003340 I n t e r l i s p ( Q U O T E
0003360 ( A D D . N E W . E X E C \r )
0003400 ) ) ( " C o m m o n L i s p
0003420 " ( B Q U O T E ( A D D . N
0003440 E W . E X E C ( B Q U O T E
0003460 ( L E T ( ( \ C M L . R E A D
0003500 P R E F I X " # " ) ) ( E V
0003520 A L Q T ( B Q U O T E ( \ ,
0003540 \r C M L P R O M P T ) ) ) ) )
0003560 ) ) ) ) ) ) ) ) ) \r ( S E T Q
0003600 B a c k g r o u n d M e n u ) \r
0003620 ( P U T P R O P S C M L E X E
0003640 C C O P Y R I G H T ( " X e
0003660 r o x C o r p o r a t i o n "
0003700 1 9 8 5 ) ) \r N I L \r
0003714