$ od -c -N 50000 [eris]<Lisp>KOTO>Library>NEW>CMLSYMBOL.DCOM!1
0000000 ( F I L E C R E A T E D " 2 4
0000020 - J a n - 8 6 1 3 : 0 6 : 1 7
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 S Y M
0000120 B O L . ; 6 ) \r " 2 2 - J a n
0000140 - 8 6 1 8 : 5 9 : 5 5 " r e
0000160 c o m p i l e d c h a n g e s
0000200 : n o t h i n g i n " X e
0000220 r o x L i s p 2 2 - J a n -
0000240 8 6 . . . " d a t e d \r "
0000260 2 2 - J a n - 8 6 1 9 : 1 4 :
0000300 1 5 " ) \r ( F I L E C R E A T E
0000320 D " 2 4 - J a n - 8 6 1 3 :
0000340 0 5 : 5 4 " { E R I S } < L I
0000360 S P C O R E > L I B R A R Y > C
0000400 M L S Y M B O L . ; 6 5 5 1 7
0000420 c h a n g e s t o : ( V A
0000440 R S \r C M L S Y M B O L C O M
0000460 S ) p r e v i o u s d a t e
0000500 : " 1 9 - D e c - 8 5 0 3 :
0000520 5 4 : 1 0 " { E R I S } < L I
0000540 S P C O R E > L I B R A R Y > C
0000560 M L S Y M B O L . ; 5 ) \r M A K
0000600 U N B O U N D D 1 \r ( I 0
0000620 V A R I A B L E ) \0 \t \0 \0 \0 001
0000640 @ g \0 \0 \n \0 \0 020 \0 ( 6 S E T )
0000660 \r ( 3 N O B I N D ) \r ( ) \r F
0000700 M A K U N B O U N D D 1 \r ( I
0000720 0 V A R I A B L E ) \0 006 \0
0000740 \0 \0 001 @ \t \0 \0 020 \0 ( 3 P U T D
0000760 ) \r N I L \r ( ) \r F B O U N D P
0001000 D 1 \r ( L ( 0 V A R I A B
0001020 L E ) ) \0 \n \0 \0 \0 001 @ \t \0 \0 h
0001040 360 h 360 020 \0 ( 3 G E T D ) \r N I
0001060 L \r ( ) \r G E T D 1 \r ( L (
0001100 2 D E F A U L T 1 I N D I
0001120 C A T O R 0 S Y M B O L ) )
0001140 \0 \b \0 \0 \0 003 @ A 033 265 003 B 020 \0 N
0001160 I L \r N I L \r ( ) \r G E T F D
0001200 1 \r ( I 2 D E F A U L T I
0001220 1 I N D I C A T O R I 0
0001240 P L A C E ) \0 \b \0 \0 \0 003 @ A
0001260 ' 265 003 B 020 \0 N I L \r N I L \r ( )
0001300 \r G E T - P R O P E R T I E S
0001320 D 1 \r ( P 0 P L I S T I
0001340 1 I N D I C A T O R - L I S T
0001360 I 0 P L A C E ) \0 4 001 \0
0001400 \0 002 @ 021 001 \0 H d 245 d d \v \0 \0 020 002
0001420 \t \0 \0 236 o \0 \0 \0 @ \n \0 \0 277 H 002 002
0001440 X 260 346 H 001 A \n \0 \0 262 364 H 001 H 002 001
0001460 H \v \0 \0 020 \0 ( 6 1 Q V A L U E
0001500 S 4 6 Q M E M Q 3 1 Q C
0001520 L : E R R O R 2 0 Q C L : A
0001540 T O M 1 3 Q V A L U E S ) \r
0001560 N I L \r ( 2 5 Q " ~ S i s
0001600 a m a l f o r m e d p r o
0001620 p r t y l i s t . " ) \r C O P
0001640 Y - S Y M B O L D 1 \r ( L (
0001660 0 \ C L : L A M B D A . A R G
0001700 C N T ) P 3 N E W - S Y M
0001720 B O L P 2 C O P Y - P R O
0001740 P S P 1 S Y M B O L ) \0
0001760 D 004 \0 002 \0 e 021 001 \0 k H 361 230 o \0 \0
0002000 \0 H \n \0 \0 277 H l 002 361 230 o \0 \0 \0 H
0002020 \n \0 \0 277 @ 021 ! 003 l 002 H 361 221 h 200 A
0002040 272 h 273 I \t \0 \0 [ J 233 d 301 002 I \t \0
0002060 \0 \t \0 \0 024 \0 K 020 \0 ( 7 6 Q \ A
0002100 P P E N D 2 7 3 Q S Y M B O
0002120 L - P L I S T 6 1 Q G E N S
0002140 Y M 3 5 Q E R R O R 1 7 Q
0002160 E R R O R ) \r N I L \r ( 3 1
0002200 Q " T o o m a n y a r g s
0002220 " 1 3 Q " T o o f e w a
0002240 r g s " ) \r K E Y W O R D P D
0002260 1 \r ( I 0 S Y M B O L ) \0
0002300 \t \0 \0 \0 001 @ \t \0 \0 l : 360 020 \0 ( 3
0002320 C H C O N 1 ) \r N I L \r ( ) \r
0002340 ( P R E T T Y C O M P R I N T
0002360 C M L S Y M B O L C O M S ) \r (
0002400 R P A Q Q C M L S Y M B O L C
0002420 O M S ( ( * * C M L S Y M
0002440 B O L - - C o v e r s p a
0002460 r t s o f C h a p t e r s
0002500 7 . 0 a n d 1 0 . 0 * )
0002520 ( * * S E T B O U N D P
0002540 \r R E M P R O P G E N S Y M
0002560 a l r e a d y i n I n t e r
0002600 l i s p . G E N S Y M n e e
0002620 d s a l i t t l e w o r k
0002640 t o b e f a i t h f u l l
0002660 y i m p l e m e n t e d . \r
0002700 S Y M B O L - P A C K A G E C
0002720 O P Y - S Y M B O L G E N T E
0002740 M P K E Y W O R D P u s e
0002760 p a c k a g e s a n d a r e
0003000 n o t f a i t h f u l l y
0003020 i m p l e m e n t e d . G E T
0003040 \r d o e s n ' t c u r r e n
0003060 t l y h a n d l e d e f a u
0003100 l t s c o r r e c t l y . *
0003120 ) ( I N I T V A R S ( G E N
0003140 S Y M - P R E F I X " G " )
0003160 ( G E N S Y M - C O U N T E R
0003200 0 ) ) ( F N S \r M A K U N B
0003220 O U N D F M A K U N B O U N D
0003240 F B O U N D P G E T G E T
0003260 F G E T - P R O P E R T I E S
0003300 C O P Y - S Y M B O L K E Y
0003320 W O R D P ) ( P ( M O V D
0003340 ( Q U O T E E V A L V ) ( \r
0003360 Q U O T E S Y M B O L - V A L
0003400 U E ) ) ( M O V D ( Q U O T
0003420 E G E T D ) ( Q U O T E S
0003440 Y M B O L - F U N C T I O N ) )
0003460 ( M O V D ( Q U O T E G E
0003500 T P R O P L I S T ) ( Q U O T
0003520 E \r S Y M B O L - P L I S T )
0003540 ) ( M O V D ( Q U O T E M
0003560 K S T R I N G ) ( Q U O T E
0003600 S Y M B O L - N A M E ) ) ( M
0003620 O V D ( Q U O T E N I L L )
0003640 ( Q U O T E S Y M B O L - P
0003660 A C K A G E ) ) \r ( M O V D
0003700 ( Q U O T E M K A T O M ) (
0003720 Q U O T E M A K E - S Y M B O
0003740 L ) ) ( M O V D ( Q U O T E
0003760 G E N S Y M ) ( Q U O T E
0004000 G E N T E M P ) ) ) ( D E C L
0004020 A R E : \r D O N T E V A L @ L
0004040 O A D D O E V A L @ C O M P I
0004060 L E D O N T C O P Y C O M P
0004100 I L E R V A R S ( A D D V A R
0004120 S ( N L A M A ) ( N L A M L
0004140 ) ( L A M A C O P Y - S Y M
0004160 B O L ) ) ) ) ) \r ( R P A Q ?
0004200 G E N S Y M - P R E F I X " G
0004220 " ) \r ( R P A Q ? G E N S Y M
0004240 - C O U N T E R 0 ) \r ( M O V
0004260 D ( Q U O T E E V A L V )
0004300 ( Q U O T E S Y M B O L - V A
0004320 L U E ) ) \r ( M O V D ( Q U O
0004340 T E G E T D ) ( Q U O T E
0004360 S Y M B O L - F U N C T I O N )
0004400 ) \r ( M O V D ( Q U O T E G
0004420 E T P R O P L I S T ) ( Q U O
0004440 T E S Y M B O L - P L I S T )
0004460 ) \r ( M O V D ( Q U O T E M
0004500 K S T R I N G ) ( Q U O T E
0004520 S Y M B O L - N A M E ) ) \r ( M
0004540 O V D ( Q U O T E N I L L )
0004560 ( Q U O T E S Y M B O L - P
0004600 A C K A G E ) ) \r ( M O V D (
0004620 Q U O T E M K A T O M ) ( Q
0004640 U O T E M A K E - S Y M B O L
0004660 ) ) \r ( M O V D ( Q U O T E
0004700 G E N S Y M ) ( Q U O T E G
0004720 E N T E M P ) ) \r ( P U T P R O
0004740 P S C M L S Y M B O L C O P
0004760 Y R I G H T ( " X e r o x C
0005000 o r p o r a t i o n " 1 9 8 5
0005020 1 9 8 6 ) ) \r N I L \r
0005034