$ od -c -N 50000 [eris]<LispCore>LIBRARY>CMLPRINT.DCOM!22
0000000 ( F I L E C R E A T E D " 2 5
0000020 - J u n - 8 6 1 6 : 0 3 : 0 9
0000040 " ( " c o m p i l e d o n
0000060 " { E R I S } < L I S P C O R
0000100 E > L I B R A R Y > C M L P R I
0000120 N T . ; 2 2 ) \r " 2 0 - J u n
0000140 - 8 6 1 8 : 1 8 : 4 2 " " C
0000160 O M P I L E - F I L E d " i n
0000200 " X e r o x L i s p 2 0 -
0000220 J u n - 8 6 . . . " d a t e
0000240 d " 2 0 - J u n - 8 6 1 8 :
0000260 3 5 : 1 1 " ) \r ( F I L E C R E
0000300 A T E D " 2 5 - J u n - 8 6
0000320 1 6 : 0 2 : 3 8 " { E R I S }
0000340 < L I S P C O R E > L I B R A R
0000360 Y > C M L P R I N T . ; 2 2 8
0000400 9 0 0 c h a n g e s t o :
0000420 ( V A R S \r C M L P R I N T C
0000440 O M S ) ( F U N C T I O N S
0000460 W R I T E - L I N E ) p r e v
0000500 i o u s d a t e : " 1 7 - J
0000520 u n - 8 6 1 4 : 3 2 : 0 0 "
0000540 \r { E R I S } < L I S P C O R E
0000560 > L I B R A R Y > C M L P R I N
0000600 T . ; 2 1 ) \r ( R P A Q Q C M
0000620 L P R I N T C O M S ( ( F N S
0000640 W R I T E \ W R I T E 1 W
0000660 R I T E - C H A R C L : P R I
0000700 N 1 C L : P R I N T C L : T
0000720 E R P R I F R E S H - L I N E
0000740 \r F I N I S H - O U T P U T
0000760 F O R C E - O U T P U T C L E
0001000 A R - O U T P U T P P R I N T
0001020 P R I N C ) ( F N S W R I
0001040 T E - T O - S T R I N G P R I
0001060 N 1 - T O - S T R I N G \r P R
0001100 I N C - T O - S T R I N G ) (
0001120 F U N C T I O N S W R I T E -
0001140 L I N E ) ( * W R I T E - S
0001160 T R I N G i s i n C M L S
0001200 T R E A M S ) ( I N I T V A R
0001220 S ( * P R I N T - S T R U C T
0001240 U R E * \r ) ) ( D E C L A R E
0001260 : D O N T E V A L @ L O A D
0001300 D O E V A L @ C O M P I L E D
0001320 O N T C O P Y C O M P I L E R
0001340 V A R S ( A D D V A R S ( N
0001360 L A M A ) ( N L A M L ) ( L
0001400 A M A \r W R I T E - T O - S T
0001420 R I N G P R I N C P P R I N
0001440 T C L : P R I N T C L : P R
0001460 I N 1 W R I T E - C H A R \
0001500 W R I T E 1 W R I T E ) ) ) )
0001520 ) \r W R I T E D 1 \r ( L ( 0
0001540 - a r g s - ) P 4 4 Q T
0001560 H E R E - A R E - C I R C L E S
0001600 P 4 3 Q * P R I N T - C I
0001620 R C L E - H A S H T A B L E *
0001640 P 4 2 Q * P R I N T - C I R
0001660 C L E - N U M B E R * P 4 1
0001700 Q * P R I N T - C I R C L E *
0001720 P 4 0 Q * P R I N T - P R
0001740 E T T Y * P 3 7 Q * P R I
0001760 N T - G E N S Y M * P 3 6 Q
0002000 * P R I N T - C A S E * P
0002020 3 5 Q * P R I N T - L E N G T
0002040 H * P 3 4 Q * P R I N T -
0002060 L E V E L * P 3 3 Q * P R
0002100 I N T - B A S E * P 3 2 Q
0002120 * P R I N T - R A D I X * P
0002140 3 1 Q * P R I N T - E S C A P
0002160 E * F 4 5 Q * S T A N D A
0002200 R D - O U T P U T * F 4 6 Q
0002220 * P R I N T - E S C A P E *
0002240 F 4 7 Q * P R I N T - R A D
0002260 I X * F 5 0 Q * P R I N T
0002300 - P R E T T Y * F 5 1 Q *
0002320 P R I N T - B A S E * F 5 2
0002340 Q * P R I N T - L E V E L *
0002360 F 5 3 Q * P R I N T - C I R
0002400 C L E * F 5 4 Q * P R I N
0002420 T - L E N G T H * F 5 5 Q
0002440 * P R I N T - C A S E * F 5
0002460 6 Q * P R I N T - G E N S Y M
0002500 * F 5 7 Q * P R I N T - C
0002520 I R C L E - H A S H T A B L E *
0002540 ) 002 6 % \v 002 \0 e 021 001 \0 k a 021 361
0002560 020 021 200 030 H l 002 273 272 K d J 363 242 261 001
0002600 006 277 W J 274 H l 002 276 275 N d M 363 242 261
0002620 001 \n 277 W L 021 001 031 H l 002 _ 020 277 _ 016
0002640 277 O 020 d O 016 363 242 261 001 006 277 W N 021 001
0002660 032 H l 002 _ 024 277 _ 022 277 O 024 d O 022 363
0002700 242 261 001 005 277 W R 021 001 033 H l 002 _ 030 277
0002720 _ 026 277 O 030 d O 026 363 242 261 001 004 277 W T
0002740 021 001 034 H l 002 _ 034 277 _ 032 277 O 034 d O
0002760 032 363 242 261 001 003 277 W X 021 001 035 H l 002 _
0003000 277 _ 036 277 O d O 036 363 242 261 001 002 277
0003020 W Z 021 001 036 H l 002 _ $ 277 _ " 277 O $
0003040 d O " 363 242 261 001 001 277 W \ 021 001 037 H l
0003060 002 _ ( 277 _ & 277 O ( d O & 363 242 261 001
0003100 \0 277 H l 002 _ , 277 _ * 277 O , d O *
0003120 363 242 261 \0 377 277 W P 021 001 H l 002 _ 0
0003140 277 _ . 277 O 0 d O . 363 242 261 \0 376 277 W
0003160 V 021 001 ! O B 225 W ^ 242 261 001 \a I L \n
0003200 \0 \0 I 020 a g \0 \0 360 226 K k 330 a 261 376
0003220 366 K l 002 324 [ 261 376 344 a g \0 \0 360 226 N
0003240 k 330 a 261 376 362 N l 002 324 ^ 261 376 340 a g
0003260 \0 \0 360 227 O 020 k 330 a 261 376 365 O 020 l 002
0003300 324 _ 020 261 376 340 a g \0 \0 360 227 O 024 k 330
0003320 a 261 376 366 O 024 l 002 324 _ 024 261 376 341 a g
0003340 \0 \0 360 227 O 030 k 330 a 261 376 367 O 030 l 002
0003360 324 _ 030 261 376 342 a g \0 \0 360 227 O 034 k 330
0003400 a 261 376 370 O 034 l 002 324 _ 034 261 376 343 a g
0003420 \0 \0 360 227 O k 330 a 261 376 371 O l 002
0003440 324 _ 261 376 344 a g \0 \0 360 227 O $ k 330
0003460 a 261 376 372 O $ l 002 324 _ $ 261 376 345 a g
0003500 \0 \0 360 222 261 376 376 O ( l 002 324 _ ( 261 376
0003520 353 a g \0 \0 360 227 O , k 330 a 261 376 374 O
0003540 , l 002 324 _ , 261 376 347 a g \0 \0 360 227 O
0003560 0 k 330 a 261 376 375 O 0 l 002 324 _ 0 261 376
0003600 350 k \b \0 \0 021 022 $ I \t \0 \0 277 O H 243
0003620 h _ F 277 I L \n \0 \0 023 261 376 350 \0 ( 1
0003640 0 6 0 Q \ W R I T E 1 1 0 4
0003660 3 Q P R I N T - C I R C L E -
0003700 S C A N 1 0 3 4 Q M A K E -
0003720 H A S H - T A B L E 4 3 1 Q
0003740 \ W R I T E 1 ) \r ( 1 0 0 4 Q
0003760 : C I R C L E 7 5 4 Q : P R
0004000 E T T Y 7 3 1 Q : A R R A Y
0004020 7 0 1 Q : G E N S Y M 6 5
0004040 1 Q : C A S E 6 2 1 Q : L
0004060 E N G T H 5 7 1 Q : L E V E
0004100 L 5 4 1 Q : B A S E 5 1 1
0004120 Q : R A D I X 4 6 4 Q : E
0004140 S C A P E 4 3 7 Q : S T R E
0004160 A M ) \r ( ) \r \ W R I T E 1 D
0004200 1 \r ( L ( 1 S T R E A M 0
0004220 O B J E C T ) P 0 \ T H
0004240 I S F I L E L I N E L E N G T H
0004260 F 1 * P R I N T - P R E T
0004300 T Y * ) \0 036 001 001 \0 002 Q 232 @ h d
0004320 d d A \r 006 \0 \0 020 021 020 \0 @ A g \0 \0
0004340 \n \0 \0 j \v \0 \0 020 \0 ( 3 3 Q \ P
0004360 R I N D A T U M 2 7 Q \ G E
0004400 T S T R E A M 1 3 Q P R I N
0004420 T D E F ) \r ( 2 4 Q O U T P U
0004440 T ) \r ( ) \r W R I T E - C H A R
0004460 D 1 \r ( L ( 0 - a r g s -
0004500 ) F 2 * S T A N D A R D -
0004520 O U T P U T * ) \0 # 002 001 002 \0 e
0004540 021 001 \0 k a 021 001 001 l 002 H 361 221 R 202 l
0004560 002 a g \0 \0 \n \0 \0 I \t \0 \0 \n \0 \0 I
0004600 020 \0 ( 3 7 Q \ O U T C H A R
0004620 3 4 Q C H A R - I N T 3 0 Q
0004640 \ G E T S T R E A M ) \r ( 2 5
0004660 Q O U T P U T ) \r ( ) \r C L :
0004700 P R I N 1 D 1 \r ( L ( 0 -
0004720 a r g s - ) F 3 * S T A N
0004740 D A R D - O U T P U T * ) \0 #
0004760 003 001 002 \0 e 021 001 \0 k a 021 021 002 l 002 H
0005000 361 221 S 202 l 002 a 272 I g \0 \0 J g \0 \0
0005020 i \r 005 \0 \0 020 \0 ( 4 0 Q W R I T
0005040 E ) \r ( 3 3 Q : E S C A P E
0005060 2 7 Q : S T R E A M ) \r ( ) \r
0005100 C L : P R I N T D 1 \r ( L (
0005120 0 - a r g s - ) F 3 * S
0005140 T A N D A R D - O U T P U T * )
0005160 \0 $ 003 001 002 \0 e 021 001 \0 k a 021 021 002
0005200 l 002 H 361 221 S 202 l 002 a Z \t \0 \0 I J
0005220 \n \0 \0 k J \n \0 \0 277 020 \0 ( 4 0 Q
0005240 S P A C E S 3 3 Q C L : P R
0005260 I N 1 2 6 Q T E R P R I ) \r
0005300 N I L \r ( ) \r C L : T E R P R I
0005320 D 1 \r ( I 0 O U T P U T -
0005340 S T R E A M F 0 * S T A N
0005360 D A R D - O U T P U T * ) \0 \t
0005400 \0 001 \0 001 @ 265 003 P \t \0 \0 020 \0 ( 6
0005420 T E R P R I ) \r N I L \r ( ) \r F
0005440 R E S H - L I N E D 1 \r ( I
0005460 0 O U T P U T - S T R E A M
0005500 F 0 * S T A N D A R D - O U
0005520 T P U T * ) \0 \t \0 001 \0 001 @ 265 003
0005540 P \t \0 \0 020 \0 ( 6 F R E S H L I
0005560 N E ) \r N I L \r ( ) \r F I N I S
0005600 H - O U T P U T D 1 \r ( I 0
0005620 O U T P U T - S T R E A M F
0005640 0 * S T A N D A R D - O U T
0005660 P U T * ) \0 \v \0 001 \0 001 @ 265 003 P
0005700 i \n \0 \0 h 020 \0 ( 7 F O R C E O
0005720 U T P U T ) \r N I L \r ( ) \r F O
0005740 R C E - O U T P U T D 1 \r ( I
0005760 0 O U T P U T - S T R E A M
0006000 F 0 * S T A N D A R D - O
0006020 U T P U T * ) \0 \n \0 001 \0 001 @ 265
0006040 003 P \t \0 \0 h 020 \0 ( 6 F O R C E
0006060 O U T P U T ) \r N I L \r ( ) \r C
0006100 L E A R - O U T P U T D 1 \r (
0006120 L ( 0 O U T P U T - S T R E
0006140 A M ) ) \0 003 \0 \0 \0 001 h 020 \0 N I
0006160 L \r N I L \r ( ) \r P P R I N T
0006200 D 1 \r ( L ( 0 - a r g s - )
0006220 F 3 * S T A N D A R D - O
0006240 U T P U T * ) \0 - 003 001 002 \0 e 021
0006260 001 \0 k a 021 021 002 l 002 H 361 221 S 202 l 002
0006300 a Z \t \0 \0 I g \0 \0 J g \0 \0 i g \0
0006320 \0 i \r \a \0 \0 \b \0 \0 020 \0 ( 5 2 Q
0006340 V A L U E S 4 7 Q W R I T E
0006360 2 6 Q T E R P R I ) \r ( 4 2
0006400 Q : P R E T T Y 3 6 Q : E
0006420 S C A P E 3 2 Q : S T R E A
0006440 M ) \r ( ) \r P R I N C D 1 \r (
0006460 L ( 0 - a r g s - ) F 3
0006500 * S T A N D A R D - O U T P U
0006520 T * ) \0 # 003 001 002 \0 e 021 001 \0 k a
0006540 021 021 002 l 002 H 361 221 S 202 l 002 a 272 I g
0006560 \0 \0 J g \0 \0 h \r 005 \0 \0 020 \0 ( 4 0
0006600 Q W R I T E ) \r ( 3 3 Q : E
0006620 S C A P E 2 7 Q : S T R E A
0006640 M ) \r ( ) \r W R I T E - T O - S
0006660 T R I N G D 1 \r ( L ( 0 -
0006700 a r g s - ) P 3 6 Q * P R
0006720 I N T - G E N S Y M * P 3 5
0006740 Q * P R I N T - C A S E * P
0006760 3 4 Q * P R I N T - L E N G
0007000 T H * P 3 3 Q * P R I N T
0007020 - L E V E L * P 3 2 Q * P
0007040 R I N T - P R E T T Y * P 3
0007060 1 Q * P R I N T - C I R C L E
0007100 * P 3 0 Q * P R I N T - B
0007120 A S E * P 2 7 Q * P R I N
0007140 T - R A D I X * P 2 6 Q *
0007160 P R I N T - E S C A P E * F
0007200 3 7 Q * P R I N T - E S C A P
0007220 E * F 4 0 Q * P R I N T -
0007240 R A D I X * F 4 1 Q * P R
0007260 I N T - B A S E * F 4 2 Q
0007300 * P R I N T - L E N G T H * F
0007320 4 3 Q * P R I N T - C I R C
0007340 L E * F 4 4 Q * P R I N T
0007360 - C A S E * F 4 5 Q * P R
0007400 I N T - P R E T T Y * F 4 6
0007420 Q * P R I N T - L E V E L *
0007440 F 4 7 Q * P R I N T - G E N
0007460 S Y M * ) 001 335 037 \t 002 \0 e 021 001 \0
0007500 k a 021 361 020 021 P 025 H l 002 273 272 K d J
0007520 363 242 261 \0 341 277 W > 021 001 026 H l 002 275 274
0007540 M d L 363 242 261 \0 343 277 W @ 021 001 027 H l
0007560 002 _ 016 277 276 O 016 d N 363 242 261 \0 342 277 W
0007600 B 021 001 030 H l 002 _ 022 277 _ 020 277 O 022 d
0007620 O 020 363 242 261 \0 341 277 W F 021 001 031 H l 002
0007640 _ 026 277 _ 024 277 O 026 d O 024 363 242 261 \0 340
0007660 277 W J 021 001 032 H l 002 _ 032 277 _ 030 277 O
0007700 032 d O 030 363 242 261 \0 337 277 W L 021 001 033 H
0007720 l 002 _ 036 277 _ 034 277 O 036 d O 034 363 242 261
0007740 \0 336 277 W D 021 001 034 H l 002 _ " 277 _
0007760 277 O " d O 363 242 261 \0 335 277 W H 021 001
0010000 035 H l 002 _ & 277 _ $ 277 O & d O $ 363
0010020 242 261 \0 334 277 H l 002 _ * 277 _ ( 277 O *
0010040 d O ( 363 242 261 \0 333 277 W N 021 001 036 I \t
0010060 \0 \0 020 a g \0 \0 360 226 K k 330 a 261 377 033
0010100 K l 002 324 [ 261 377 \t a g \0 \0 360 226 M k
0010120 330 a 261 377 031 M l 002 324 ] 261 377 \a a g \0
0010140 \0 360 227 O 016 k 330 a 261 377 031 O 016 l 002 324
0010160 _ 016 261 377 005 a g \0 \0 360 227 O 022 k 330 a
0010200 261 377 032 O 022 l 002 324 _ 022 261 377 005 a g \0
0010220 \0 360 227 O 026 k 330 a 261 377 033 O 026 l 002 324
0010240 _ 026 261 377 006 a g \0 \0 360 227 O 032 k 330 a
0010260 261 377 034 O 032 l 002 324 _ 032 261 377 \a a g \0
0010300 \0 360 227 O 036 k 330 a 261 377 035 O 036 l 002 324
0010320 _ 036 261 377 \b a g \0 \0 360 227 O " k 330 a
0010340 261 377 036 O " l 002 324 _ " 261 377 \t a g \0
0010360 \0 360 222 261 377 " O & l 002 324 _ & 261 377 017
0010400 a g \0 \0 360 227 O * k 330 a 261 377 O *
0010420 l 002 324 _ * 261 377 \v \0 ( 3 6 5 Q \
0010440 P R I N D A T U M . T O . S T R
0010460 I N G ) \r ( 7 0 7 Q : G E N S
0010500 Y M 6 6 4 Q : A R R A Y 6
0010520 3 4 Q : C A S E 6 0 4 Q :
0010540 L E N G T H 5 5 4 Q : L E V
0010560 E L 5 2 4 Q : P R E T T Y
0010600 4 7 4 Q : C I R C L E 4 4 4
0010620 Q : B A S E 4 1 7 Q : R A
0010640 D I X 3 7 2 Q : E S C A P E
0010660 ) \r ( ) \r P R I N 1 - T O - S T
0010700 R I N G D 1 \r ( P 0 * P R
0010720 I N T - E S C A P E * I 0
0010740 O B J E C T ) \0 \n 001 \0 \0 001 i 021
0010760 001 \0 @ \t \0 \0 020 \0 ( 7 \ P R I N
0011000 D A T U M . T O . S T R I N G )
0011020 \r N I L \r ( ) \r P R I N C - T O
0011040 - S T R I N G D 1 \r ( P 0
0011060 * P R I N T - E S C A P E * I
0011100 0 O B J E C T ) \0 \t 001 \0 \0
0011120 001 021 020 \0 @ \t \0 \0 020 \0 ( 6 \ P R
0011140 I N D A T U M . T O . S T R I N
0011160 G ) \r N I L \r ( ) \r W R I T E -
0011200 L I N E D 1 \r ( L ( 0 - a
0011220 r g s - ) F 1 1 Q * S T A
0011240 N D A R D - O U T P U T * ) \0
0011260 x \t 001 002 \0 e 021 001 \0 k a 021 q \b l 002
0011300 H 361 222 W 022 202 l 002 a 272 H l 003 274 273 L
0011320 d K 363 262 0 277 j 275 H l 003 _ 016 277 276 O
0011340 016 d N 363 262 2 277 I \t \0 \0 _ 020 277 I J
0011360 g \0 \0 M g \0 \0 O 020 \r 006 \0 \0 J \t \0
0011400 \0 277 020 a g \0 \0 360 225 L k 330 a 260 312 L
0011420 l 002 324 \ 260 274 a g \0 \0 360 226 O 016 k 330
0011440 a 260 312 O 016 l 002 324 _ 016 260 267 \0 ( 1 1
0011460 3 Q C L : T E R P R I 1 0 7
0011500 Q W R I T E - S T R I N G 6
0011520 5 Q C L : L E N G T H ) \r ( 1
0011540 4 4 Q : E N D 1 2 1 Q : S
0011560 T A R T 1 0 1 Q : E N D 7
0011600 5 Q : S T A R T ) \r ( ) \r ( R
0011620 P A Q ? * P R I N T - S T R U
0011640 C T U R E * ) \r ( P U T P R O P
0011660 S C M L P R I N T C O P Y R
0011700 I G H T ( " X e r o x C o r
0011720 p o r a t i o n " 1 9 8 5 1
0011740 9 8 6 ) ) \r S T O P \r
0011753