$ od -c -N 50000 [eris]<LispCore>SOURCES>CMLSYMBOL!5
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 " 2
0000120 1 - O c t - 8 6 1 4 : 1 4 : 2
0000140 6 " 006 004 { E R I S } < L I S P
0000160 C O R E > S O U R C E S > C M L
0000200 S Y M B O L . ; 5 006 001 2 3 4 1
0000220 \r \r p r e v i
0000240 o u s d a t e % : " 3 - S
0000260 e p - 8 6 1 3 : 5 6 : 5 3 "
0000300 { E R I S } < L I S P C O R E >
0000320 S O U R C E S > C M L S Y M B O
0000340 L . ; 4 ) \r \r \r ( * " \r C o p
0000360 y r i g h t ( c ) 1 9 8 6
0000400 b y X e r o x C o r p o r a
0000420 t i o n . A l l r i g h t
0000440 s r e s e r v e d . \r " ) \r \r
0000460 ( P R E T T Y C O M P R I N T
0000500 C M L S Y M B O L C O M S ) \r \r
0000520 ( R P A Q Q 006 002 C M L S Y M B
0000540 O L C O M S 006 001 ( ( * ; ;
0000560 " L a t t e r p a r t o f
0000600 t h e s y m b o l f u n c t
0000620 i o n s . T h e r e s t
0000640 a r e i n L L S Y M B O L "
0000660 ) \r
0000700 ( O P T I M I Z
0000720 E R S G E T C L : G E T F
0000740 C L : S Y M B O L - P L I S T )
0000760 \r
0001000 ( S E T F S G E
0001020 T C L : S Y M B O L - P L I S
0001040 T C L : S Y M B O L - V A L U
0001060 E C L : S Y M B O L - F U N C
0001100 T I O N ) \r
0001120 ( P R O
0001140 P F I L E T Y P E C M L S Y
0001160 M B O L ) ) ) \r \r \r \r 006 004 ( *
0001200 ; ; " L a t t e r p a r t
0001220 o f t h e s y m b o l f u
0001240 n c t i o n s . T h e r e
0001260 s t a r e i n L L S Y M B
0001300 O L " ) 006 001 \r \r ( D E F O P T I
0001320 M I Z E R 006 002 G E T 006 001 ( C
0001340 L : S Y M B O L I N D I C A T
0001360 O R & R E S T T A I L ) `
0001400 ( C L : G E T F ( C L : S Y M
0001420 B O L - P L I S T , C L : S Y
0001440 M B O L ) \r
0001460
*
0001540 , I N D I C A T O R \r
0001560
*
0001640 , @ T A I L ) ) \r
0001660 \r ( D E F O P T I M I Z E R 006
0001700 002 C L : G E T F 006 001 ( P L A C
0001720 E I N D I C A T O R & O P T
0001740 I O N A L D E F A U L T ) (
0001760 C O N D \r
0002000
*
0002060 ( D E F A U L T ' I G N O
0002100 R E M A C R O ) \r
0002120
*
0002200 ( T ` ( L I S T G
0002220 E T , P L A C E , I N D I C
0002240 A T O R ) ) ) ) \r \r ( D E F O P
0002260 T I M I Z E R 006 002 C L : S Y M
0002300 B O L - P L I S T 006 001 ( C L :
0002320 S Y M B O L ) ` ( G E T P R O
0002340 P L I S T , C L : S Y M B O L
0002360 ) ) \r \r ( C L : D E F I N E - S
0002400 E T F - M E T H O D 006 002 G E T
0002420 006 001 ( C L : S Y M B O L P R
0002440 O P & O P T I O N A L D E F
0002460 A U L T ) " G e t t u r n s
0002500 i n t o % % p u t . D o n
0002520 ' t p u t i n t h e d e
0002540 f a u l t u n l e s s i t
0002560 r e a l l y i s s u p p l i
0002600 e d a n d \r n o n - n i
0002620 l , s o t h a t w e c a
0002640 n t r a n s f o r m i n t o
0002660 t h e g e t i n s t r u c
0002700 t i o n w h e n e v e r p o
0002720 s s i b l e . " \r ( L E T
0002740 ( ( S Y M B O L - T E M P (
0002760 G E N S Y M ) ) \r
0003000 ( P R O P - T E M P ( G E
0003020 N S Y M ) ) \r
0003040 ( D E F - T E M P ( G E N S Y
0003060 M ) ) \r ( N E
0003100 W V A L ( G E N S Y M ) ) ) \r
0003120 ( C L : V A L U
0003140 E S ` ( , S Y M B O L - T E M
0003160 P , P R O P - T E M P , @ (
0003200 C O N D \r
0003220
*
0003260 ( D E F A U L T
0003300 ` ( , D E F - T E M P ) ) ) ) \r
0003320 `
0003340 ( , C L : S Y M B O L , P R O
0003360 P , @ ( C O N D \r
0003400
*
0003440 ( D E F A U L T ` ( , D E F
0003460 A U L T ) ) ) ) \r
0003500 ( L I S T N E
0003520 W V A L ) \r
0003540 ` ( P U T P R O P ,
0003560 S Y M B O L - T E M P , P R O
0003600 P - T E M P , N E W V A L ) \r
0003620 `
0003640 ( G E T , S Y M B O L - T E M
0003660 P , P R O P - T E M P , @ (
0003700 C O N D \r
0003720
*
0003760 ( D E F A U L T
0004000 ` ( , D E F - T E M P ) ) ) ) )
0004020 ) ) \r \r ( C L : D E F S E T F
0004040 006 002 C L : S Y M B O L - P L I S
0004060 T 006 001 S E T P R O P L I S T )
0004100 \r \r ( C L : D E F S E T F 006 002
0004120 C L : S Y M B O L - V A L U E 006
0004140 001 S E T ) \r \r ( C L : D E F S
0004160 E T F 006 002 C L : S Y M B O L -
0004200 F U N C T I O N 006 001 S E T F -
0004220 S Y M B O L - F U N C T I O N )
0004240 \r \r \r ( P U T P R O P S 006 002 C
0004260 M L S Y M B O L F I L E T Y P
0004300 E 006 001 C L : C O M P I L E - F
0004320 I L E ) \r ( P U T P R O P S C
0004340 M L S Y M B O L C O P Y R I G
0004360 H T ( " X e r o x C o r p o
0004400 r a t i o n " 1 9 8 6 ) ) \r (
0004420 D E C L A R E % : D O N T C O
0004440 P Y \r ( F I L E M A P ( N
0004460 I L ) ) ) \r S T O P \r
0004473