$ od -c -N 50000 [eris]<LispCore>SOURCES>CMLMISCIO.DCOM!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 " I N T E R L I S P " ) \r (
0000100 F I L E C R E A T E D " 2 3 -
0000120 O c t - 8 6 1 5 : 2 6 : 2 0 "
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 M I S C
0000220 I O . ; 2 ) \r " 2 1 - O c t -
0000240 8 6 0 4 : 1 3 : 0 1 " " C O
0000260 M P I L E - F I L E d " i n
0000300 " X e r o x L i s p 2 1 - O
0000320 c t - 8 6 . . . " d a t e d
0000340 " 2 1 - O c t - 8 6 0 4 : 4
0000360 8 : 4 3 " ) \r ( F I L E C R E A
0000400 T E D " 2 3 - O c t - 8 6 1
0000420 5 : 2 5 : 3 2 " { E R I S } <
0000440 L I S P C O R E > S O U R C E S
0000460 > C M L M I S C I O . ; 2 3 2
0000500 5 7 p r e v i o u s d a t e
0000520 % : \r " 2 7 - A u g - 8 6 1
0000540 6 : 1 8 : 1 5 " { E R I S } <
0000560 L I S P C O R E > S O U R C E S
0000600 > C M L M I S C I O . ; 1 ) \r (
0000620 R P A Q Q C M L M I S C I O C
0000640 O M S ( ( F N S C L : F R E
0000660 S H - L I N E C L : W R I T E
0000700 - S T R I N G W R I T E - S T
0000720 R I N G * C L : Y - O R - N -
0000740 P C L : Y E S - O R - N O - P
0000760 ) ( \r D E C L A R E % : D O
0001000 N T E V A L @ L O A D D O E V
0001020 A L @ C O M P I L E D O N T C
0001040 O P Y C O M P I L E R V A R S
0001060 ( A D D V A R S ( N L A M A
0001100 ) ( N L A M L ) ( L A M A
0001120 \r C L : Y E S - O R - N O - P
0001140 C L : Y - O R - N - P W R I T
0001160 E - S T R I N G * C L : W R I
0001200 T E - S T R I N G C L : F R E
0001220 S H - L I N E ) ) ) ) ) \r C L :
0001240 F R E S H - L I N E D 1 \r ( L
0001260 ( 0 - a r g s - ) F 3
0001300 C L : * S T A N D A R D - O U T
0001320 P U T * ) \0 ( 003 001 002 \0 e 021 001 \0
0001340 k H 361 221 S 201 k a 021 021 002 I \t \0 \0 Z
0001360 j 360 255 J 005 003 224 J \t \0 \0 244 I \t \0 \0
0001400 020 h 020 \0 ( 3 5 T E R P R I 3
0001420 0 \ F Z E R O P 1 8 P O S
0001440 I T I O N ) \r N I L \r ( ) \r C L
0001460 : W R I T E - S T R I N G D 1
0001500 \r ( L ( 0 - a r g s - ) F
0001520 9 C L : * S T A N D A R D -
0001540 O U T P U T * ) \0 l \t 001 002 \0 e
0001560 021 001 \0 k a 021 q \b l 002 H 361 222 W 022 202
0001600 l 002 a 272 H l 003 274 273 L d K 363 262 $ 277
0001620 j 275 H l 003 _ 016 277 276 O 016 d N 363 262 &
0001640 277 I \t \0 \0 _ 020 277 I J M O 020 \f \0 \0
0001660 020 a g \0 \0 360 225 L k 330 a 260 326 L l 002
0001700 324 \ 260 310 a g \0 \0 360 226 O 016 k 330 a 260
0001720 326 O 016 l 002 324 _ 016 260 303 \0 ( 6 4 W
0001740 R I T E - S T R I N G * 5 3
0001760 C L : L E N G T H ) \r ( 8 8 :
0002000 E N D 6 9 : S T A R T ) \r (
0002020 ) \r W R I T E - S T R I N G *
0002040 D 1 \r ( L ( 0 - a r g s - )
0002060 F 5 C L : * S T A N D A R
0002100 D - O U T P U T * ) \0 T 005 001 002
0002120 \0 e 021 001 \0 k a 021 1 004 l 002 H 361 221 U
0002140 202 l 002 a 272 l 003 H 361 221 j 202 l 003 a 273
0002160 l 004 H 361 224 I \t \0 \0 202 l 004 a 274 I d
0002200 o \0 \0 \0 \n \0 \0 262 023 277 K \t \0 \0 231 L
0002220 \t \0 \0 224 o \0 \0 \0 205 I K L \v \0 \0 J
0002240 \n \0 \0 020 \0 ( 8 1 P R I N 3 7
0002260 7 C L : S U B S E Q 6 5 C
0002300 L : Z E R O P 6 0 C L : Z E
0002320 R O P 5 3 C L : E Q U A L
0002340 3 9 C L : L E N G T H ) \r N I
0002360 L \r ( 7 0 " " 5 0 " " )
0002400 \r C L : Y - O R - N - P D 1 \r
0002420 ( L ( 0 - a r g s - ) F
0002440 1 0 C L : * Q U E R Y - I O *
0002460 ) \0 { \n 001 002 \0 e 021 001 \0 k H 361 221
0002500 h 201 k a 021 1 004 H l 002 021 2 \t N d M
0002520 363 262 033 277 O 016 022 272 I 262 L \b \0 \0 277 g
0002540 \0 \0 l 002 274 273 W 024 I J 260 5 a _ 022 277
0002560 O 020 265 021 O 022 h 032 _ 020 _ 016 277 N k 324
0002600 ^ 260 315 O 022 & _ 020 277 260 364 d 001 375 002 L
0002620 k 330 \ n 002 \0 361 226 h l 4 \n \0 \0 277 265
0002640 354 L K 016 277 W 024 \t \0 \0 o \0 \0 \0 \n \0
0002660 \0 020 \0 ( 1 2 0 M E M Q 1 1 3
0002700 R E A D 1 0 1 \ L I S P E
0002720 R R O R 3 7 C L : F R E S H
0002740 - L I N E ) \r ( 4 1 F O R M A
0002760 T ) \r ( 1 1 7 ( Y Y E S )
0003000 ) \r C L : Y E S - O R - N O - P
0003020 D 1 \r ( L ( 0 - a r g s -
0003040 ) F 1 2 C L : * Q U E R Y
0003060 - I O * ) \0 302 \f 001 002 \0 e 021 001 \0
0003100 k H 361 221 h 201 k a 021 Q 006 H l 002 021 2
0003120 \v O 020 d O 016 363 262 035 277 O 022 022 272 I 262
0003140 P W 030 \t \0 \0 277 g \0 \0 l 002 274 273 W 030
0003160 I J 260 7 a _ 026 277 O 024 265 023 O 026 h 032
0003200 _ 024 _ 022 277 O 020 k 324 _ 020 260 310 O 026 &
0003220 _ 024 277 260 362 d 001 375 002 L k 330 \ n 002 \0
0003240 361 226 h l 4 \n \0 \0 277 265 354 L K 016 277 W
0003260 030 \t \0 \0 d o \0 \0 \0 \n \0 \0 221 i 020 o
0003300 \0 \0 \0 \n \0 \0 221 h 020 o \0 \0 \0 W 030 \n
0003320 \0 \0 277 I 262 333 g \0 \0 l 002 276 275 W 030 I
0003340 J 260 026 d 001 375 002 N k 330 ^ n 002 \0 361 226
0003360 h l 4 \n \0 \0 277 265 354 N M 260 262 \0 ( 1
0003400 8 5 \ L I S P E R R O R 1 4
0003420 9 C L : W R I T E - L I N E
0003440 1 3 7 S T R I N G - E Q U A L
0003460 1 2 7 S T R I N G - E Q U A
0003500 L 1 1 9 C L : R E A D - L I
0003520 N E 1 0 7 \ L I S P E R R O
0003540 R 4 1 C L : F R E S H - L I
0003560 N E ) \r ( 1 5 6 F O R M A T
0003600 4 5 F O R M A T ) \r ( 1 4 4
0003620 " T y p e Y E S f o r y
0003640 e s o r N O f o r n o .
0003660 " 1 3 4 " N O " 1 2 4
0003700 " Y E S " ) \r ( P U T P R O P S
0003720 C M L M I S C I O C O P Y R
0003740 I G H T ( " X e r o x C o r
0003760 p o r a t i o n " 1 9 8 6 ) )
0004000 \r N I L \r
0004005