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