$ 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