$ od -c -N 50000 [eris]<LispCore>SOURCES>APUTDQ.DCOM!35
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 " X C
0000040 L " 247 P A C K A G E " I N T
0000060 E R L I S P " ) \r ( f i l e c r
0000100 e a t e d " 1 6 - O c t - 8 6
0000120 2 3 : 4 2 : 5 2 " ( " c o m
0000140 p i l e d o n " { e r i s
0000160 } < l i s p c o r e > s o u r c
0000200 e s > a p u t d q . \ ; 3 4 )
0000220 \r " 1 4 - O c t - 8 6 2 1 : 0
0000240 6 : 0 5 " | t c o m p l ' d |
0000260 | i n | " X e r o x L i s
0000300 p 1 4 - O c t - 8 6 . . . "
0000320 | d a t e d | " 1 4 - O c t
0000340 - 8 6 2 2 : 2 4 : 4 7 " ) \r (
0000360 f i l e c r e a t e d " 1 6 -
0000400 O c t - 8 6 2 3 : 4 1 : 5 7 "
0000420 { e r i s } < l i s p c o r e
0000440 > s o u r c e s > a p u t d q .
0000460 \ ; 3 4 2 8 1 1 0 | p r e v
0000500 i o u s | | d a t e : | \r "
0000520 1 3 - M a r - 8 6 1 2 : 5 9 :
0000540 0 4 " { e r i s } < l i s p c
0000560 o r e > s o u r c e s > a p u t
0000600 d q . \ ; 3 3 ) \r g r e e t f i
0000620 l e n a m e d 1 \r ( p 3 d
0000640 p 1 p o s p 0 f i l
0000660 e i 0 u s e r f 4 d
0000700 e f a u l t r e g i s t r y )
0000720 \0 233 004 001 \0 001 @ d i 360 262 ' 277 g \0 \0
0000740 \t \0 \0 265 h 021 020 \0 o \0 \0 \0 \t \0 \0 X
0000760 221 h 200 i 251 H \t \0 \0 \t \0 \0 X 262 353 H
0001000 020 264 J ` \0 \0 003 264 D T 264 016 g \0 \0 @
0001020 \t \0 \0 b \0 \n \0 \0 021 001 001 I 262 036 @ I
0001040 k 330 m 377 \v \0 \0 T \t \0 \0 \n \0 \0 232 @
0001060 k I k 331 \v \0 \0 b \0 277 ` \0 \0 d 001 003
0001100 241 h 032 021 021 003 J 003 265 004 h 020 001 273 o \0
0001120 \0 \0 @ ` \0 \0 h 032 032 K \v \0 \0 \t \0 \0
0001140 \t \0 \0 [ 221 h 200 i 241 K 020 J 002 Z 260 331
0001160 \0 ( 1 4 0 i n f i l e p 1 3
0001200 7 p a c k 1 3 4 s u b p a
0001220 i r 9 6 s u b s t r i n g
0001240 8 7 s t r e q u a l 8 4 m
0001260 k s t r i n g 8 0 s u b s t
0001300 r i n g 6 5 s t r p o s 6
0001320 0 u - c a s e 3 7 i n f i
0001340 l e p 3 4 m k a t o m 2 4
0001360 p r o m p t f o r w o r d 1
0001400 2 i n f i l e p ) \r ( 1 2 7
0001420 c o m p i l e . e x t 1 0 2
0001440 u s e r g r e e t f i l e s 5
0001460 6 \ . 4 7 u s e r g r e e
0001500 t f i l e s 9 { d s k } i n
0001520 i t . l i s p ) \r ( 1 2 3 (
0001540 u s e r c o m ) 2 1 " P l
0001560 e a s e e n t e r n a m e
0001600 o f s y s t e m i n i t f
0001620 i l e \r ( e . g . { s e r v e
0001640 r } < d i r e c t o r y > I N I
0001660 T . e x t e n s i o n ) : " )
0001700 \r f a u l t e v a l d 1 \r ( i
0001720 0 f a u l t x ) \0 006 \0 \0 003
0001740 001 @ \t \0 \0 020 \0 ( 3 r a i d ) \r
0001760 n i l \r ( ) \r f a u l t a p p l
0002000 y d 1 \r ( i 1 f a u l t a
0002020 r g s i 0 f a u l t f n )
0002040 \0 006 \0 \0 \0 002 @ \t \0 \0 020 \0 ( 3
0002060 r a i d ) \r n i l \r ( ) \r e r r
0002100 o r x d 1 \r ( i 0 e r x m
0002120 ) \0 006 \0 \0 \0 001 @ \t \0 \0 020 \0 ( 3
0002140 r a i d ) \r n i l \r ( ) \r s m
0002160 a s h f i l e c o m s d 1 \r (
0002200 p 0 f i l e c o m s i 0
0002220 f i l e ) \0 % 001 \0 \0 001 @ g \0
0002240 \0 h 032 032 \t \0 \0 021 001 \0 H \t \0 \0 264 022
0002260 H \t \0 \0 \t \0 \0 277 H g \0 \0 \n \0 \0 h
0002300 020 \0 ( 3 3 s e t 2 5 s m a
0002320 s h f i l e c o m s l s t 2 2
0002340 g e t t o p v a l 1 6 b o
0002360 u n d p 9 p a c k ) \r ( 3 0
0002400 n o b i n d 3 c o m s ) \r
0002420 ( ) \r s m a s h f i l e c o m s
0002440 l s t d 1 \r ( p 1 n a m e
0002460 p 0 c o m i 0 c o m
0002500 s ) \0 224 002 \0 \0 001 @ 260 B d 001 021 021
0002520 001 H d 002 001 g \0 \0 360 235 d 002 002 001 004 l
0002540 004 360 224 002 002 001 271 H 001 d g \0 \0 360 262 (
0002560 277 I 265 037 H 002 \t \0 \0 277 I 235 I 004 l 004
0002600 360 227 I g \0 \0 \n \0 \0 277 023 002 003 265 277 h
0002620 020 \t \0 \0 260 342 d g \0 \0 360 262 026 277 H d
0002640 002 001 g \0 \0 360 225 277 I \t \0 \0 200 002 Y 260
0002660 314 d g \0 \0 360 246 d g \0 \0 360 262 275 277 H
0002700 002 002 001 g \0 \0 360 262 263 H 002 002 002 001 004 l
0002720 004 360 262 250 H 002 002 002 001 Y 260 241 \0 ( 9 8
0002740 g e t t o p v a l 7 4 g e
0002760 t t o p v a l 6 3 s e t 4
0003000 7 s m a s h f i l e c o m s l
0003020 s t ) \r ( 1 2 4 * 1 1 3 i
0003040 f p r o p 1 0 7 p r o p 9
0003060 1 * 8 0 f i l e v a r s
0003100 6 0 n o b i n d 3 5 c o m
0003120 s 1 4 * ) \r ( ) \r r e s e t
0003140 r e s t o r e d 1 \r ( p 1
0003160 o l d v a l u e p 0 r e s
0003200 e t z i 1 r e s e t s t a
0003220 t e i 0 r e s e t v a r s
0003240 l s t 0 f 2 r e s e t v a
0003260 r s l s t ) \0 = 002 001 \0 002 021 001
0003300 R d 262 6 @ \n \0 \0 221 h 200 i 264 , R 001
0003320 270 R 002 c 004 277 H d 001 003 262 025 d 002 240 001
0003340 002 001 271 H 001 001 H 001 002 \n \0 \0 277 260 323 001
0003360 H 002 \n \0 \0 277 260 312 020 \0 ( 5 5 s e
0003400 t t o p v a l 4 6 a p p l y
0003420 1 0 t a i l p ) \r n i l \r (
0003440 ) \r r e s e t v a r s a 0 0 0 1
0003460 d 1 \r ( n a m e e r r o r s
0003500 e t p 0 r e s e t y f
0003520 1 r e s e t x ) \0 6 001 001 002 \0
0003540 Q 001 260 d 001 021 001 \0 H d 003 237 001 g \0
0003560 \0 H 002 g \0 \0 \v \0 \0 \n \0 \0 202 \t \0 \0
0003600 023 002 003 265 341 g \0 \0 h Q 002 032 g \0 \0 \v
0003620 \0 \0 h 032 020 \0 ( 4 9 a p p l y
0003640 3 1 s e t t o p v a l 2 7
0003660 s e t t o p v a l 2 4 a p p
0003700 l y ) \r ( 4 6 i n t e r n a l
0003720 3 9 p r o g 2 1 i n t e
0003740 r n a l 1 6 p r o g 1 ) \r (
0003760 ) \r r e s e t v a r s d 1 \r (
0004000 p 4 z p 3 r e s e t y
0004020 p 2 r e s e t w p 1
0004040 r e s e t y p 0 r e s e t
0004060 z i 0 r e s e t x f 5
0004100 r e s e t v a r s l s t ) \0
0004120 t 005 001 003 001 U 021 001 \0 @ 001 260 031 d 001 021
0004140 001 001 I d 003 223 001 I 001 200 d \t \0 \0 032 H
0004160 032 X 023 002 003 265 350 H 022 c \n 021 021 003 U [
0004200 o \0 \0 \0 g \0 \0 \n \0 \0 @ 001 260 026 d 001
0004220 021 001 004 J 001 001 J 001 002 \n \0 \0 277 J 002 Z
0004240 023 002 003 265 353 K U 360 224 J c \n 260 024 U K
0004260 \n \0 \0 221 h 200 i 230 U k K \v \0 \0 J 031
0004300 277 265 005 \b \0 \0 001 020 \0 ( 1 1 2 e r
0004320 r o r ! 1 0 4 n l e f t 9
0004340 3 t a i l p 7 0 s e t t o
0004360 p v a l 5 2 r e s e t v a r
0004400 s a 0 0 0 1 2 4 g e t t o p
0004420 v a l ) \r ( 4 9 i n t e r n a
0004440 l ) \r ( 4 6 ( r e s e t v a
0004460 r s a 0 0 0 1 ) ) \r r e s e t s
0004500 a v e d 1 \r ( p 0 x i
0004520 0 r e s e t x f 1 r e s
0004540 e t v a r s l s t ) \0 a 001 001 003
0004560 001 @ d 001 262 . 001 021 001 \0 H h 360 265 \b H
0004600 3 \b 264 003 i 022 262 033 @ 001 @ 001 \t \0 \0 032
0004620 @ 001 @ 002 001 g \0 \0 \n \0 \0 \n \0 \0 277 260
0004640 - @ 002 237 @ 002 001 \t \0 \0 @ 001 \t \0 \0 h
0004660 032 032 260 032 @ d 001 001 g \0 \0 360 222 001 002 002
0004700 001 001 @ 001 \t \0 \0 h 032 032 h 032 Q 032 c 002
0004720 020 \0 ( 8 5 e v a l 6 1 e v
0004740 a l 5 6 e v a l 4 4 s e
0004760 t t o p v a l 4 1 e v a l
0005000 2 9 g e t t o p v a l ) \r ( 7
0005020 3 s e t q 3 8 i n t e r n
0005040 a l ) \r ( ) \r r e s e t v a r
0005060 d 1 \r ( p 1 m a c r o y p
0005100 0 m a c r o x i 2 r e
0005120 s e t z i 1 r e s e t y
0005140 i 0 r e s e t x f 2 r
0005160 e s e t v a r s l s t ) \0 D 002
0005200 001 001 003 021 001 @ d \t \0 \0 032 R 032 c 004
0005220 X g \0 \0 g \0 \0 g \0 \0 @ h 032 032 A h
0005240 032 032 032 B h 032 032 032 g \0 \0 \n \0 \0 Y H
0005260 001 001 H 001 002 \n \0 \0 H 002 c 004 I 265 \a \b
0005300 \0 \0 h 020 001 020 \0 ( 6 2 e r r o r
0005320 ! 5 2 s e t t o p v a l 4
0005340 2 e r r o r s e t 7 g e t
0005360 t o p v a l ) \r ( 3 9 i n t e
0005400 r n a l 2 2 q u o t e 1 9
0005420 s e t t o p v a l 1 6 p r
0005440 o g n ) \r ( ) \r l o a d u p a 0
0005460 0 0 1 d 1 \r ( n a m e e r r
0005500 o r s e t f 0 l o a d u p
0005520 d i r e c t o r i e s f 1
0005540 x ) \0 027 \0 002 002 \0 g \0 \0 P \n \0 \0
0005560 277 o \0 \0 \0 Q h 032 032 \t \0 \0 h 032 020 \0
0005600 ( 1 8 d o f i l e s l o a d
0005620 6 s e t t o p v a l ) \r ( 2
0005640 d i r e c t o r i e s ) \r ( 1
0005660 1 ( s y s l o a d f r o m
0005700 v a l u e o f l o a d u p d i
0005720 r e c t o r i e s ) ) \r l o a d
0005740 u p d 1 \r ( p 2 m a c r o
0005760 y p 1 m a c r o x p 0
0006000 x i 0 o p t i o n / f i
0006020 l e s f 3 b o o t l o a d
0006040 e d f i l e s f 4 s y s f
0006060 i l e s f 5 r e s e t v a
0006100 r s l s t ) 001 5 003 003 \0 001 @ 232 @
0006120 d g \0 \0 360 242 261 \0 324 277 g \0 \0 027 \0 \0
0006140 S 221 h 200 i 263 024 S 001 S 002 c 006 277 d T
0006160 034 243 T 032 c \b 277 260 351 o \0 \0 \0 \t \0 \0
0006200 o \0 \0 \0 \t \0 \0 o \0 \0 \0 \t \0 \0 o \0
0006220 \0 \0 \t \0 \0 o \0 \0 \0 \t \0 \0 o \0 \0 \0
0006240 \t \0 \0 o \0 \0 \0 \t \0 \0 o \0 \0 \0 \t \0
0006260 \0 o \0 \0 \0 \t \0 \0 o \0 \0 \0 \t \0 \0 g
0006300 \0 \0 \t \0 \0 g \0 \0 \t \0 \0 o \0 \0 \0 \t
0006320 \0 \0 o \0 \0 \0 \t \0 \0 o \0 \0 \0 \t \0 \0
0006340 o \0 \0 \0 \t \0 \0 o \0 \0 \0 \t \0 \0 o \0
0006360 \0 \0 \t \0 \0 o \0 \0 \0 \t \0 \0 o \0 \0 \0
0006400 \t \0 \0 o \0 \0 \0 \t \0 \0 o \0 \0 \0 b \0
0006420 277 277 277 277 277 277 277 277 277 277 277 277 277 277 277 277
0006440 277 277 277 277 277 277 277 261 377 & 003 262 M @ 260 E
0006460 d 001 021 001 \0 H d T 034 263 5 277 021 002 g
0006500 \0 \0 d \t \0 \0 032 U 032 c \n 271 o \0 \0 \0
0006520 g \0 \0 \n \0 \0 272 g \0 \0 I 001 002 \n \0 \0
0006540 277 I 002 c \n 277 J 243 \b \0 \0 277 023 H \t \0
0006560 \0 023 002 003 265 274 h 020 o \0 \0 \0 @ \n \0 \0
0006600 020 \0 ( 3 0 6 h e l p 2 9 1
0006620 s m a s h f i l e c o m s 2 8
0006640 5 e r r o r ! 2 7 4 s e t
0006660 t o p v a l 2 6 4 l o a d u
0006700 p a 0 0 0 1 2 4 8 g e t t o
0006720 p v a l 1 8 8 l o a d u p
0006740 1 8 1 l o a d u p 1 7 4 l
0006760 o a d u p 1 6 7 l o a d u p
0007000 1 6 0 l o a d u p 1 5 3
0007020 l o a d u p 1 4 6 l o a d u
0007040 p 1 3 9 l o a d u p 1 3 2
0007060 l o a d u p 1 2 5 c o m p
0007100 i l e m o d e 1 1 9 d w i m
0007120 1 1 3 l o a d u p 1 0 6
0007140 l o a d u p 9 9 l o a d u p
0007160 9 2 l o a d u p 8 5 l o
0007200 a d u p 7 8 l o a d u p 7
0007220 1 l o a d u p 6 4 l o a d
0007240 u p 5 7 l o a d u p 5 0
0007260 l o a d u p ) \r ( 2 6 8 d i r
0007300 e c t o r i e s 2 6 1 i n t
0007320 e r n a l 2 4 4 d i r e c t
0007340 o r i e s 1 2 2 d 1 1 6
0007360 c 1 8 c o m p i l e . e x t
0007400 1 5 d c o m 6 h u g e )
0007420 \r ( 3 0 2 " B A D L O A D
0007440 U P O P T I O N " 2 5 8 (
0007460 l o a d u p a 0 0 0 1 ) 1 9 2
0007500 ( i d l e r ) 1 8 5 ( s p
0007520 p c o u r i e r n s p r i n
0007540 t c l e a r i n g h o u s e
0007560 n s f i l i n g h a r d c o p
0007600 y p r e s s p u p p r i n t
0007620 i n t e r p r e s s f l o p
0007640 p y ) \r 1 7 8 ( l l f c o m
0007660 p i l e ) 1 7 1 ( b r k d w
0007700 n m a t c h ) 1 6 4 ( 1 0
0007720 m b d r i v e r l l n s t r
0007740 s e r v e r ) 1 5 7 ( d i s
0007760 k d l i o n d o v e i n p u t
0010000 o u t p u t d o v e d i s k
0010020 d o v e d i s p l a y d o v e
0010040 m i s c d o v e e t h e r d
0010060 o v e f l o p p y l o c a l f
0010100 i l e d s k d i s p l a y ) \r
0010120 1 5 0 ( d e d i t t t y i
0010140 n ) 1 4 3 ( d e x e c i n
0010160 s p e c t ) 1 3 6 ( a d i s
0010200 p l a y h l d i s p l a y m
0010220 e n u w i n d o w a t t a c
0010240 h e d w i n d o w w b r e a k
0010260 x x g e o m x x f i l l ) \r
0010300 1 2 9 ( a a r i t h ) 1 1
0010320 0 ( m s a n a l y z e m s p
0010340 a r s e m a s t e r s c o p e
0010360 ) 1 0 3 ( h p r i n t m a
0010400 c r o a u x a d d a r i t h )
0010420 9 6 ( c o m m o n ) 8 9
0010440 ( h i s t u n d o s p e l l
0010460 d w i m w t f i x c l i s
0010500 p d w i m i f y c l i s p i
0010520 f y r e c o r d a s s i s t
0010540 h e l p d l ) \r 8 2 ( m a
0010560 c r o s d l a p b y t e c o
0010600 m p i l e r c o m p i l e )
0010620 7 5 ( c o m p a t i b i l i t
0010640 y b r e a k f i l e p k g
0010660 r e s o u r c e ) 6 8 ( e d
0010700 i t w e d i t p r e t t y
0010720 d s p r i n t d e f n e w p r
0010740 i n t d e f c o m m e n t a
0010760 d v i s e l o a d f n s d m
0011000 i s c d f i l e ) \r 6 1 (
0011020 a f o n t ) 5 4 ( b s p d
0011040 p u p f t p ) 4 7 ( a c o d
0011060 e m a c h i n e i n d e p e n
0011100 d e n t p o s t l o a d u p )
0011120 ) \r e n d l o a d u p d 1 \r (
0011140 p 1 x p 0 r f 2
0011160 u s e r r e c l s t f 3 s
0011200 y s t e m i n i t v a r s ) \0
0011220 - 002 002 \0 \0 R 215 d 001 021 001 \0 H g \0 \0
0011240 \n \0 \0 023 002 003 265 361 S 260 023 d 001 021 001 001
0011260 I 001 I 002 \t \0 \0 \n \0 \0 023 002 003 265 356 h
0011300 020 \0 ( 3 6 s e t t o p v a l
0011320 3 3 c o p y 1 3 r e c o r
0011340 d p r i o r i t y ) \r ( 1 0 s
0011360 y s t e m ) \r ( ) \r ( p r e t t
0011400 y c o m p r i n t a p u t d q
0011420 c o m s ) \r ( r p a q q a p u
0011440 t d q c o m s ( ( f n s g r
0011460 e e t f i l e n a m e f a u l
0011500 t e v a l f a u l t a p p l y
0011520 e r r o r x ) ( f n s s m
0011540 a s h f i l e c o m s s m a s
0011560 h f i l e c o m s l s t \r ) (
0011600 i n i t v a r s ( d e f a u l
0011620 t r e g i s t r y ) ( u s e r
0011640 g r e e t f i l e s ) ( l o g
0011660 i n h o s t / d i r ( q u o t
0011700 e { d s k } ) ) ) ( f n s
0011720 r e s e t r e s t o r e \r r e
0011740 s e t v a r s r e s e t s a v
0011760 e r e s e t v a r ) ( f n s
0012000 l o a d u p e n d l o a d u
0012020 p ) ( v a r s l o a d u p d
0012040 i r e c t o r i e s ) ( a l i
0012060 s t s ( s y s t e m i n i t v
0012100 a r s \r \ \ c o n n e c t e d
0012120 . d i r e c t o r y d w i m f
0012140 l g a d d s p e l l f l g f
0012160 i l e p k g f l g b u i l d m
0012200 a p f l g u p d a t e m a p f
0012220 l g d e f a u l t r e g i s t
0012240 r y \r d e f a u l t p r i n t
0012260 i n g h o s t d i r e c t o r
0012300 i e s u s e r g r e e t f i l
0012320 e s n e t w o r k o s t y p e
0012340 s c h . n e t . h i n t c h
0012360 . d e f a u l t . d o m a i n
0012400 \r c h . d e f a u l t . o r g a
0012420 n i z a t i o n a d v i s e d
0012440 f n s l i s p u s e r s d i r
0012460 e c t o r i e s d i s p l a y
0012500 f o n t d i r e c t o r i e s
0012520 d i s p l a y f o n t e x t e n
0012540 s i o n s \r i n t e r p r e s
0012560 s f o n t d i r e c t o r i e s
0012600 p r e s s f o n t w i d t h s
0012620 f i l e s ) ) ( d e c l a r e
0012640 \ : d o n t e v a l @ l o a d
0012660 d o c o p y ( p ( s e t i
0012700 n t e r r u p t 4 ( \r q u o
0012720 t e r e s e t ) ) ( s e t i
0012740 n t e r r u p t 2 0 ( q u o
0012760 t e c o n t r o l - t ) ) )
0013000 ( p ( d u m m y d e f ( a d
0013020 d s t a t s * ) ( s t a t i
0013040 n i t n i l l ) ( \r l i s p
0013060 x w a t c h n i l l ) ( c l
0013100 b u f s n i l l ) ( f i n d
0013120 f i l e i n f i l e p ) ( f
0013140 i l e m a p * ) ( v i r g i
0013160 n f n g e t d ) ( m k s w a
0013200 p p n i l l ) ) ( \r d u m m
0013220 y d e f ( u s e r n u m b e r
0013240 z e r o ) ( h o s t n u m b
0013260 e r z e r o ) ( h o s t n a
0013300 m e n i l l ) ( t r a p c o
0013320 u n t z e r o ) ) ( d u m m
0013340 y d e f ( * q u o t e ) (
0013360 \r g e t p g e t p r o p ) (
0013400 d e c l a r e q u o t e ) (
0013420 f r p l n o d e 2 r p l n o d
0013440 e 2 ) ( d i s p l a y t e r m
0013460 p t r u e ) ( m i n f s e
0013500 v q ) ( f r p l a c a r p l
0013520 a c a ) ( \r f r p l a c d r
0013540 p l a c d ) ( m i s s p e l l
0013560 e d ? n i l l ) ( u n d o s
0013600 a v e n i l l ) ( s e t l i
0013620 n e l e n g t h z e r o ) (
0013640 d o b e n i l l ) ( r e l i
0013660 n k n i l l ) ( p u t \r p
0013700 u t p r o p ) ( / p u t p u
0013720 t p r o p ) ( m k s w a p e
0013740 v q ) ) ) ( a d d v a r s (
0013760 s y s f i l e s ) ( l i s p x
0014000 h i s t o r y ) ( l i n k e d
0014020 f n s ) ) ( v a r s ( \r s h
0014040 a l l o w f l g ) ( s p a g h
0014060 e t t i f l g t ) ( w i d e
0014100 p a p e r f l g t ) ( c l e
0014120 a r s t k l s t t ) ( s y s
0014140 h a s h a r r a y ( h a s h a
0014160 r r a y 5 0 ) ) ( \r d i s p
0014200 l a y t e r m f l g t ) ( \
0014220 # u n d o s a v e s ) ( n l a
0014240 m a ) ( n l a m l ) ( l a m
0014260 s ) ( e v a l q t f o r m s )
0014300 ( t t y l i n e l e n g t h
0014320 8 2 ) ( c o m p i l e . e x t
0014340 ( \r q u o t e d c o m ) )
0014360 ( s y s o u t . e x t ( q u o
0014400 t e s y s o u t ) ) ( h o s
0014420 t n a m e ) ( s y s t e m t y
0014440 p e ( s y s t e m t y p e ) )
0014460 ) ( p ( g c g a g t ) ) )
0014500 ( \r d e c l a r e \ : d o n
0014520 t e v a l @ l o a d d o e v a
0014540 l @ c o m p i l e d o n t c o
0014560 p y c o m p i l e r v a r s
0014600 ( a d d v a r s ( n l a m a
0014620 r e s e t s a v e r e s e t v
0014640 a r s ) ( \r n l a m l r e s
0014660 e t v a r ) ( l a m a ) ) ) )
0014700 ) \r ( r p a q ? d e f a u l t
0014720 r e g i s t r y ) \r ( r p a q ?
0014740 u s e r g r e e t f i l e s )
0014760 \r ( r p a q ? l o g i n h o s
0015000 t / d i r ( q u o t e { d s
0015020 k } ) ) \r ( r p a q q l o a d
0015040 u p d i r e c t o r i e s ( {
0015060 e r i s } < l i s p c o r e > s
0015100 o u r c e s > { e r i s } < l
0015120 i s p c o r e > l i b r a r y >
0015140 { e r i s } < l i s p u s e r
0015160 s > ) ) \r ( a d d t o v a r s
0015200 y s t e m i n i t v a r s ( \
0015220 \ c o n n e c t e d . d i r e c
0015240 t o r y . { d s k } ) ( d
0015260 w i m f l g . t ) ( a d d
0015300 s p e l l f l g . t ) ( f
0015320 i l e p k g f l g \r . t )
0015340 ( b u i l d m a p f l g . t
0015360 ) ( u p d a t e m a p f l g
0015400 . t ) ( d e f a u l t r e g
0015420 i s t r y ) ( d e f a u l t p
0015440 r i n t i n g h o s t ) ( d i
0015460 r e c t o r i e s ) ( \r u s e
0015500 r g r e e t f i l e s ) ( n e
0015520 t w o r k o s t y p e s ) ( c
0015540 h . n e t . h i n t ) ( c h .
0015560 d e f a u l t . d o m a i n )
0015600 ( c h . d e f a u l t . o r g a
0015620 n i z a t i o n ) ( \r a d v i
0015640 s e d f n s ) ( l i s p u s e
0015660 r s d i r e c t o r i e s { d
0015700 s k } ) ( d i s p l a y f o n
0015720 t d i r e c t o r i e s { d s
0015740 k } ) ( d i s p l a y f o n t
0015760 e x t e n s i o n s \r d i s p
0016000 l a y f o n t ) ( i n t e r p
0016020 r e s s f o n t d i r e c t o r
0016040 i e s { d s k } ) ( p r e s
0016060 s f o n t w i d t h s f i l e s
0016100 { d s k } f o n t s . w i d t
0016120 h s ) ) \r ( s e t i n t e r r u
0016140 p t 4 ( q u o t e r e s e
0016160 t ) ) \r ( s e t i n t e r r u p
0016200 t 2 0 ( q u o t e c o n t
0016220 r o l - t ) ) \r ( d u m m y d e
0016240 f ( a d d s t a t s * ) (
0016260 s t a t i n i t n i l l ) (
0016300 l i s p x w a t c h n i l l )
0016320 ( c l b u f s n i l l ) (
0016340 f i n d f i l e i n f i l e p
0016360 ) ( f i l e m a p * ) \r (
0016400 v i r g i n f n g e t d ) (
0016420 m k s w a p p n i l l ) ) \r (
0016440 d u m m y d e f ( u s e r n u
0016460 m b e r z e r o ) ( h o s t
0016500 n u m b e r z e r o ) ( h o
0016520 s t n a m e n i l l ) ( t r
0016540 a p c o u n t z e r o ) ) \r (
0016560 d u m m y d e f ( * q u o t
0016600 e ) ( g e t p g e t p r o p
0016620 ) ( d e c l a r e q u o t e
0016640 ) ( f r p l n o d e 2 r p l
0016660 n o d e 2 ) ( d i s p l a y t
0016700 e r m p t r u e ) ( m i n f
0016720 s e v q \r ) ( f r p l a c a
0016740 r p l a c a ) ( f r p l a c
0016760 d r p l a c d ) ( m i s s p
0017000 e l l e d ? n i l l ) ( u n
0017020 d o s a v e n i l l ) ( s e
0017040 t l i n e l e n g t h z e r o
0017060 ) ( d o b e n i l l \r ) (
0017100 r e l i n k n i l l ) ( p u
0017120 t p u t p r o p ) ( / p u t
0017140 p u t p r o p ) ( m k s w a
0017160 p e v q ) ) \r ( a d d t o v a
0017200 r s y s f i l e s ) \r ( a d d
0017220 t o v a r l i s p x h i s t o
0017240 r y ) \r ( a d d t o v a r l i
0017260 n k e d f n s ) \r ( r p a q q
0017300 s h a l l o w f l g n i l ) \r
0017320 ( r p a q q s p a g h e t t i
0017340 f l g t ) \r ( r p a q q w i
0017360 d e p a p e r f l g t ) \r ( r
0017400 p a q q c l e a r s t k l s t
0017420 t ) \r ( r p a q s y s h a s
0017440 h a r r a y ( h a s h a r r a
0017460 y 5 0 ) ) \r ( r p a q q d i
0017500 s p l a y t e r m f l g t ) \r
0017520 ( r p a q q \ # u n d o s a v
0017540 e s n i l ) \r ( r p a q q n
0017560 l a m a n i l ) \r ( r p a q q
0017600 n l a m l n i l ) \r ( r p a
0017620 q q l a m s n i l ) \r ( r p
0017640 a q q e v a l q t f o r m s
0017660 n i l ) \r ( r p a q q t t y l
0017700 i n e l e n g t h 8 2 ) \r ( r
0017720 p a q q c o m p i l e . e x t
0017740 d c o m ) \r ( r p a q q s y
0017760 s o u t . e x t s y s o u t )
0020000 \r ( r p a q q h o s t n a m e
0020020 n i l ) \r ( r p a q s y s t
0020040 e m t y p e ( s y s t e m t y
0020060 p e ) ) \r ( g c g a g t ) \r (
0020100 p r e t t y c o m p r i n t a
0020120 p u t d q c o m s ) \r ( r p a q
0020140 q a p u t d q c o m s ( ( f
0020160 n s g r e e t f i l e n a m e
0020200 f a u l t e v a l f a u l t
0020220 a p p l y e r r o r x ) ( f
0020240 n s s m a s h f i l e c o m s
0020260 s m a s h f i l e c o m s l s
0020300 t \r ) ( i n i t v a r s ( d
0020320 e f a u l t r e g i s t r y )
0020340 ( u s e r g r e e t f i l e s )
0020360 ( l o g i n h o s t / d i r
0020400 ( q u o t e { d s k } ) ) )
0020420 ( f n s r e s e t r e s t o r
0020440 e \r r e s e t v a r s r e s
0020460 e t s a v e r e s e t v a r )
0020500 ( f n s l o a d u p e n d
0020520 l o a d u p ) ( v a r s l o
0020540 a d u p d i r e c t o r i e s )
0020560 ( a l i s t s ( s y s t e m
0020600 i n i t v a r s \r \ \ c o n n
0020620 e c t e d . d i r e c t o r y
0020640 d w i m f l g a d d s p e l l
0020660 f l g f i l e p k g f l g b
0020700 u i l d m a p f l g u p d a t
0020720 e m a p f l g d e f a u l t r
0020740 e g i s t r y \r d e f a u l t
0020760 p r i n t i n g h o s t d i r
0021000 e c t o r i e s u s e r g r e
0021020 e t f i l e s n e t w o r k o
0021040 s t y p e s c h . n e t . h i
0021060 n t c h . d e f a u l t . d o
0021100 m a i n \r c h . d e f a u l t
0021120 . o r g a n i z a t i o n a d
0021140 v i s e d f n s l i s p u s e
0021160 r s d i r e c t o r i e s d i
0021200 s p l a y f o n t d i r e c t o
0021220 r i e s d i s p l a y f o n t
0021240 e x t e n s i o n s \r i n t e
0021260 r p r e s s f o n t d i r e c t
0021300 o r i e s p r e s s f o n t w
0021320 i d t h s f i l e s ) ) ( d e
0021340 c l a r e \ : d o n t e v a l
0021360 @ l o a d d o c o p y ( p
0021400 ( s e t i n t e r r u p t 4
0021420 ( \r q u o t e r e s e t ) )
0021440 ( s e t i n t e r r u p t 2 0
0021460 ( q u o t e c o n t r o l -
0021500 t ) ) ) ( p ( d u m m y d e
0021520 f ( a d d s t a t s * ) (
0021540 s t a t i n i t n i l l ) (
0021560 \r l i s p x w a t c h n i l l
0021600 ) ( c l b u f s n i l l )
0021620 ( f i n d f i l e i n f i l e
0021640 p ) ( f i l e m a p * ) (
0021660 v i r g i n f n g e t d ) (
0021700 m k s w a p p n i l l ) ) (
0021720 \r d u m m y d e f ( u s e r n
0021740 u m b e r z e r o ) ( h o s
0021760 t n u m b e r z e r o ) ( h
0022000 o s t n a m e n i l l ) ( t
0022020 r a p c o u n t z e r o ) )
0022040 ( d u m m y d e f ( * q u o
0022060 t e ) ( \r g e t p g e t p r
0022100 o p ) ( d e c l a r e q u o
0022120 t e ) ( f r p l n o d e 2 r
0022140 p l n o d e 2 ) ( d i s p l a
0022160 y t e r m p t r u e ) ( m i
0022200 n f s e v q ) ( f r p l a c
0022220 a r p l a c a ) ( \r f r p l
0022240 a c d r p l a c d ) ( m i s
0022260 s p e l l e d ? n i l l ) (
0022300 u n d o s a v e n i l l ) (
0022320 s e t l i n e l e n g t h z e
0022340 r o ) ( d o b e n i l l )
0022360 ( r e l i n k n i l l ) ( p
0022400 u t \r p u t p r o p ) ( / p
0022420 u t p u t p r o p ) ( m k s
0022440 w a p e v q ) ) ) ( a d d v
0022460 a r s ( s y s f i l e s ) (
0022500 l i s p x h i s t o r y ) ( l
0022520 i n k e d f n s ) ) ( v a r s
0022540 ( \r s h a l l o w f l g ) (
0022560 s p a g h e t t i f l g t )
0022600 ( w i d e p a p e r f l g t )
0022620 ( c l e a r s t k l s t t )
0022640 ( s y s h a s h a r r a y (
0022660 h a s h a r r a y 5 0 ) ) (
0022700 \r d i s p l a y t e r m f l g
0022720 t ) ( \ # u n d o s a v e s )
0022740 ( n l a m a ) ( n l a m l )
0022760 ( l a m s ) ( e v a l q t f
0023000 o r m s ) ( t t y l i n e l e
0023020 n g t h 8 2 ) ( c o m p i l
0023040 e . e x t ( \r q u o t e d c
0023060 o m ) ) ( s y s o u t . e x t
0023100 ( q u o t e s y s o u t ) )
0023120 ( h o s t n a m e ) ( s y s
0023140 t e m t y p e ( s y s t e m t
0023160 y p e ) ) ) ( p ( g c g a g
0023200 t ) ) ) ( \r d e c l a r e \
0023220 : d o n t e v a l @ l o a d
0023240 d o e v a l @ c o m p i l e d
0023260 o n t c o p y c o m p i l e r
0023300 v a r s ( a d d v a r s ( n
0023320 l a m a r e s e t s a v e r
0023340 e s e t v a r s \r f a u l t e
0023360 v a l ) ( n l a m l r e s e
0023400 t v a r ) ( l a m a ) ) ) ) )
0023420 \r ( p u t p r o p s a p u t d
0023440 q c o p y r i g h t ( " X e
0023460 r o x C o r p o r a t i o n "
0023500 1 9 8 1 1 9 8 2 1 9 8 3
0023520 1 9 8 4 1 9 8 5 1 9 8 6 ) )
0023540 \r n i l \r
0023545