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