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