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