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