$ od -c -N 50000 [eris]<LispCore>SOURCES>CMLLOAD.DCOM!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 " I N T E R L I S P " ) \r (
0000100 F I L E C R E A T E D " 2 8 -
0000120 O c t - 8 6 2 0 : 2 6 : 5 2 "
0000140 ( " c o m p i l e d o n "
0000160 { E R I S } < L I S P C O R E
0000200 > S O U R C E S > C M L L O A D
0000220 . ; 3 ) \r " 2 8 - O c t - 8 6
0000240 1 9 : 5 6 : 4 3 " " C O M P
0000260 I L E - F I L E d " i n " X
0000300 e r o x L i s p 2 1 - O c t
0000320 - 8 6 . . . " d a t e d "
0000340 2 1 - O c t - 8 6 0 4 : 4 8 :
0000360 4 3 " ) \r ( F I L E C R E A T E
0000400 D " 2 4 - O c t - 8 6 1 4 :
0000420 3 6 : 5 5 " { E R I S } < L I
0000440 S P C O R E > S O U R C E S > C
0000460 M L L O A D . ; 3 2 4 4 7 c
0000500 h a n g e s t o % : ( V A R
0000520 S \r C M L L O A D C O M S )
0000540 p r e v i o u s d a t e % :
0000560 " 2 - J u n - 8 6 1 7 : 3 9
0000600 : 2 1 " { E R I S } < L I S P
0000620 C O R E > S O U R C E S > C M L
0000640 L O A D . ; 2 ) \r ( R P A Q Q
0000660 C M L L O A D C O M S ( ( F U
0000700 N C T I O N S C L : L O A D )
0000720 ( V A R I A B L E S * L O A
0000740 D - P R I N T - S T U F F * *
0000760 L O A D - V E R B O S E * ) (
0001000 P R O P F I L E T Y P E \r C
0001020 M L L O A D ) ) ) \r L O A D A 0
0001040 0 0 1 D 1 \r ( N A M E E R R
0001060 O R S E T L ( 0 N I L )
0001100 F 1 F F 2 R E S E T V
0001120 A R S L S T F 3 * L O A D
0001140 - P R I N T - S T U F F * F
0001160 4 * L O A D - V E R B O S E *
0001200 F 5 * R E A D T A B L E *
0001220 F 6 R E S E T Y ) \0 d 001
0001240 006 002 \0 g \0 \0 Q h 032 032 h h 032 032 R 032
0001260 c 004 277 T 237 i o \0 \0 \0 Q \t \0 \0 \b \0
0001300 \0 \f \0 \0 277 Q U \n \0 \0 277 Q \t \0 \0 224
0001320 h c \f i 020 Q \t \0 \0 021 001 \0 H 004 l 004
0001340 360 262 023 S 231 H \t \0 \0 i \n \0 \0 260 026 H
0001360 \t \0 \0 216 S 230 H \t \0 \0 i \n \0 \0 203 H
0001400 \t \0 \0 023 260 301 \0 ( 9 5 C L : E V
0001420 A L 9 0 P R I N T 8 6 C
0001440 L : E V A L 7 9 L A P R D
0001460 7 3 P R I N T 6 9 L A P R
0001500 D 5 3 C L : R E A D 4 3
0001520 E O F P 3 8 S K I P S E P R
0001540 S 3 2 F O R M A T 2 9 D
0001560 A T E 2 6 F U L L N A M E )
0001600 \r ( 2 C L O S E F ) \r ( 2 2
0001620 " ; l o a d i n g ~ A a
0001640 t ~ A ~ & " ) \r C L : L O A
0001660 D D 1 \r ( L ( 0 - a r g s
0001700 - ) P 1 3 R E S E T Y P
0001720 1 2 L I S P X H I S T P
0001740 1 1 F P 1 0 * P A C K A
0001760 G E * P 9 * L O A D - P R
0002000 I N T - S T U F F * P 8 *
0002020 L O A D - V E R B O S E * F
0002040 1 5 * L O A D - V E R B O S E
0002060 * F 1 6 * L O A D - P R I
0002100 N T - S T U F F * F 1 7 R
0002120 E S E T V A R S L S T F 1 8
0002140 * P A C K A G E * F 1 9
0002160 L I S P X H I S T ) \0 252 017 005 002
0002200 \0 e 021 001 \0 k a 021 a \a H l 002 273 272 K
0002220 d J 363 262 P 277 W 036 021 001 \b H l 002 275 274
0002240 M d L 363 262 R 277 W 021 001 \t H l 002 _
0002260 016 277 276 O 016 d N 363 262 Q 277 W $ I \t \0
0002300 \0 265 \t I g \0 \0 \n \0 \0 021 002 \v W & 021
0002320 ! 016 W " o \0 \0 \0 g \0 \0 \n \0 \0 262 ;
0002340 h 260 ; a g \0 \0 360 225 K k 330 a 260 253 K
0002360 l 002 324 [ 260 234 a g \0 \0 360 225 M k 330 a
0002400 260 251 M l 002 324 ] 260 232 a g \0 \0 360 263 255
0002420 O 016 l 002 324 _ 016 260 236 g \0 \0 _ 034 \n \0
0002440 \0 277 O 034 222 \b \0 \0 I 020 \0 ( 1 6 6
0002460 E R R O R ! 1 5 9 R E S E T
0002500 R E S T O R E 9 2 L O A D A
0002520 0 0 0 1 7 2 O P E N S T R E
0002540 A M 6 3 S T R E A M P ) \r (
0002560 1 5 4 E R R O R 1 3 9 : I
0002600 F - D O E S - N O T - E X I S T
0002620 1 2 0 : P R I N T 1 0 1
0002640 : V E R B O S E 8 9 I N T E
0002660 R N A L 6 9 I N P U T ) \r (
0002700 8 6 ( L O A D A 0 0 0 1 ) )
0002720 \r ( L E T * ( ( A 0 0 8 6 (
0002740 Q U O T E C L : L O A D ) )
0002760 ( A 0 0 8 7 ( Q U O T E C L
0003000 : F U N C T I O N ) ) ( A 0 0
0003020 8 8 \r " L o a d s t h e f
0003040 i l e n a m e d b y F i l
0003060 e n a m e i n t o t h e L
0003100 i s p e n v i r o n m e n t .
0003120 " ) ) ( P R O G N ( C O N D
0003140 ( ( C L : F B O U N D P ( Q
0003160 U O T E \r S E T - D O C U M E
0003200 N T A T I O N ) ) ( S E T - D
0003220 O C U M E N T A T I O N A 0 0
0003240 8 6 A 0 0 8 7 A 0 0 8 8 ) )
0003260 ) A 0 0 8 8 ) ) \r ( C L : P R
0003300 O C L A I M ( Q U O T E ( C
0003320 L : S P E C I A L * L O A D -
0003340 P R I N T - S T U F F * ) ) ) \r
0003360 ( O R ( B O U N D P ( Q U O
0003400 T E * L O A D - P R I N T - S
0003420 T U F F * ) ) ( S E T Q * L
0003440 O A D - P R I N T - S T U F F *
0003460 N I L ) ) \r ( L E T * ( ( A
0003500 0 0 8 9 ( Q U O T E * L O A
0003520 D - P R I N T - S T U F F * ) )
0003540 ( A 0 0 9 0 ( Q U O T E V
0003560 A R I A B L E ) ) ( A 0 0 9 1
0003600 \r " D e f a u l t v a l u e
0003620 f o r : P R I N T k e y w
0003640 o r d t o L O A D " ) ) (
0003660 P R O G N ( C O N D ( ( C L
0003700 : F B O U N D P ( Q U O T E
0003720 S E T - D O C U M E N T A T I O
0003740 N ) ) ( \r S E T - D O C U M E
0003760 N T A T I O N A 0 0 8 9 A 0
0004000 0 9 0 A 0 0 9 1 ) ) ) A 0 0
0004020 9 1 ) ) \r ( C L : P R O C L A I
0004040 M ( Q U O T E ( C L : S P E
0004060 C I A L * L O A D - V E R B O
0004100 S E * ) ) ) \r ( O R ( B O U N
0004120 D P ( Q U O T E * L O A D -
0004140 V E R B O S E * ) ) ( S E T Q
0004160 * L O A D - V E R B O S E *
0004200 N I L ) ) \r ( L E T * ( ( A 0
0004220 0 9 2 ( Q U O T E * L O A D
0004240 - V E R B O S E * ) ) ( A 0 0
0004260 9 3 ( Q U O T E V A R I A B
0004300 L E ) ) ( A 0 0 9 4 \r " D e
0004320 f a u l t f o r V E R B O S
0004340 E k e y w o r d t o L O A
0004360 D . " ) ) ( P R O G N ( C O
0004400 N D ( ( C L : F B O U N D P
0004420 ( Q U O T E S E T - D O C U M
0004440 E N T A T I O N ) ) ( \r S E T
0004460 - D O C U M E N T A T I O N A
0004500 0 0 9 2 A 0 0 9 3 A 0 0 9 4
0004520 ) ) ) A 0 0 9 4 ) ) \r ( P U T
0004540 P R O P S C M L L O A D F I
0004560 L E T Y P E C L : C O M P I L
0004600 E - F I L E ) \r ( P U T P R O P
0004620 S C M L L O A D C O P Y R I
0004640 G H T ( " X e r o x C o r p
0004660 o r a t i o n " 1 9 8 6 ) ) \r
0004700 N I L \r
0004704