$ od -c -N 50000 [eris]<Lisp>KOTO>LISPUSERS>EXECFNS.DCOM!1
0000000 ( F I L E C R E A T E D " 2 0
0000020 - M a r - 8 6 1 0 : 0 1 : 4 8
0000040 " ( " c o m p i l e d o n
0000060 " { D A N T E } < R C L A R K
0000100 E > E X E C F N S . ; 1 ) " 1
0000120 2 - N o v - 8 5 1 4 : 5 9 : 2
0000140 3 " \r t c o m p l ' d i n
0000160 " I N T E R L I S P - D 7 -
0000200 F e b - 8 6 . . . " d a t e
0000220 d " 7 - F e b - 8 6 1 1 :
0000240 4 3 : 0 5 " ) \r ( F I L E C R E
0000260 A T E D " 2 7 - A u g - 8 5
0000300 1 3 : 3 1 : 2 5 " { T O P A Z
0000320 } < / U 1 / X E R O X / O S O U
0000340 R C E S / > E X E C F N S . ; 2
0000360 1 0 5 0 5 c h a n g e s t
0000400 o : ( F N S \r K D E L E T E
0000420 ) ( L I S P X M A C R O S k
0000440 d K D ) p r e v i o u s d
0000460 a t e : " 1 9 - A u g - 8 5
0000500 0 9 : 0 5 : 0 4 " \r { T O P A
0000520 Z } < / U 1 / X E R O X / O S O
0000540 U R C E S / > E X E C F N S . ;
0000560 1 ) \r D E F I N E . L O G I C A
0000600 L . D E V I C E D 1 \r ( P 0
0000620 A L I S T I 1 F I L E
0000640 I 0 L O G I C A L . N A M E
0000660 F 1 * L O G I C A L . D E
0000700 F I N I T I O N S * ) \0 n 001 001
0000720 \0 002 021 020 \0 @ \t \0 \0 b \0 d Q 026 X 262
0000740 4 A 262 037 Q 226 @ A Q \v \0 \0 247 @ A 032
0000760 h 032 c 002 277 @ i \n \0 \0 277 o \0 \0 \0 260
0001000 / H Q \n \0 \0 277 @ i \n \0 \0 277 o \0 \0
0001020 \0 260 # Q 226 @ A Q \v \0 \0 247 @ A 032 h
0001040 032 c 002 277 @ i \n \0 \0 277 o \0 \0 \0 i \n
0001060 \0 \0 277 A i \n \0 \0 277 i \t \0 \0 i 020 \0
0001100 ( 1 5 2 Q T E R P R I 1 4 5
0001120 Q P R I N 1 1 3 7 Q P R I
0001140 N 1 1 2 6 Q P R I N 1 1 1
0001160 0 Q P U T A S S O C 7 1 Q
0001200 P R I N 1 6 3 Q D R E M O V
0001220 E 4 7 Q P R I N 1 3 1 Q
0001240 P U T A S S O C 6 U - C A S
0001260 E ) \r N I L \r ( 1 3 3 Q "
0001300 d e f i n e d t o b e "
0001320 7 6 Q " r e m o v e d . "
0001340 5 4 Q " r e d e f i n e d
0001360 t o b e " ) \r L O G I C A L
0001400 ? D 1 \r ( P 2 T E M P P
0001420 1 D E V I C E F I L E P
0001440 0 D E V I C E I 0 F I L
0001460 E N A M E F 3 * L O G I C
0001500 A L . D E F I N I T I O N S * )
0001520 \0 3 003 001 \0 001 021 0 002 @ d 226 l \b \n
0001540 \0 \0 234 @ g \0 \0 \n \0 \0 \t \0 \0 X 265 004
0001560 @ 020 S 026 002 Y 262 372 g \0 \0 I g \0 \0 h
0001600 g \0 \0 @ \r 006 \0 \0 020 \0 ( 6 0 Q P
0001620 A C K F I L E N A M E 2 5 Q
0001640 U - C A S E 2 2 Q F I L E N
0001660 A M E F I E L D 1 2 Q \ T Y
0001700 P E M A S K . U F N ) \r ( 5 3 Q
0001720 B O D Y 4 7 Q D E V I C E
0001740 4 3 Q B O D Y 1 7 Q D E
0001760 V I C E ) \r ( ) \r S H O W . L O
0002000 G I C A L . D E F I N I T I O N
0002020 S A 0 0 0 1 D 1 \r ( I 1 B
0002040 I 0 A ) \0 \t \0 \0 \0 002 @ 001
0002060 A 001 \n \0 \0 020 \0 ( 6 A L P H O R
0002100 D E R ) \r N I L \r ( ) \r S H O W
0002120 . L O G I C A L . D E F I N I T
0002140 I O N S D 1 \r ( P 1 P A I
0002160 R P 0 D E F L I S T I
0002200 0 D E V I C E F 2 * L O
0002220 G I C A L . D E F I N I T I O N
0002240 S * ) \0 201 002 001 \0 001 021 020 \0 @ \t \0
0002260 \0 b \0 d 227 d d g \0 \0 360 222 277 R 203 R
0002300 026 h 032 X d 001 263 033 277 @ 225 @ g \0 \0 360
0002320 236 o \0 \0 \0 i \n \0 \0 277 i \t \0 \0 h 020
0002340 H d 001 263 030 277 o \0 \0 \0 i \n \0 \0 277 @
0002360 i \n \0 \0 277 i \t \0 \0 h 020 g \0 \0 \n \0
0002400 \0 260 $ d 001 021 001 001 I 001 i \n \0 \0 277 o
0002420 \0 \0 \0 i \n \0 \0 277 I 002 i \n \0 \0 277 i
0002440 \t \0 \0 023 002 003 265 335 h 020 \0 ( 1 7 0 Q
0002460 T E R P R I 1 6 3 Q P R I
0002500 N 1 1 5 4 Q P R I N 1 1 4
0002520 3 Q P R I N 1 1 2 6 Q S O
0002540 R T 1 1 6 Q T E R P R I 1
0002560 1 1 Q P R I N 1 1 0 3 Q P
0002600 R I N 1 6 3 Q T E R P R I
0002620 5 6 Q P R I N 1 6 U - C A
0002640 S E ) \r ( 1 2 3 Q S H O W . L
0002660 O G I C A L . D E F I N I T I O
0002700 N S A 0 0 0 1 4 4 Q * 1 7
0002720 Q * ) \r ( 1 5 0 Q " d e
0002740 f i n e d a s " 7 7 Q "
0002760 N o l o g i c a l d e f i n
0003000 i t i o n f o u n d f o r
0003020 " 5 2 Q " N o l o g i c a
0003040 l d e f i n i t i o n s s t
0003060 o r e d . " ) \r F I L E . N A M
0003100 E . C O M P A R E F N D 1 \r (
0003120 I 1 F I L E 2 I 0 F I
0003140 L E 1 ) \0 I \0 \0 \0 002 @ g \0 \0 \n
0003160 \0 \0 A g \0 \0 \n \0 \0 360 262 " @ g \0 \0
0003200 \n \0 \0 A g \0 \0 \n \0 \0 360 237 @ g \0 \0
0003220 \n \0 \0 227 A g \0 \0 \n \0 \0 245 @ A \n \0
0003240 \0 020 @ g \0 \0 \n \0 \0 A g \0 \0 \n \0 \0
0003260 375 361 020 \0 ( 1 0 4 Q F I L E N A
0003300 M E F I E L D 7 5 Q F I L E
0003320 N A M E F I E L D 6 5 Q A L
0003340 P H O R D E R 5 7 Q F I L E
0003360 N A M E F I E L D 4 7 Q F I
0003400 L E N A M E F I E L D 3 6 Q
0003420 F I L E N A M E F I E L D 2 7
0003440 Q F I L E N A M E F I E L D
0003460 1 5 Q F I L E N A M E F I E L
0003500 D 6 F I L E N A M E F I E L
0003520 D ) \r ( 1 0 1 Q V E R S I O N
0003540 7 2 Q V E R S I O N 5 4 Q
0003560 V E R S I O N 4 4 Q V E R
0003600 S I O N 3 3 Q E X T E N S I
0003620 O N 2 4 Q E X T E N S I O N
0003640 1 2 Q N A M E 3 N A M E
0003660 ) \r ( ) \r K D E L E T E A 0 0 0
0003700 1 D 1 \r ( N A M E E R R O R
0003720 S E T F 0 F I L E F 1
0003740 T E M P F 2 M A C R O Y
0003760 ) \0 ] \0 003 002 \0 P g \0 \0 \n \0 \0 i
0004000 \n \0 \0 277 o \0 \0 \0 i \n \0 \0 277 P g \0
0004020 \0 \n \0 \0 c 002 224 Q \t \0 \0 277 o \0 \0 \0
0004040 i \n \0 \0 277 P g \0 \0 \n \0 \0 i \n \0 \0
0004060 277 l 025 h i \v \0 \0 277 P \t \0 \0 224 o \0
0004100 \0 \0 203 o \0 \0 \0 i \n \0 \0 277 i \t \0 \0
0004120 c 004 i 020 \0 ( 1 2 7 Q T E R P R
0004140 I 1 2 2 Q P R I N 1 1 0 4
0004160 Q D E L F I L E 7 7 Q T A
0004200 B 6 7 Q P R I N 1 6 3 Q
0004220 F I L E N A M E F I E L D 5 3
0004240 Q P R I N 1 4 2 Q P R I N
0004260 1 3 3 Q F I L E N A M E F I
0004300 E L D 2 3 Q P R I N 1 1 2
0004320 Q P R I N 1 6 F I L E N A
0004340 M E F I E L D ) \r ( 6 0 Q V E
0004360 R S I O N 3 0 Q E X T E N S
0004400 I O N 3 N A M E ) \r ( 1 1
0004420 6 Q " c a n ' t d e l e t e
0004440 " 1 1 1 Q " d e l e t e d "
0004460 4 7 Q " ; " 1 7 Q " . "
0004500 ) \r K D E L E T E D 1 \r ( P
0004520 1 1 Q R E S E T S T A T E P
0004540 1 0 Q M A C R O Y P 6
0004560 O L D V A L U E P 5 F I L
0004600 E P 4 F P 2 T E M P
0004620 P 1 F I L E . L S T P
0004640 0 D E L E T E . L I S T I
0004660 1 N V E R S I O N S I 0
0004700 F I L E S F 1 2 Q R E S E
0004720 T V A R S L S T ) 001 017 \n 001 \0 002
0004740 021 0 002 A 3 020 223 j A 361 223 k b 002 277 @
0004760 \t \0 \0 g \0 \0 \n \0 \0 021 021 004 K 003 265 026
0005000 I 233 I A k 330 \n \0 \0 H \n \0 \0 270 023 H
0005020 263 _ h 020 001 \ g \0 \0 \n \0 \0 262 N I 001
0005040 g \0 \0 \n \0 \0 L g \0 \0 \n \0 \0 364 262 *
0005060 I 001 g \0 \0 \n \0 \0 L g \0 \0 \n \0 \0 364
0005100 262 030 I 001 g \0 \0 \n \0 \0 L g \0 \0 \n \0
0005120 \0 364 224 L I 032 260 023 I 233 I A k 330 \n \0
0005140 \0 H \n \0 \0 270 L h 032 271 K 002 [ 260 220 l
0005160 003 h i \v \0 \0 277 g \0 \0 H 001 g \0 \0 \n
0005200 \0 \0 g \0 \0 H 001 g \0 \0 \n \0 \0 \f \0 \0
0005220 i \n \0 \0 277 i \t \0 \0 H \t \0 \0 260 L d
0005240 001 021 001 005 i \t \0 \0 021 1 \t g \0 \0 N h
0005260 032 032 h 032 W 024 032 c 024 _ 016 277 o \0 \0 \0
0005300 g \0 \0 \n \0 \0 245 g \0 \0 _ 022 277 O 016 002
0005320 c 024 277 g \0 \0 O 016 001 001 002 \n \0 \0 277 O
0005340 022 223 \b \0 \0 277 023 023 002 003 265 265 h 020 \0 (
0005360 4 0 4 Q E R R O R ! 3 7 5 Q
0005400 A P P L Y 3 4 5 Q K D E L
0005420 E T E A 0 0 0 1 3 0 7 Q O U
0005440 T P U T 2 7 4 Q R E V E R S
0005460 E 2 7 0 Q T E R P R I 2 6
0005500 3 Q P R I N 1 2 5 7 Q P A
0005520 C K F I L E N A M E 2 5 4 Q
0005540 F I L E N A M E F I E L D 2 4
0005560 1 Q F I L E N A M E F I E L D
0005600 2 2 5 Q T A B 2 0 4 Q \
0005620 A P P E N D 2 2 0 0 Q F N T
0005640 H 1 6 0 Q F I L E N A M E F
0005660 I E L D 1 5 1 Q F I L E N A
0005700 M E F I E L D 1 3 6 Q F I L
0005720 E N A M E F I E L D 1 2 7 Q
0005740 F I L E N A M E F I E L D 1 1
0005760 4 Q F I L E N A M E F I E L D
0006000 1 0 5 Q F I L E N A M E F I
0006020 E L D 7 3 Q F I L E N A M E
0006040 F I E L D 5 4 Q \ A P P E N
0006060 D 2 5 0 Q F N T H 3 0 Q
0006100 S O R T 2 2 Q D I R E C T O
0006120 R Y ) \r ( 3 6 5 Q O U T P U T
0006140 3 5 1 Q E R R O R 3 4 2 Q
0006160 I N T E R N A L 3 1 5 Q O
0006200 U T P U T 2 5 1 Q D I R E C
0006220 T O R Y 2 4 4 Q D I R E C T
0006240 O R Y 2 3 6 Q H O S T 2 3
0006260 1 Q H O S T 1 5 5 Q E X T
0006300 E N S I O N 1 4 6 Q E X T E
0006320 N S I O N 1 3 3 Q N A M E
0006340 1 2 4 Q N A M E 1 1 1 Q H
0006360 O S T 1 0 2 Q H O S T 7 0
0006400 Q V E R S I O N 2 5 Q F I
0006420 L E . N A M E . C O M P A R E F
0006440 N ) \r ( 3 3 7 Q ( K D E L E
0006460 T E A 0 0 0 1 ) ) \r D E F A U L
0006500 T F I L E D 1 \r ( I 1 F I
0006520 L E 2 I 0 F I L E 1 ) \0
0006540 , \0 \0 \0 002 @ d 262 ( \t \0 \0 g \0 \0 A
0006560 g \0 \0 \n \0 \0 h 032 032 g \0 \0 A g \0 \0
0006600 \n \0 \0 h 032 032 \n \0 \0 \n \0 \0 \t \0 \0 020
0006620 \0 ( 5 1 Q P A C K F I L E N A
0006640 M E 4 6 Q \ A P P E N D 2
0006660 4 3 Q \ A P P E N D 2 3 5 Q
0006700 F I L E N A M E F I E L D 2
0006720 0 Q F I L E N A M E F I E L D
0006740 6 U N P A C K F I L E N A M
0006760 E ) \r ( 3 2 Q E X T E N S I O
0007000 N 2 6 Q E X T E N S I O N
0007020 1 5 Q N A M E 1 1 Q N A M
0007040 E ) \r ( ) \r ( P R E T T Y C O M
0007060 P R I N T E X E C F N S C O M
0007100 S ) \r ( R P A Q Q E X E C F N
0007120 S C O M S ( ( I N I T V A R S
0007140 ( * L O G I C A L . D E F I N
0007160 I T I O N S * N I L ) ) ( L
0007200 I S P X M A C R O S c o n n
0007220 C O N N d e f D E F d e f
0007240 ? D E F ? \r d i r D I R
0007260 t y T Y k d K D d e l
0007300 D E L ) ( F N S D E F I N E
0007320 . L O G I C A L . D E V I C E
0007340 L O G I C A L ? S H O W . L O
0007360 G I C A L . D E F I N I T I O N
0007400 S \r F I L E . N A M E . C O M
0007420 P A R E F N K D E L E T E D
0007440 E F A U L T F I L E ) ( A D V
0007460 I S E ( * A d v i s e u s
0007500 e f u l f u n c t i o n s t
0007520 o u s e l o g i c a l n a
0007540 m e s a n d \r p o s s i b l
0007560 e f i l e d e f a u l t s )
0007600 I N F I L E I N F I L E P
0007620 O U T F I L E O U T F I L E P
0007640 O P E N S T R E A M O P E N
0007660 F I L E C O P Y F I L E ) ) )
0007700 \r ( R P A Q ? * L O G I C A L
0007720 . D E F I N I T I O N S * N I
0007740 L ) \r ( A D D T O V A R L I S
0007760 P X M A C R O S ( c o n n (
0010000 / C N D I R ( L O G I C A L ?
0010020 ( C A R L I S P X L I N E )
0010040 ) ( A N D ( L I S T P ( C
0010060 D R L I S P X L I N E ) ) (
0010100 P R O G 1 ( \r C A D R L I S
0010120 P X L I N E ) ( F R P L A C A
0010140 ( C D R L I S P X L I N E )
0010160 ) ) ) ) ) ( C O N N ( / C N
0010200 D I R ( L O G I C A L ? ( C
0010220 A R L I S P X L I N E ) ) (
0010240 A N D ( L I S T P ( \r C D R
0010260 L I S P X L I N E ) ) ( P R
0010300 O G 1 ( C A D R L I S P X L
0010320 I N E ) ( F R P L A C A ( C
0010340 D R L I S P X L I N E ) ) ) )
0010360 ) ) ( d e f ( D E F I N E .
0010400 L O G I C A L . D E V I C E (
0010420 C A R \r L I S P X L I N E )
0010440 ( C A D R L I S P X L I N E )
0010460 ) ) ( D E F ( D E F I N E .
0010500 L O G I C A L . D E V I C E (
0010520 C A R L I S P X L I N E ) (
0010540 C A D R L I S P X L I N E ) )
0010560 ) ( d e f ? ( \r S H O W . L
0010600 O G I C A L . D E F I N I T I O
0010620 N S ( C A R L I S P X L I N
0010640 E ) ) ) ( D E F ? ( S H O W
0010660 . L O G I C A L . D E F I N I T
0010700 I O N S ( C A R L I S P X L
0010720 I N E ) ) ) ( d i r ( \r D O
0010740 D I R ( C O N S ( O R ( L
0010760 O G I C A L ? ( C A R L I S
0011000 P X L I N E ) ) ( Q U O T E
0011020 * . * ; * ) ) ( C D R L I S
0011040 P X L I N E ) ) ) ) ( D I R
0011060 ( D O D I R ( C O N S ( O R
0011100 ( \r L O G I C A L ? ( C A R
0011120 L I S P X L I N E ) ) ( Q U
0011140 O T E * . * ; * ) ) ( C D R
0011160 L I S P X L I N E ) ) ) ) (
0011200 t y ( R E S E T V A R * * C
0011220 O M M E N T * * F L G N I L
0011240 ( \r C O P Y A L L B Y T E S (
0011260 L O G I C A L ? ( C A R L I
0011300 S P X L I N E ) ) ( O R ( D
0011320 E F A U L T F I L E ( L O G I
0011340 C A L ? ( C A D R L I S P X
0011360 L I N E ) ) ( L O G I C A L ?
0011400 ( C A R \r L I S P X L I N E
0011420 ) ) ) T ) ( C A D D R L I
0011440 S P X L I N E ) ) ) ) ( T Y
0011460 ( R E S E T V A R * * C O M M
0011500 E N T * * F L G N I L ( C O
0011520 P Y A L L B Y T E S ( L O G I
0011540 C A L ? ( C A R \r L I S P X
0011560 L I N E ) ) ( O R ( D E F A
0011600 U L T F I L E ( L O G I C A L
0011620 ? ( C A D R L I S P X L I N
0011640 E ) ) ( L O G I C A L ? ( C
0011660 A R L I S P X L I N E ) ) )
0011700 T ) ( C A D D R \r L I S P X
0011720 L I N E ) ) ) ) ( k d ( K D
0011740 E L E T E ( L O G I C A L ?
0011760 ( C A R L I S P X L I N E ) )
0012000 ( C A D R L I S P X L I N E
0012020 ) ) ) ( K D ( K D E L E T E
0012040 ( L O G I C A L ? ( C A R
0012060 \r L I S P X L I N E ) ) ( C A
0012100 D R L I S P X L I N E ) ) )
0012120 ( d e l ( D O D I R ( C O N
0012140 S ( L O G I C A L ? ( C A R
0012160 L I S P X L I N E ) ) ( C D
0012200 R L I S P X L I N E ) ) ( Q
0012220 U O T E ( \r D E L E T E ) )
0012240 " " ( Q U O T E L ) ) ) (
0012260 D E L ( D O D I R ( C O N S
0012300 ( L O G I C A L ? ( C A R
0012320 L I S P X L I N E ) ) ( C D R
0012340 L I S P X L I N E ) ) ( Q U
0012360 O T E ( D E L E T E ) ) \r "
0012400 " ( Q U O T E L ) ) ) ) \r (
0012420 A D D T O V A R L I S P X C O
0012440 M S C O N N D I R T Y D
0012460 E L ) \r ( P U T P R O P S I N
0012500 F I L E R E A D V I C E ( N
0012520 I L ( B E F O R E N I L (
0012540 S E T Q F I L E ( L O G I C
0012560 A L ? F I L E ) ) ) ) ) \r ( P
0012600 U T P R O P S I N F I L E P
0012620 R E A D V I C E ( N I L ( B
0012640 E F O R E N I L ( S E T Q
0012660 F I L E ( L O G I C A L ? F
0012700 I L E ) ) ) ) ) \r ( P U T P R O
0012720 P S O U T F I L E R E A D V
0012740 I C E ( N I L ( B E F O R E
0012760 N I L ( S E T Q F I L E
0013000 ( L O G I C A L ? F I L E ) )
0013020 ) ) ) \r ( P U T P R O P S O U
0013040 T F I L E P R E A D V I C E
0013060 ( N I L ( B E F O R E N I L
0013100 ( S E T Q F I L E ( L O G
0013120 I C A L ? F I L E ) ) ) ) ) \r
0013140 ( P U T P R O P S O P E N S T
0013160 R E A M R E A D V I C E ( N
0013200 I L ( B E F O R E N I L (
0013220 S E T Q F I L E ( L O G I C
0013240 A L ? F I L E ) ) ) ) ) \r ( P
0013260 U T P R O P S O P E N F I L E
0013300 R E A D V I C E ( N I L (
0013320 B E F O R E N I L ( S E T Q
0013340 F I L E ( L O G I C A L ?
0013360 F I L E ) ) ) ) ) \r ( P U T P R
0013400 O P S C O P Y F I L E R E A
0013420 D V I C E ( N I L ( B E F O
0013440 R E N I L ( P R O G N ( O
0013460 R T O F I L E ( S E T Q T
0013500 O F I L E ( F I L E N A M E F
0013520 I E L D F R O M F I L E ( \r
0013540 Q U O T E N A M E ) ) ) ) (
0013560 C O N D ( ( A N D ( N U L L
0013600 ( F I L E N A M E F I E L D
0013620 T O F I L E ( Q U O T E N A
0013640 M E ) ) ) ( E Q ( Q U O T E
0013660 F L O P P Y ) ( \r F I L E N
0013700 A M E F I E L D T O F I L E
0013720 ( Q U O T E H O S T ) ) ) )
0013740 ( * I f F L O P P Y . M O D
0013760 E i s S Y S O U T t h e n
0014000 l e a v e i t , o t h e r
0014020 w i s e d e f a u l t i t )
0014040 \r ( A N D ( N E Q ( Q U O
0014060 T E S Y S O U T ) ( F L O P
0014100 P Y . M O D E ) ) ( S E T Q
0014120 T O F I L E ( D E F A U L T F
0014140 I L E ( L O G I C A L ? T O
0014160 F I L E ) ( L O G I C A L ?
0014200 F R O M F I L E \r ) ) ) ) ) (
0014220 T ( * D e f a u l t i t )
0014240 ( S E T Q T O F I L E ( D
0014260 E F A U L T F I L E ( L O G I
0014300 C A L ? T O F I L E ) ( L O
0014320 G I C A L ? F R O M F I L E )
0014340 ) ) ) ) ) ) ) ) \r ( R E A D V I
0014360 S E I N F I L E I N F I L E
0014400 P O U T F I L E O U T F I L
0014420 E P O P E N S T R E A M O P
0014440 E N F I L E C O P Y F I L E )
0014460 \r ( P U T P R O P S E X E C F
0014500 N S C O P Y R I G H T ( " J
0014520 e f f r e y S . S h u l m a
0014540 n " 1 9 8 3 1 9 8 4 1 9 8
0014560 5 ) ) \r N I L \r
0014570