$ od -c -N 50000 [eris]<Lisp>JCAI>lispusers>PPLISTFILE.DCOM!1
0000000 ( F I L E C R E A T E D " 2 1
0000020 - M a r - 8 5 1 6 : 1 3 : 1 0
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 S P U S E R S > P P L I
0000120 S T F I L E . ; 1 0 ) \r " 2 1
0000140 - M a r - 8 5 1 1 : 3 8 : 4 2
0000160 " r e c o m p i l e d c h a
0000200 n g e s : F I L E P R I N T
0000220 P P L I S T F I L E P R I N T
0000240 . * P R I N T . D E C L A R E
0000260 : P R I N T . F I L E C R E A
0000300 T E D \r P R I N T . D E F I N
0000320 E Q P R I N T . V A R i n
0000340 " I N T E R L I S P - D 2 1 -
0000360 M a r - 8 5 . . . " d a t e
0000400 d " 2 1 - M a r - 8 5 1 1 :
0000420 5 5 : 0 6 " ) \r ( F I L E C R E
0000440 A T E D " 2 1 - M a r - 8 5
0000460 1 6 : 1 2 : 4 0 " { E R I S }
0000500 < L I S P C O R E > L I S P U S
0000520 E R S > P P L I S T F I L E . ;
0000540 1 0 6 9 8 8 c h a n g e s
0000560 t o : ( F N S \r P P L I S T
0000600 F I L E F I L E P R I N T P
0000620 R I N T . * P R I N T . D E C
0000640 L A R E : P R I N T . D E F I
0000660 N E Q P R I N T . V A R P R
0000700 I N T . F I L E C R E A T E D )
0000720 ( V A R S \r T O P L E V E L
0000740 P R I N T M A C R O S P P L I
0000760 S T F I L E C O M S ) p r e v
0001000 i o u s d a t e : " 2 0 - M
0001020 a r - 8 5 1 6 : 0 2 : 3 3 "
0001040 \r { E R I S } < L I S P C O R E
0001060 > L I S P U S E R S > P P L I S
0001100 T F I L E . ; 7 ) \r C E N T E R
0001120 P R I N T D 1 \r ( I 1 T O
0001140 S T R E A M I 0 S T R )
0001160 \0 ) \0 \0 \0 002 h A \n \0 \0 h A \n \0 \0
0001200 h A \n \0 \0 325 @ A \n \0 \0 325 l 002 327 324
0001220 A \n \0 \0 @ A \n \0 \0 A \t \0 \0 020 \0 (
0001240 4 6 Q T E R P R I 4 2 Q P
0001260 R I N 1 3 5 Q D S P X P O S
0001300 I T I O N 2 4 Q S T R I N G
0001320 W I D T H 1 6 Q D S P L E F
0001340 T M A R G I N 1 1 Q D S P R
0001360 I G H T M A R G I N 4 D S P
0001400 L E F T M A R G I N ) \r N I L \r
0001420 ( ) \r F I L E P R I N T D 1 \r
0001440 ( P 0 M A C R O I 0 E
0001460 X P R F 2 T O P L E V E L
0001500 P R I N T M A C R O S ) \0 ! 002
0001520 001 \0 001 @ 001 R \n \0 \0 021 021 001 H 237 @ H
0001540 002 271 @ k I 017 016 b \0 360 h 360 265 006 @ \t
0001560 \0 \0 020 \0 ( 3 6 Q N E W P R I N
0001600 T D E F 5 A S S O C ) \r N I
0001620 L \r ( ) \r P P L I S T F I L E A
0001640 0 0 0 1 A 0 0 0 2 D 1 \r ( I
0001660 0 X F 0 R E S E T S T A
0001700 T E ) \0 \r \0 001 \0 001 @ \t \0 \0 P 264
0001720 006 @ \t \0 \0 020 \0 ( 1 2 Q D E L F
0001740 I L E 3 C L O S E F ? ) \r N
0001760 I L \r ( ) \r P P L I S T F I L E
0002000 A 0 0 0 1 D 1 \r ( N A M E E
0002020 R R O R S E T P 1 3 Q T Y
0002040 P E P 6 D T P 5 E X
0002060 P R P 4 I N D E X P 1
0002100 F N P 0 S T R F 1 4
0002120 Q R E S E T V A R S L S T F
0002140 1 5 Q T O S T R E A M F
0002160 1 6 Q F I L E F 1 7 Q R
0002200 E S E T Y F 2 0 Q T Y P E
0002220 ) 001 231 \f 005 002 \0 g \0 \0 d \t \0 \0 032
0002240 g \0 \0 i \n \0 \0 277 W 030 032 c 030 277 W 034
0002260 g \0 \0 h d o \0 \0 \0 \r 005 \0 \0 021 1 003
0002300 g \0 \0 W 032 265 020 g \0 \0 W 265 005 \b \0
0002320 \0 \n \0 \0 207 g \0 \0 \n \0 \0 c 032 \t \0 \0
0002340 h 032 032 h 032 W 030 032 c 030 277 H \t \0 \0 271
0002360 g \0 \0 d \t \0 \0 032 g \0 \0 \t \0 \0 277 W
0002400 030 032 c 030 277 W 032 262 024 g \0 \0 W 032 h 032
0002420 032 h h 032 032 W 030 032 c 030 277 g \0 \0 H h
0002440 032 032 h h 032 032 W 030 032 c 030 277 ` \0 \0 \t
0002460 \0 \0 277 021 005 H ` \0 \0 \n \0 \0 ] d g
0002500 \0 \0 360 262 & 277 \b \0 \0 277 ` \0 \0 \t \0 \0
0002520 277 H g \0 \0 \n \0 \0 021 001 006 N 262 ! I o
0002540 \0 \0 \0 N \v \0 \0 260 027 \t \0 \0 277 l 002 Z
0002560 j 361 262 304 \b \0 \0 277 J k 331 260 364 I \t \0
0002600 \0 023 ` \0 \0 \t \0 \0 277 o \0 \0 \0 \b \0 \0
0002620 o \0 \0 \0 \v \0 \0 \t \0 \0 277 \b \0 \0 277 L
0002640 g \0 \0 h 032 021 022 \t O 016 003 265 S O 020 022
0002660 021 021 \v O 024 003 265 k 023 \b \0 \0 277 \b \0 \0
0002700 \b \0 \0 \b \0 \0 \b \0 \0 o \0 \0 \0 \t \0 \0
0002720 g \0 \0 h n 377 377 \r \b \0 \0 277 \b \0 \0 023
0002740 W 032 265 027 \b \0 \0 \t \0 \0 h g \0 \0 I h
0002760 032 032 \v \0 \0 277 g \0 \0 022 c 036 i 020 001 _
0003000 022 277 O 020 273 O 022 002 001 K 001 360 251 K d 002
0003020 254 O 022 002 001 & 277 O 016 002 _ 016 260 216 002 260
0003040 345 001 _ 026 L \n \0 \0 277 O 024 002 _ 024 260 207
0003060 \0 ( 6 1 7 Q P r i n t O n e T
0003100 y p e I n d e x 5 3 4 Q S E
0003120 N D . F I L E . T O . P R I N T
0003140 E R 5 2 1 Q C L O S E F 5
0003160 1 6 Q O U T P U T 5 0 6 Q
0003200 T E R P R I 5 0 2 Q D R A W
0003220 L I N E 4 6 7 Q S T R I N G
0003240 W I D T H 4 6 0 Q D S P Y P
0003260 O S I T I O N 4 5 5 Q D S P
0003300 R I G H T M A R G I N 4 5 2 Q
0003320 D S P Y P O S I T I O N 4 4
0003340 7 Q D S P L E F T M A R G I N
0003360 4 4 3 Q T E R P R I 4 0 5
0003400 Q T E R P R I 4 0 1 Q C E
0003420 N T E R P R I N T 3 7 6 Q C
0003440 O N C A T 3 6 7 Q D A T E
0003460 3 5 7 Q D S P F O N T 3 5 0
0003500 Q C E N T E R P R I N T 3 3
0003520 6 Q T E R P R I 3 2 3 Q F
0003540 I L E P R I N T 3 1 6 Q C O
0003560 N C A T 2 7 7 Q G E T F I L
0003600 E I N F O 2 6 7 Q D S P F O
0003620 N T 2 6 0 Q D S P N E W P A
0003640 G E 2 4 4 Q R E A D 2 3 1
0003660 Q D S P F O N T 1 4 5 Q S
0003700 E T T O P V A L 1 3 6 Q G E
0003720 T T O P V A L 1 2 6 Q F U L
0003740 L N A M E 1 0 7 Q O U T P U
0003760 T 1 0 2 Q G E T S T R E A M
0004000 7 3 Q O P E N I M A G E S T
0004020 R E A M 7 0 Q P R I N T E R
0004040 T Y P E 4 4 Q O P E N S T R
0004060 E A M 1 6 Q S E T T O P V A
0004100 L 6 G E T T O P V A L ) \r (
0004120 5 4 0 Q p r i n t e d 5 2 5
0004140 Q D O C U M E N T . N A M E
0004160 4 7 2 Q P A I N T 4 1 2 Q
0004200 F N S 3 5 4 Q D E F A U L T
0004220 F O N T 2 7 4 Q C R E A T I
0004240 O N D A T E 2 6 4 Q B O L D
0004260 F O N T 2 5 1 Q S T O P 2
0004300 4 1 Q F I L E R D T B L 2 2
0004320 6 Q D E F A U L T F O N T 2
0004340 0 5 Q C L O S E F ? 1 6 3 Q
0004360 P P L I S T F I L E A 0 0 0 1
0004400 A 0 0 0 2 1 4 2 Q * * C O M
0004420 M E N T * * F L G 1 3 2 Q *
0004440 * C O M M E N T * * F L G 7 7
0004460 Q O U T P U T 6 1 Q { S C
0004500 R A T C H } 5 2 Q O U T P U
0004520 T 3 2 Q I N P U T 1 2 Q
0004540 P R E T T Y F L G 2 P R E T
0004560 T Y F L G ) \r ( 4 6 4 Q "
0004600 " 3 7 3 Q " - - " 3 6 4
0004620 Q " - - L i s t e d o n
0004640 " 3 1 2 Q " \t \t " 4 0 Q
0004660 ( ( S E Q U E N T I A L T ) )
0004700 ) \r P P L I S T F I L E D 1 \r
0004720 ( P 2 R E S E T Z P 1
0004740 R E S E T Y P 0 L I S P X
0004760 H I S T I 2 T Y P E I
0005000 1 T O S T R E A M I 0 F
0005020 I L E F 3 L I S P X H I S
0005040 T F 4 R E S E T V A R S L
0005060 S T ) \0 " 003 002 \0 003 S 021 ! 002 T o
0005100 \0 \0 \0 g \0 \0 \n \0 \0 221 h 202 g \0 \0 Z
0005120 \n \0 \0 J 223 \b \0 \0 020 I 020 \0 ( 3 5 Q
0005140 E R R O R ! 3 0 Q R E S E
0005160 T R E S T O R E 1 6 Q P P L
0005200 I S T F I L E A 0 0 0 1 ) \r ( 2
0005220 4 Q E R R O R 1 3 Q I N T
0005240 E R N A L ) \r ( 1 0 Q ( P P
0005260 L I S T F I L E A 0 0 0 1 ) ) \r
0005300 P R I N T . * D 1 \r ( I 0
0005320 E X P R ) \0 < 001 \0 \0 001 @ 002 001 g
0005340 \0 \0 360 225 \b \0 \0 277 260 026 l 003 021 001 \0 H
0005360 j 361 231 \b \0 \0 277 H k 331 X 260 365 023 ` \0
0005400 \0 \t \0 \0 @ \t \0 \0 ` \0 \0 \t \0 \0 h \t
0005420 \0 \0 h \t \0 \0 020 \0 ( 7 1 Q T E R
0005440 P R I 6 5 Q T E R P R I 6
0005460 1 Q C H A N G E F O N T 5 3
0005500 Q P R I N 1 4 7 Q C H A N
0005520 G E F O N T 3 1 Q T E R P R
0005540 I 1 2 Q D S P N E W P A G E
0005560 ) \r ( 5 6 Q D E F A U L T F O
0005600 N T 4 4 Q L A M B D A F O N
0005620 T 5 * ) \r ( ) \r P R I N T .
0005640 D E C L A R E : D 1 \r ( P 2
0005660 L A S T X P 1 X I 0
0005700 E X P R ) \0 K 003 \0 \0 001 o \0 \0
0005720 \0 \t \0 \0 @ 021 ! 002 H 003 265 017 023 o \0 \0
0005740 \0 \t \0 \0 h \t \0 \0 020 001 Y 003 253 I Z \t
0005760 \0 \0 277 k \t \0 \0 260 032 o \0 \0 \0 J \n \0
0006000 \0 226 I h i \v \0 \0 207 \b \0 \0 277 I \t \0
0006020 \0 277 H 002 X 260 304 \0 ( 1 0 3 Q F I
0006040 L E P R I N T 7 6 Q T E R P
0006060 R I 7 2 Q P R I N T D E F
0006100 6 3 Q S T R P O S 5 1 Q S
0006120 P A C E S 4 4 Q P R I N 1
0006140 3 2 Q T E R P R I 2 6 Q P
0006160 R I N 1 6 P R I N 1 ) \r N I
0006200 L \r ( 5 7 Q " @ W H E N "
0006220 2 3 Q " ) " 3 " ( " ) \r P
0006240 R I N T . F I L E C R E A T E D
0006260 D 1 \r ( P 0 M A R G I N
0006300 I 0 F C ) \0 354 001 \0 \0 001 ` \0
0006320 \0 \t \0 \0 277 o \0 \0 \0 \t \0 \0 277 @ 001 @
0006340 002 b \0 277 \t \0 \0 277 k \t \0 \0 277 @ 001 @
0006360 002 b \0 277 \t \0 \0 277 k \t \0 \0 277 ` \0 \0
0006400 \t \0 \0 277 @ 001 @ 002 b \0 277 \t \0 \0 277 k
0006420 \t \0 \0 277 ` \0 \0 \t \0 \0 @ d 001 d 005 001
0006440 241 005 002 232 001 @ 002 b \0 277 \t \0 \0 277 @ 262
0006460 024 \b \0 \0 277 \b \0 \0 021 001 \0 @ 265 022 H \t
0006500 \0 \0 023 o \0 \0 \0 \t \0 \0 \b \0 \0 020 001 d
0006520 g \0 \0 360 246 d g \0 \0 360 262 < 277 H \t \0
0006540 \0 277 h \t \0 \0 277 l 006 \t \0 \0 277 @ 001 @
0006560 002 b \0 277 \t \0 \0 277 k \t \0 \0 277 @ 001 @
0006600 002 b \0 277 \t \0 \0 277 k \t \0 \0 277 \b \0 \0
0006620 \t \0 \0 277 260 247 277 @ d 001 003 233 001 @ 002 b
0006640 \0 277 \t \0 \0 277 260 225 001 @ 002 b \0 277 \t \0
0006660 \0 277 k \t \0 \0 277 260 204 \0 ( 3 4 7 Q
0006700 S P A C E S 3 4 2 Q P R I N
0006720 2 3 2 6 Q P R I N T 3 0 4
0006740 Q D S P L E F T M A R G I N
0006760 3 0 1 Q D S P X P O S I T I O
0007000 N 2 7 5 Q S P A C E S 2 7
0007020 0 Q P R I N 1 2 5 5 Q S P
0007040 A C E S 2 5 0 Q P R I N 1
0007060 2 3 5 Q S P A C E S 2 2 7 Q
0007100 T E R P R I 2 2 2 Q D S P
0007120 L E F T M A R G I N 1 7 6 Q
0007140 T E R P R I 1 7 3 Q P R I N
0007160 1 1 6 3 Q D S P L E F T M A
0007200 R G I N 1 5 1 Q D S P L E F
0007220 T M A R G I N 1 4 5 Q T E R
0007240 P R I 1 3 6 Q P R I N 2 1
0007260 1 3 Q C H A N G E F O N T 1
0007300 0 4 Q S P A C E S 7 7 Q P
0007320 R I N 2 6 4 Q C H A N G E F
0007340 O N T 5 5 Q S P A C E S 5
0007360 0 Q P R I N 2 3 5 Q S P A
0007400 C E S 3 0 Q P R I N 2 1 5
0007420 Q P R I N 1 5 C H A N G E
0007440 F O N T ) \r ( 2 1 2 Q p r e v
0007460 i o u s 2 0 4 Q c h a n g e
0007500 s 1 1 0 Q D E F A U L T F O
0007520 N T 6 1 Q L A M B D A F O N
0007540 T 2 D E F A U L T F O N T )
0007560 \r ( 1 7 0 Q " ) " 1 2 Q
0007600 " ( " ) \r P R I N T . D E F I N
0007620 E Q D 1 \r ( P 0 Y I 0
0007640 E X P R ) \0 s 001 \0 \0 001 o \0 \0
0007660 \0 \t \0 \0 277 h \t \0 \0 277 h \t \0 \0 @ 260
0007700 P d 001 021 001 \0 h \t \0 \0 277 o \0 \0 \0 \t
0007720 \0 \0 277 ` \0 \0 \t \0 \0 277 H 001 \t \0 \0 277
0007740 h \t \0 \0 277 ` \0 \0 \t \0 \0 277 H 002 h \t
0007760 \0 \0 i d \f \0 \0 277 o \0 \0 \0 \t \0 \0 277
0010000 h \t \0 \0 277 h \t \0 \0 277 h \t \0 \0 023 002
0010020 003 265 260 o \0 \0 \0 \t \0 \0 h \t \0 \0 020 \0
0010040 ( 1 6 0 Q T E R P R I 1 5 4
0010060 Q P R I N 1 1 4 0 Q T E R
0010100 P R I 1 3 3 Q T E R P R I
0010120 1 2 6 Q T E R P R I 1 2 1 Q
0010140 P R I N 1 1 1 1 Q P R I N
0010160 T D E F 1 0 4 Q P O S I T I
0010200 O N 7 5 Q C H A N G E F O N
0010220 T 6 6 Q T E R P R I 6 1 Q
0010240 P R I N 1 5 3 Q C H A N G
0010260 E F O N T 4 4 Q P R I N 1
0010300 3 4 Q T E R P R I 2 0 Q T
0010320 E R P R I 1 3 Q T E R P R I
0010340 6 P R I N 1 ) \r ( 7 2 Q D
0010360 E F A U L T F O N T 5 0 Q L
0010400 A M B D A F O N T ) \r ( 1 5 1
0010420 Q " ) " 1 1 6 Q " ) " 4
0010440 1 Q " ( " 3 " ( D E F I N
0010460 E Q " ) \r P R I N T . V A R D
0010500 1 \r ( P 1 T E M P 0 L
0010520 A S T C O L I 0 V A R E X
0010540 P ) \0 R 002 \0 \0 001 \b \0 \0 021 021 001 \b
0010560 \0 \0 o \0 \0 \0 \t \0 \0 277 @ 001 \t \0 \0 277
0010600 k \t \0 \0 277 ` \0 \0 \t \0 \0 277 @ 002 001 \t
0010620 \0 \0 277 ` \0 \0 \t \0 \0 277 k \t \0 \0 277 @
0010640 002 002 h \t \0 \0 h i \f \0 \0 277 o \0 \0 \0
0010660 \t \0 \0 277 h \t \0 \0 h 020 \0 ( 1 1 6 Q
0010700 T E R P R I 1 1 1 Q P R I
0010720 N 1 1 0 1 Q P R I N T D E F
0010740 7 4 Q P O S I T I O N 6 4
0010760 Q S P A C E S 5 7 Q C H A
0011000 N G E F O N T 5 0 Q P R I N
0011020 2 4 1 Q C H A N G E F O N T
0011040 3 2 Q S P A C E S 2 5 Q
0011060 P R I N 1 1 7 Q P R I N 1
0011100 1 0 Q T E R P R I 2 D S P
0011120 R I G H T M A R G I N ) \r ( 5 4
0011140 Q D E F A U L T F O N T 3 6
0011160 Q P R E T T Y C O M F O N T )
0011200 \r ( 1 0 6 Q " ) " 1 4 Q
0011220 " ( " ) \r ( P R E T T Y C O M P
0011240 R I N T P P L I S T F I L E C
0011260 O M S ) \r ( R P A Q Q P P L I
0011300 S T F I L E C O M S ( ( F N S
0011320 C E N T E R P R I N T F I L
0011340 E P R I N T P P L I S T F I L
0011360 E P R I N T . * P R I N T .
0011400 D E C L A R E : P R I N T . F
0011420 I L E C R E A T E D \r P R I N
0011440 T . D E F I N E Q P R I N T .
0011460 V A R ) ( V A R S T O P L E
0011500 V E L P R I N T M A C R O S ) )
0011520 ) \r ( R P A Q Q T O P L E V E
0011540 L P R I N T M A C R O S ( ( R
0011560 E C O R D . P R I N T . V A
0011600 R ) ( T Y P E R E C O R D .
0011620 P R I N T . V A R ) ( P R O
0011640 P R E C O R D . P R I N T .
0011660 V A R ) ( \r H A S H L I N K
0011700 . P R I N T . V A R ) ( A C
0011720 C E S S F N . P R I N T . V
0011740 A R ) ( A C C E S S F N S .
0011760 P R I N T . V A R ) ( H A S
0012000 H R E C O R D . P R I N T .
0012020 V A R ) ( \r A T O M R E C O R
0012040 D . P R I N T . V A R ) (
0012060 A R R A Y R E C O R D . P R
0012100 I N T . V A R ) ( D A T A T Y
0012120 P E . P R I N T . V A R )
0012140 ( B L O C K R E C O R D . P
0012160 R I N T . V A R ) ( \r A S S O
0012200 C R E C O R D . P R I N T .
0012220 V A R ) ( C A C C E S S F N S
0012240 . P R I N T . V A R ) ( A
0012260 R R A Y B L O C K . P R I N
0012300 T . V A R ) ( S Y N O N Y M
0012320 . P R I N T . V A R ) ( \r D
0012340 E F I N E Q . P R I N T . D
0012360 E F I N E Q ) ( R P A Q .
0012400 P R I N T . V A R ) ( R P A Q
0012420 Q . P R I N T . V A R ) (
0012440 D E C L A R E : . P R I N T
0012460 . D E C L A R E : ) ( P U T P
0012500 R O P S \r . P R I N T . V A
0012520 R ) ( * . P R I N T . * )
0012540 ( F I L E C R E A T E D .
0012560 P R I N T . F I L E C R E A T E
0012600 D ) ) ) \r ( P U T P R O P S P
0012620 P L I S T F I L E C O P Y R I
0012640 G H T ( " X e r o x C o r p
0012660 o r a t i o n " 1 9 8 5 ) ) \r
0012700 N I L \r
0012704