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