$ od -c -N 50000 [eris]<LispCore>SOURCES>CMLMISCIO!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 006
0000100 001 ( F I L E C R E A T E D " 2
0000120 3 - O c t - 8 6 1 5 : 2 5 : 3
0000140 2 " 006 004 { E R I S } < L I S P
0000160 C O R E > S O U R C E S > C M L
0000200 M I S C I O . ; 2 006 001 3 2 5 7
0000220 \r \r p r e v i
0000240 o u s d a t e % : " 2 7 - A
0000260 u g - 8 6 1 6 : 1 8 : 1 5 "
0000300 { E R I S } < L I S P C O R E >
0000320 S O U R C E S > C M L M I S C I
0000340 O . ; 1 ) \r \r \r ( * " \r C o p
0000360 y r i g h t ( c ) 1 9 8 6
0000400 b y X e r o x C o r p o r a
0000420 t i o n . A l l r i g h t
0000440 s r e s e r v e d . \r " ) \r \r
0000460 ( P R E T T Y C O M P R I N T
0000500 C M L M I S C I O C O M S ) \r \r
0000520 ( R P A Q Q 006 002 C M L M I S C
0000540 I O C O M S 006 001 ( ( F N S C
0000560 L : F R E S H - L I N E C L :
0000600 W R I T E - S T R I N G W R I
0000620 T E - S T R I N G * C L : Y -
0000640 O R - N - P C L : Y E S - O R
0000660 - N O - P ) \r
0000700 ( D E
0000720 C L A R E % : D O N T E V A L
0000740 @ L O A D D O E V A L @ C O M
0000760 P I L E D O N T C O P Y C O
0001000 M P I L E R V A R S \r
0001020
0001040 ( A D D V A R S
0001060 ( N L A M A ) \r
0001100
0001120 ( N L
0001140 A M L ) \r
0001160
0001200 ( L A M A C
0001220 L : Y E S - O R - N O - P C L
0001240 : Y - O R - N - P W R I T E -
0001260 S T R I N G * C L : W R I T E
0001300 - S T R I N G \r
0001320
*
0001360 C L : F R E S H - L I N E
0001400 ) ) ) ) ) \r ( D E F I N E Q \r \r
0001420 ( 006 004 C L : F R E S H - L I N E
0001440 006 001 \r ( C L : L A M B D A
0001460 ( & O P T I O N A L ( O U T P
0001500 U T - S T R E A M C L : * S T
0001520 A N D A R D - O U T P U T * ) )
0001540 006 006 006 001 006 006 ( * a m d " 5
0001560 - M a y - 8 6 1 9 : 2 0 " ) 006
0001600 001 \r ( C L : U
0001620 N L E S S ( Z E R O P ( P O
0001640 S I T I O N O U T P U T - S T
0001660 R E A M ) ) \r
0001700 ( T E R P R I O
0001720 U T P U T - S T R E A M ) ) ) )
0001740 \r \r ( 006 004 C L : W R I T E - S T
0001760 R I N G 006 001 \r ( C L : L A M
0002000 B D A ( S T R I N G & O P T
0002020 I O N A L ( S T R E A M C L
0002040 : * S T A N D A R D - O U T P U
0002060 T * ) \r
0002100 & K E Y \r
0002120
0002140 ( S T A R T 0 ) \r
0002160 (
0002200 E N D ( C L : L E N G T H S
0002220 T R I N G ) ) ) 006 006 006 001
0002240 006 006 ( *
0002260 a m d " 2 - M a y - 8 6
0002300 1 4 : 0 6 " ) 006 001 \r
0002320 ( 006 002 W R I T E - S T R I
0002340 N G * 006 001 S T R I N G S T R
0002360 E A M S T A R T E N D ) ) )
0002400 \r \r ( 006 004 W R I T E - S T R I N
0002420 G * 006 001 \r ( C L : L A M B D
0002440 A ( S T R I N G & O P T I O
0002460 N A L ( S T R E A M C L : *
0002500 S T A N D A R D - O U T P U T *
0002520 ) \r
0002540 ( S T A R T 0 ) \r
0002560
0002600 ( E N D ( C L : L E N
0002620 G T H S T R I N G ) ) ) 006 006 006
0002640 001
0002660 006 006 ( * j r b % : " 3 0 -
0002700 J u n - 8 6 2 1 : 2 2 " ) 006 001
0002720 \r \r
0002740 006 006 ( * * " T h
0002760 i s u s e d t o b l o w
0003000 u p w h e n f e d a n u
0003020 l l s t r i n g " ) 006 001 \r \r
0003040 ( P R I N 3 (
0003060 C L : I F ( A N D ( C L : E
0003100 Q U A L S T R I N G " " ) \r
0003120
0003140 ( C L :
0003160 Z E R O P S T A R T ) \r
0003200
0003220 ( C L : Z E R
0003240 O P E N D ) ) \r
0003260
0003300 " " \r
0003320 ( C L : S U
0003340 B S E Q S T R I N G S T A R
0003360 T E N D ) ) \r
0003400 S T R E A M ) )
0003420 ) \r \r ( 006 004 C L : Y - O R - N -
0003440 P 006 001 \r ( C L : L A M B D A
0003460 ( & O P T I O N A L F O R M
0003500 A T - S T R I N G & R E S T
0003520 A R G U M E N T S ) 006 006 006 001
0003540 006 006 ( * r a f "
0003560 3 - F e b - 8 6 1 2 : 0 2 " )
0003600 006 001 \r ( C O N
0003620 D \r ( F
0003640 O R M A T - S T R I N G ( 006 002
0003660 C L : F R E S H - L I N E 006 001 )
0003700 \r
0003720 ( C L : A P P L Y ( F
0003740 U N C T I O N F O R M A T ) \r
0003760
0004000 C L : * Q U
0004020 E R Y - I O * F O R M A T - S
0004040 T R I N G A R G U M E N T S )
0004060 ) ) \r ( M E M
0004100 Q ( R E A D C L : * Q U E R
0004120 Y - I O * ) \r
0004140 ' ( Y Y E S ) ) )
0004160 ) \r \r ( 006 004 C L : Y E S - O R -
0004200 N O - P 006 001 \r ( C L : L A M
0004220 B D A ( & O P T I O N A L F
0004240 O R M A T - S T R I N G & R E
0004260 S T A R G U M E N T S ) 006 006 006
0004300 001 006 006 ( * k b r
0004320 % : " 2 - J u l - 8 6 1 7
0004340 : 4 3 " ) 006 001 \r
0004360 ( C L : W H E N F O R M A T
0004400 - S T R I N G ( 006 002 C L : F R
0004420 E S H - L I N E 006 001 C L : * Q
0004440 U E R Y - I O * ) \r
0004460 ( C L : A P
0004500 P L Y # ' F O R M A T C L :
0004520 * Q U E R Y - I O * F O R M A
0004540 T - S T R I N G A R G U M E N
0004560 T S ) ) \r ( C
0004600 L : D O ( ( A N S ( C L : R
0004620 E A D - L I N E C L : * Q U E
0004640 R Y - I O * ) \r
0004660 ( C
0004700 L : R E A D - L I N E C L : *
0004720 Q U E R Y - I O * ) ) ) \r
0004740 ( N I
0004760 L ) \r
0005000 ( C O N D \r
0005020 ( ( S T
0005040 R I N G - E Q U A L A N S "
0005060 Y E S " ) \r
0005100 ( R E T U R
0005120 N T ) ) \r
0005140 ( ( S T R I N
0005160 G - E Q U A L A N S " N O "
0005200 ) \r
0005220 ( R E T U R N N I
0005240 L ) ) \r
0005260 ( T ( C L : W R
0005300 I T E - L I N E " T y p e Y
0005320 E S f o r y e s o r N O
0005340 f o r n o . " C L : * Q
0005360 U E R Y - I O * ) \r
0005400
0005420 ( C L : W H E N F O R M A T -
0005440 S T R I N G ( C L : A P P L Y
0005460 # ' F O R M A T C L : * Q U
0005500 E R Y - I O * F O R M A T - S
0005520 T R I N G A R G U M E N T S \r
0005540
*
0005620 ) ) ) ) ) ) ) \r ) \r ( D
0005640 E C L A R E % : D O N T E V A
0005660 L @ L O A D D O E V A L @ C O
0005700 M P I L E D O N T C O P Y C
0005720 O M P I L E R V A R S \r \r ( A
0005740 D D T O V A R 006 002 N L A M A 006
0005760 001 ) \r \r ( A D D T O V A R 006
0006000 002 N L A M L 006 001 ) \r \r ( A D D
0006020 T O V A R 006 002 L A M A 006 001 C
0006040 L : Y E S - O R - N O - P C L
0006060 : Y - O R - N - P W R I T E -
0006100 S T R I N G * C L : W R I T E
0006120 - S T R I N G C L : F R E S H
0006140 - L I N E ) \r ) \r ( P U T P R O
0006160 P S C M L M I S C I O C O P
0006200 Y R I G H T ( " X e r o x C
0006220 o r p o r a t i o n " 1 9 8 6
0006240 ) ) \r ( D E C L A R E % : D O
0006260 N T C O P Y \r ( F I L E M A
0006300 P ( N I L ( 7 7 4 2 9 7 3
0006320 ( C L : F R E S H - L I N E
0006340 7 8 4 . 9 9 2 ) ( C L : W
0006360 R I T E - S T R I N G 9 9 4
0006400 . 1 2 8 0 ) ( W R I T E - S
0006420 T R I N G * 1 2 8 2 . \r 1
0006440 8 0 9 ) ( C L : Y - O R - N -
0006460 P 1 8 1 1 . 2 1 6 1 ) (
0006500 C L : Y E S - O R - N O - P 2
0006520 1 6 3 . 2 9 7 1 ) ) ) ) ) \r
0006540 S T O P \r
0006545