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