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