$ od -c -N 50000 [eris]<LispCore>SOURCES>FILEPKG!110
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 7 - O c t - 8 6 1 8 : 1 9 : 0
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 P K G . ; 1 1 0 006 001 2 6 4 5
0000220 0 3 \r \r c h a n g
0000240 e s t o % : ( F N S C O
0000260 M P I L E - F I L E ? F I L E
0000300 S ? F I L E S ? 1 F I L E S
0000320 ? P R I N T L S T M A K E F I
0000340 L E 1 S E P R C A S E E D I
0000360 T C A L L E R S \r
0000400
0000420 S E A R C H P R E T T Y T
0000440 Y P E L S T P R E T T Y D E F
0000460 M A C R O S C L E A N U P C
0000500 O N T I N U E D I T M A K E F
0000520 I L E F I L E C H A N G E S
0000540 \r
0000560 F I L E P K
0000600 G . M E R G E C H A N G E S F
0000620 I L E P K G . C H A N G E D F N
0000640 S M A K E F I L E S A D D F
0000660 I L E A D D F I L E 0 L I S
0000700 T F I L E S \r
0000720
0000740 G E T F I L E P K G T Y P E
0000760 M A R K A S C H A N G E D W H
0001000 E R E I S F I L E C O M S L S
0001020 T U P D A T E F I L E S I N
0001040 F I L E C O M S ? \r
0001060
0001100 I N F I L E C O M I N
0001120 F I L E C O M S V A L I F C P
0001140 R O P S I F C E X P R T Y P E
0001160 I F C P R O P S C A N I N F
0001200 I L E C O M S M A C R O \r
0001220
0001240 A D D T O F I L E
0001260 S ? A D D T O F I L E W H A
0001300 T I S A D D T O C O M S A D
0001320 D T O C O M A D D T O C O M 1
0001340 A D D N E W C O M \r
0001360
0001400 M A K E N E W C O M
0001420 D E F A U L T M A K E N E W C O
0001440 M M E R G E I N S E R T M E
0001460 R G E I N S E R T 1 D E L F R
0001500 O M F I L E S \r
0001520
0001540 D E L F R O M C O M D E L
0001560 F R O M C O M 1 R E M O V E I
0001600 T E M M O V E T O F I L E S
0001620 A V E P U T U N M A R K A S C
0001640 H A N G E D \r
0001660
0001700 P R E E D I T F N P O S T E
0001720 D I T P R O P S P O S T E D I
0001740 T A L I S T S A L I S T S . W
0001760 H E N C H A N G E D C L E A R
0002000 C L I S P A R R A Y \r
0002020
0002040 M A K E A L I S T C O
0002060 M S M A K E F I L E S C O M S
0002100 M A K E P R O P S C O M S F
0002120 I L E G E T D E F . L I S P X M
0002140 A C R O S \r
0002160
0002200 F I L E P K G C O M S . P U T D
0002220 E F F I L E S . P U T D E F
0002240 R E N A M E C H A N G E C A L
0002260 L E R S C O P Y D E F G E T
0002300 D E F \r
0002320 G E
0002340 T D E F C O M G E T D E F C O
0002360 M 0 G E T D E F E R R G E T
0002400 D E F S A V E D E D I T D E F
0002420 D E F A U L T . E D I T D E F
0002440 \r
0002460 E D I T D
0002500 E F . F N S D E L D E F H A
0002520 S D E F G E T F I L E D E F
0002540 U N S A V E D E F T Y P E S O
0002560 F E D I T F R O M F I L E \r
0002600
0002620 I M P O R T F
0002640 I L E I M P O R T E V A L I
0002660 M P O R T F I L E S C A N C H
0002700 E C K I M P O R T S \ D U M P
0002720 E X P O R T S ) \r
0002740 ( V A
0002760 R S F I L E P K G C O M S ) \r
0003000
0003020 ( F I L E P K G C O M S
0003040 A L I S T S D E F S F I L
0003060 E S F I L E V A R S F N S
0003100 I N I T R E C O R D S L I S P
0003120 X M A C R O S M A C R O S P
0003140 R O P S \r
0003160
0003200 R E C O R D S S Y S R E C O
0003220 R D S U S E R M A C R O S V
0003240 A R S C O N S T A N T S E X
0003260 P O R T ) \r \r p r e
0003300 v i o u s d a t e % : " 1 4
0003320 - O c t - 8 6 2 3 : 1 3 : 3 4
0003340 " { E R I S } < L I S P C O R
0003360 E > S O U R C E S > F I L E P K
0003400 G . ; 1 0 6 ) \r \r \r ( * " \r C
0003420 o p y r i g h t ( c ) 1 9 8
0003440 2 , 1 9 8 3 , 1 9 8 4 , 1
0003460 9 8 5 , 1 9 8 6 b y X e r
0003500 o x C o r p o r a t i o n .
0003520 A l l r i g h t s r e s e
0003540 r v e d . \r T h e f o l l o w
0003560 i n g p r o g r a m w a s
0003600 c r e a t e d i n 1 9 8 2
0003620 b u t h a s n o t b e e n
0003640 p u b l i s h e d \r w i t h i
0003660 n t h e m e a n i n g o f
0003700 t h e c o p y r i g h t l
0003720 a w , i s f u r n i s h e d
0003740 u n d e r l i c e n s e , \r
0003760 a n d m a y n o t b e u
0004000 s e d , c o p i e d a n d /
0004020 o r d i s c l o s e d e x c
0004040 e p t i n a c c o r d a n c
0004060 e \r w i t h t h e t e r m s
0004100 o f s a i d l i c e n s e
0004120 . \r " ) \r \r ( P R E T T Y C O M
0004140 P R I N T F I L E P K G C O M
0004160 S ) \r \r ( R P A Q Q 006 002 F I L
0004200 E P K G C O M S 006 001 \r
0004220 [ ( C O M S ( * ; \r
0004240 "
0004260 s t a n d a r d r e c o r d s
0004300 f o r a c c e s s i n g f
0004320 i l e p a c k a g e t y p e
0004340 / c o m m a n d p a r t s .
0004360 E x p o r t e d f o r P R
0004400 E T T Y " \r
0004420 ) \r
0004440 ( V A R S F I L
0004460 E P K G T Y P E P R O P S ) \r
0004500 ( E X
0004520 P O R T ( D E C L A R E % :
0004540 E V A L @ C O M P I L E D O N
0004560 T C O P Y ( R E C O R D S *
0004600 F I L E P K G R E C O R D S )
0004620 ) ) \r
0004640 ( F N S S E A R C H P R E T
0004660 T Y T Y P E L S T P R E T T Y
0004700 D E F M A C R O S F I L E P K
0004720 G C O M P R O P S ) \r
0004740 ( I N I T R E
0004760 C O R D S * F I L E P K G R
0005000 E C O R D S ) ) \r
0005020 ( I N I T V A R S ( M S D A
0005040 T A B A S E L S T ) ) \r
0005060 [ C O M S ( * ; ;
0005100 " m a k i n g , a d d i n g ,
0005120 l i s t i n g , c o m p i l
0005140 i n g f i l e s " ) \r
0005160 ( F N S C
0005200 L E A N U P C O M P I L E F I
0005220 L E S C O M P I L E F I L E S
0005240 0 C O N T I N U E D I T M A
0005260 K E F I L E F I L E C H A N G
0005300 E S \r
0005320 F I L E P K G . M
0005340 E R G E C H A N G E S F I L E
0005360 P K G . C H A N G E D F N S M
0005400 A K E F I L E 1 C O M P I L E
0005420 - F I L E ? M A K E F I L E S
0005440 A D D F I L E \r
0005460 A D D
0005500 F I L E 0 L I S T F I L E S )
0005520 \r (
0005540 I N I T V A R S ( F I L E L S
0005560 T ) \r
0005600 ( L O A D E D F
0005620 I L E L S T ) \r
0005640 ( N O
0005660 T L I S T E D F I L E S ) \r
0005700
0005720 ( N O T C O M P I L E D F
0005740 I L E S ) \r
0005760 ( M A K E
0006000 F I L E F O R M S ) \r
0006020
0006040 ( N I L C O M S ) ) \r
0006060 ( A D D V A R
0006100 S ( M A K E F I L E O P T I O
0006120 N S R C C L I S T F A S
0006140 T C L I S P C L I S P I F Y
0006160 N I L R E M A K E N E W
0006200 N O C L I S P C L I S P %
0006220 \r
0006240 F
0006260 S T S T F ( R E C . R
0006300 C ) \r
0006320
0006340 ( B R E C . R C ) \r
0006360
0006400 ( T C .
0006420 C ) \r
0006440
0006460 ( B C . C ) \r
0006500
0006520 ( T C O M P L
0006540 . C ) \r
0006560
0006600 ( B C O M P L . C )
0006620 ) ) \r
0006640 ( I N I T V A R S ( M A K E
0006660 F I L E R E M A K E F L G T )
0006700 \r
0006720 ( C L E A N U P O P
0006740 T I O N S ' ( R C ] \r
0006760 ( C O M S ( * ; ;
0007000 " s c a n n i n g f i l e c
0007020 o m s " ) \r
0007040 ( F N S F I L E P K G
0007060 C H A N G E S G E T F I L E P
0007100 K G T Y P E M A R K A S C H A
0007120 N G E D F I L E C O M S W H
0007140 E R E I S S M A S H F I L E C
0007160 O M S \r
0007200 F I L E F N S L
0007220 S T F I L E C O M S L S T U
0007240 P D A T E F I L E S I N F I L
0007260 E C O M S ? I N F I L E C O M
0007300 T A I L I N F I L E C O M S
0007320 I N F I L E C O M \r
0007340 I N
0007360 F I L E C O M S V A L S I N F
0007400 I L E C O M S V A L I N F I L
0007420 E C O M S P R O P I F C P R O
0007440 P S I F C E X P R T Y P E I
0007460 F C P R O P S C A N \r
0007500 I
0007520 F C D E C L A R E I N F I L E
0007540 P A I R S I N F I L E C O M S
0007560 M A C R O ) ) \r
0007600 ( C O M S ( * ; ; " a d d
0007620 i n g t o a f i l e " ) \r
0007640 ( F
0007660 N S F I L E S ? F I L E S ?
0007700 1 F I L E S ? P R I N T L S T
0007720 A D D T O F I L E S ? A D D
0007740 T O F I L E W H A T I S A D
0007760 D T O C O M S A D D T O C O M
0010000 \r
0010020 A D D T O C O M 1 A
0010040 D D N E W C O M M A K E N E W
0010060 C O M D E F A U L T M A K E N
0010100 E W C O M ) \r
0010120 ( I N I T V A R S (
0010140 D E F A U L T C O M H A S F I L
0010160 E F L G ) ) \r
0010200 ( A D D V A R S ( M
0010220 A R K A S C H A N G E D F N S )
0010240 ) \r
0010260 ( F N S M E R G E I N S E R T
0010300 M E R G E I N S E R T 1 ) \r
0010320 ( I N
0010340 I T V A R S [ A D D T O F I L
0010360 E K E Y L S T ' ( ( % [ " "
0010400 E X P L A I N S T R I N G \r
0010420
*
0010460 " [ - -
0010500 p r e t t y p r i n t t h e
0010520 i t e m t o t e r m i n a
0010540 l a n d t h e n a s k a
0010560 g a i n " \r
0010600
*
0010640 N O E C H O F L G
0010660 T ) \r
0010700
0010720 ( %
0010740 \n " " E X P L A I N S T R I
0010760 N G \r
0011000
*
0011040 " { l i n e - f e e d }
0011060 - s a m e a s p r e v i o
0011100 u s r e s p o n s e " N O E
0011120 C H O F L G T ) \r
0011140
*
0011200 ( % " \r " E X
0011220 P L A I N S T R I N G " { s p
0011240 a c e } - n o a c t i o n
0011260 " N O E C H O F L G T ) \r
0011300
*
0011340 ( % ] " N
0011360 o w h e r e \r " E X P L A I N
0011400 S T R I N G " ] - n o w h
0011420 e r e , i t e m i s m a r
0011440 k e d a s a d u m m y \r "
0011460 N O E C H O F L G T ) \r
0011500
*
0011540 [ % ( " L i
0011560 s t : ( " E X P L A I N S
0011600 T R I N G " ( l i s t n a m
0011620 e ) " N O E C H O F L G T
0011640 \r
0011660
*
0011720 K E Y L S T ( ( 033 " " C O
0011740 N F I R M F L G ( % ) % ]
0011760 % % \r ) \r
0012000
*
0012060 R E T U R N \r
0012100
*
0012160 ( C D R A N S W E R ] \r
0012200
*
0012240 ( @ " N e
0012260 a r : " E X P L A I N S T R
0012300 I N G \r
0012320
*
0012360 " @ o t h e r - i t e m
0012400 - - p u t t h e i t
0012420 e m n e a r t h e o t h e
0012440 r i t e m " \r
0012460
*
0012520 N O E C H O F L G
0012540 T K E Y L S T ( ( 033 " "
0012560 C O N F I R M F L G ( % \r )
0012600 \r
0012620
*
0012700 R E T U R N A N S
0012720 W E R ) ) ) \r
0012740
*
0013000 ( % \r " " R E T U R N
0013020 ' % ) \r
0013040
*
0013100 ( " " " F i l e n a m e :
0013120 " E X P L A I N S T R I N G
0013140 " a f i l e n a m e " K E
0013160 Y L S T \r
0013200
*
0013240 ( 033 ] \r
0013260 ( L A
0013300 S T F I L E ) ) ) \r
0013320 ( C O M S ( * ; ; " d
0013340 e l e t i n g a n i t e m
0013360 f r o m a f i l e " ) \r
0013400 ( F N S
0013420 D E L F R O M F I L E S D E
0013440 L F R O M C O M S D E L F R O
0013460 M C O M D E L F R O M C O M 1
0013500 R E M O V E I T E M M O V E
0013520 T O F I L E ) \r
0013540 ( P ( M O V D ?
0013560 ' D E L F R O M F I L E S ' D
0013600 E L F R O M F I L E N I L T
0013620 ) \r
0013640 ( M O V D ? ' M O V E T
0013660 O F I L E ' M O V E I T E M
0013700 N I L T ) ) \r
0013720 ( A D D V A R S (
0013740 S Y S P R O P S P R O P T Y P
0013760 E V A R T Y P E ) ) ) \r
0014000 [ C O M S ( * ;
0014020 " f u n c t i o n s f o r d
0014040 o i n g t h i n g s a n d
0014060 m a r k i n g t h e m c h a
0014100 n g e d a n d a u x i l i a
0014120 r y f u n c t i o n s " ) \r
0014140 ( F N
0014160 S S A V E P U T ) \r
0014200 [ D E C L A R
0014220 E % : D O N T E V A L @ L O A
0014240 D D O C O P Y ( P ( O R
0014260 ( C H A N G E N A M E ' P U T
0014300 P R O P S ' P U T P R O P '
0014320 S A V E P U T ) \r
0014340
*
0014400 ( C
0014420 H A N G E N A M E ' P U T P R
0014440 O P S ' / P U T ' S A V E P
0014460 U T ] \r
0014500 ( F N S U N M A R K A S C
0014520 H A N G E D P R E E D I T F N
0014540 P O S T E D I T P R O P S P
0014560 O S T E D I T A L I S T S ) \r
0014600 ( A D
0014620 D V A R S ( L I S P X F N S
0014640 ( P U T . S A V E P U T ) \r
0014660
0014700 ( P
0014720 U T P R O P . S A V E P U T
0014740 ] \r ( C O M S
0014760 ( * ; " s u b - f u n c t i
0015000 o n s f o r f i l e p a c
0015020 k a g e c o m m a n d s &
0015040 t y p e s " ) \r
0015060 ( F N S A L I S T
0015100 S . G E T D E F A L I S T S .
0015120 W H E N C H A N G E D C L E A
0015140 R C L I S P A R R A Y E X P R
0015160 E S S I O N S . W H E N C H A N
0015200 G E D \r
0015220 M A K E A L I S
0015240 T C O M S M A K E F I L E S C
0015260 O M S M A K E L I S P X M A C
0015300 R O S C O M S M A K E P R O P
0015320 S C O M S M A K E U S E R M A
0015340 C R O S C O M S \r
0015360 P R O
0015400 P S . W H E N C H A N G E D F
0015420 I L E G E T D E F . L I S P X M
0015440 A C R O S F I L E G E T D E F
0015460 . A L I S T S F I L E G E T D
0015500 E F . R E C O R D S \r
0015520 F
0015540 I L E G E T D E F . P R O P S
0015560 F I L E G E T D E F . M A C R O
0015600 S F I L E G E T D E F . V A R
0015620 S F I L E G E T D E F . F N S
0015640 \r
0015660 F I L E P K G C O M S
0015700 . P U T D E F A D V I S E . P
0015720 U T D E F F I L E S . P U T D
0015740 E F V A R S . P U T D E F F
0015760 I L E S . W H E N C H A N G E D
0016000 ) \r
0016020 ( A D D V A R S ( M A C R O P
0016040 R O P S M A C R O B Y T E M
0016060 A C R O D M A C R O ) \r
0016100
0016120 ( S Y S P R O P S P R O P
0016140 T Y P E ) ) \r
0016160 ( P R O P P R O P T
0016200 Y P E I . S . O P R S U B R
0016220 L I S T C O D E B R K I N
0016240 F O B R O K E N - I N B R O
0016260 K E N F I L E D A T E S F I
0016300 L E F I L E M A P \r
0016320
0016340 E X P R A D V I C E R E A D
0016360 V I C E A D V I S E D V A L
0016400 U E C O P Y R I G H T F I L
0016420 E T Y P E ) \r
0016440 ( P R O P V A R T Y
0016460 P E B A K T R A C E L S T B
0016500 R E A K M A C R O S C O M P I
0016520 L E T Y P E L S T E D I T M A
0016540 C R O S E R R O R T Y P E L S
0016560 T F O N T D E F S \r
0016600
0016620 L I S P X H I S T O R Y M A C R
0016640 O S L I S P X M A C R O S P
0016660 R E T T Y D E F M A C R O S P
0016700 R E T T Y E Q U I V L S T P R
0016720 E T T Y P R I N T M A C R O S
0016740 \r
0016760 P R E T T Y P R I N T
0017000 Y P E M A C R O S U S E R M A
0017020 C R O S ) ) \r (
0017040 C O M S ( * ; " D e f i n
0017060 e t h e c o m m a n d s b
0017100 e l o w A F T E R t h e v
0017120 a r i o u s p r o p e r t i e
0017140 s h a v e b e e n e s t a
0017160 b l i s h e d . " ) \r
0017200 ( U S E R M A
0017220 C R O S M ) ) \r
0017240 ( C O M S ( * ; " G E T
0017260 D E F m e t h o d s " ) \r
0017300 ( F N S
0017320 R E N A M E C H A N G E C A
0017340 L L E R S ) \r
0017360 ( F N S S H O W D E
0017400 F C O P Y D E F G E T D E F
0017420 G E T D E F C O M G E T D E
0017440 F C O M 0 G E T D E F C U R R
0017460 E N T G E T D E F E R R G E
0017500 T D E F F R O M F I L E \r
0017520
0017540 G E T D E F S A V E D P U T
0017560 D E F E D I T D E F D E F A
0017600 U L T . E D I T D E F D E F A
0017620 U L T . E D I T D E F E D I T
0017640 D E F . F N S \r
0017660 E D I T
0017700 D E F . F I L E S L O A D D E
0017720 F D W I M D E F D E L D E F
0017740 D E L F R O M L I S T H A S
0017760 D E F G E T F I L E D E F S
0020000 A V E D E F \r
0020020 U N S A V
0020040 E D E F C O M P A R E D E F S
0020060 C O M P A R E T Y P E S O F
0020100 ) \r
0020120 ( I N I T V A R S ( W H E R E
0020140 I S . H A S H ) ) ) \r
0020160 ( * ; " M u s t c o
0020200 m e a f t e r P U T D E F "
0020220 ) \r ( C O M S
0020240 ( * ; ; " h o w t o d u
0020260 m p F I L E P K G C O M S .
0020300 T h e S P L S T m u s t b
0020320 e i n i t i a l i z e d t o
0020340 c o n t a i n F I L E P K G
0020360 C O M S i n o r d e r t o
0020400 g e t s t a r t e d . " \r
0020420
0020440 ) \r
0020460 ( F N S F I L E P K G C O M
0020500 F I L E P K G T Y P E ) \r
0020520 ( P R O P
0020540 A R G N A M E S F I L E P K
0020560 G C O M ) \r
0020600 ( A D D V A R S ( F I
0020620 L E P K G C O M S P L S T F I
0020640 L E P K G C O M S ) \r
0020660
0020700 ( F I L E P K G T Y P E S F I
0020720 L E P K G C O M S ) ) \r
0020740 ( F I L E P
0020760 K G C O M S F I L E P K G C O
0021000 M S ) \r
0021020 ( F I L E P K G C O M S A
0021040 D V I C E A L I S T S D E F
0021060 S E D I T M A C R O S E X P
0021100 R E S S I O N S F I E L D S
0021120 F I L E P K G T Y P E S F I L
0021140 E S \r
0021160 F I L E V A R
0021200 S F N S I N I T R E C O R D
0021220 S I N I T V A R S L I S P X
0021240 C O M S L I S P X M A C R O S
0021260 M A C R O S P R E T T Y D E
0021300 F M A C R O S \r
0021320 P R
0021340 O P S R E C O R D S O L D R
0021360 E C O R D S S Y S R E C O R D
0021400 S U S E R M A C R O S V A R
0021420 S * C O N S T A N T S ) ) \r
0021440 ( I N I T V A R
0021460 S ( S A V E D D E F S ) \r
0021500 ( D E
0021520 F A U L T R E N A M E M E T H O
0021540 D ) ) \r ( C O M
0021560 S ( * ; " E D I T C A L L
0021600 E R S " ) \r
0021620 ( F N S F I N D C A L
0021640 L E R S E D I T C A L L E R S
0021660 E D I T F R O M F I L E F I
0021700 N D A T S L O O K I N ) \r
0021720 ( F N S
0021740 S E P R C A S E ) \r
0021760 ( I N I T V A
0022000 R S ( S E P R C A S E A R R A
0022020 Y S ) \r
0022040 ( C L I S P C
0022060 A S E A R R A Y S ) ) \r
0022100 ( P ( M O
0022120 V D ? ' I N F I L E P ' F I
0022140 N D F I L E ) \r
0022160 ( * ; " o
0022200 r e l s e f r o m S P E L
0022220 L F I L E " ) ) \r
0022240 ( B L O C K S (
0022260 E D I T F R O M F I L E E D I
0022300 T F R O M F I L E L O O K I N
0022320 ( G L O B A L V A R S E D I
0022340 T L O A D F N S F L G ) \r
0022360
0022400 ( N O L I N
0022420 K F N S L O A D F R O M ) ) )
0022440 \r (
0022460 G L O B A L V A R S S Y S F I
0022500 L E S C L I S P C A S E A R R
0022520 A Y S S E P R C A S E A R R A
0022540 Y S C L I S P C H A R S ) ) \r
0022560 ( C O M S ( *
0022600 ; " E X P O R T " ) \r
0022620 ( F N S
0022640 I M P O R T F I L E I M P O R
0022660 T E V A L I M P O R T F I L E
0022700 S C A N C H E C K I M P O R T
0022720 S G A T H E R E X P O R T S
0022740 \ D U M P E X P O R T S ) \r
0022760 ( F I L
0023000 E P K G C O M S E X P O R T )
0023020 \r [
0023040 I N I T V A R S ( B E G I N E
0023060 X P O R T D E F S T R I N G "
0023100 * % " F O L L O W I N G D E
0023120 F I N I T I O N S E X P O R T
0023140 E D % " ) \r \r " ) \r
0023160 (
0023200 E N D E X P O R T D E F F O R M
0023220 ' ( * " E N D E X P O R T
0023240 E D D E F I N I T I O N S " ]
0023260 \r (
0023300 G L O B A L V A R S B E G I N
0023320 E X P O R T D E F S T R I N G
0023340 E N D E X P O R T D E F F O R M
0023360 ) ) \r ( C O M S
0023400 ( * ; " f o r G A I N S
0023420 P A C E " ) \r
0023440 ( F N S C L E A R F
0023460 I L E P K G ) \r
0023500 [ A D D V A R S (
0023520 G A I N S P A C E F O R M S (
0023540 F I L E L S T " e r a s e f
0023560 i l e p k g i n f o r m a t i
0023600 o n " ( C L E A R F I L E P K
0023620 G R E S P O N S E ) \r
0023640
*
0023700 ( ( Y " e
0023720 s " ) \r
0023740
*
0024000 ( N " o " ) \r
0024020
*
0024060 ( E . "
0024100 v e r y t h i n g " ) \r
0024120
*
0024160 ( F " i
0024200 l e m a p s o n l y \r " ] \r
0024220 ( G L
0024240 O B A L V A R S S M A S H P R
0024260 O P S L S T 1 ) ) \r
0024300 ( G L O B A L V A R S % #
0024320 L I S T F I L E S C H A R S %
0024340 # U N D O S A V E S A D D T O
0024360 F I L E K E Y L S T C L E A N
0024400 U P O P T I O N S C L I S P A
0024420 R R A Y \r
0024440 C L I S P I F Y P R E
0024460 T T Y F L G C O M P I L E . E
0024500 X T D E C L A R E T A G S L S
0024520 T D E F A U L T R E N A M E M
0024540 E T H O D D W I M I F Y C O M
0024560 P F L G \r
0024600 F I L E L S T F I L
0024620 E P K G C O M S P L S T F I L
0024640 E R D T B L F O N T C H A N G
0024660 E F L G H I S T O R Y C O M S
0024700 H I S T S T R 0 I . S . O P
0024720 R L S T \r
0024740 L I S P X C O M S L
0024760 I S P X H I S T O R Y L I S P
0025000 X H I S T O R Y M A C R O S L
0025020 I S P X M A C R O S L I S T F
0025040 I L E S T R L O A D E D F I L
0025060 E L S T \r
0025100 M A C R O P R O P S
0025120 M A K E F I L E F O R M S M A
0025140 K E F I L E O P T I O N S M A
0025160 K E F I L E R E M A K E F L G
0025200 M S D A T A B A S E L S T \r
0025220 N O
0025240 T C O M P I L E D F I L E S N
0025260 O T L I S T E D F I L E S P R
0025300 E T T Y D E F M A C R O S P R
0025320 E T T Y F L G P R E T T Y H E
0025340 A D E R P R E T T Y T R A N F
0025360 L G \r
0025400 P R E T T Y T Y P E L S T
0025420 S A V E D D E F S S Y S F I
0025440 L E S S Y S P R O P S U S E
0025460 R M A C R O S U S E R R E C L
0025500 S T U S E R W O R D S \r
0025520 F I L
0025540 E P K G T Y P E P R O P S ) \r
0025560 ( B L O C K S (
0025600 D E L F R O M C O M S D E L F
0025620 R O M C O M S D E L F R O M C
0025640 O M D E L F R O M C O M 1 R
0025660 E M O V E I T E M ( N O L I N
0025700 K F N S . T ) \r
0025720
0025740 ( S P E C V A R S C O M S N
0025760 A M E ) ) \r
0026000 ( A D D T O F I L E B
0026020 L O C K A D D T O F I L E S ?
0026040 A D D T O F I L E W H A T I
0026060 S A D D T O C O M S A D D T
0026100 O C O M A D D T O C O M 1 A
0026120 D D N E W C O M \r
0026140 (
0026160 N O L I N K F N S . T ) \r
0026200
0026220 ( S P E C V A R S C
0026240 O M S N A M E ) \r
0026260 (
0026300 E N T R I E S A D D T O F I L
0026320 E A D D T O C O M S A D D T
0026340 O F I L E S ? ) ) \r
0026360 ( I N F I L E
0026400 C O M S ? I N F I L E C O M S
0026420 ? I N F I L E C O M T A I L
0026440 I N F I L E C O M S I N F I L
0026460 E C O M I N F I L E C O M S V
0026500 A L \r
0026520 I N F I L E
0026540 C O M S V A L S I N F I L E P
0026560 A I R S I N F I L E C O M S M
0026600 A C R O I F C P R O P S I F
0026620 C E X P R T Y P E I F C P R O
0026640 P S C A N \r
0026660 I F C
0026700 D E C L A R E ( L O C A L F R
0026720 E E V A R S N A M E L I T E
0026740 R A L S V A L T Y P E O N
0026760 F I L E T Y P E O R I G F L G
0027000 ) \r
0027020 I N F I L E C O
0027040 M S P R O P ) \r
0027060 ( N I L M A K E
0027100 F I L E ( L O C A L V A R S
0027120 . T ) \r
0027140 ( S P E C V A
0027160 R S F I L E O P T I O N S
0027200 R E P R I N T F N S S O U R C
0027220 E F I L E F I L E T Y P E F
0027240 I L E D A T E S C H A N G E S
0027260 ) ) \r
0027300 ( A D D F I L E A D D F I
0027320 L E A D D F I L E 0 ) \r
0027340 ( F I L
0027360 E P K G C H A N G E S F I L E
0027400 P K G C H A N G E S ( N O L I
0027420 N K F N S . T ) ) \r
0027440 ( N I L
0027460 A L I S T S . W H E N C H A N G
0027500 E D C H A N G E C A L L E R S
0027520 C L E A N U P C L E A R C L
0027540 I S P A R R A Y C O M P A R E
0027560 C O M P A R E D E F S \r
0027600
0027620 C O M P I L E F I L E S C
0027640 O M P I L E F I L E S 0 C O N
0027660 T I N U E D I T C O P Y D E F
0027700 D E F A U L T M A K E N E W C
0027720 O M D E L F R O M F I L E S
0027740 \r
0027760 E D I T D E F E X P
0030000 R E S S I O N S . W H E N C H A
0030020 N G E D F I L E C O M S F I
0030040 L E C O M S L S T F I L E F N
0030060 S L S T F I L E P K G C O M
0030100 \r
0030120 F I L E P K G C O M P
0030140 R O P S F I L E P K G T Y P E
0030160 F I L E S ? F I L E S ? 1
0030200 G E T F I L E P K G T Y P E H
0030220 A S D E F I N F I L E C O M T
0030240 A I L \r
0030260 L O A D D E F
0030300 M A K E A L I S T C O M S M
0030320 A K E F I L E 1 M A K E F I L
0030340 E S M A K E F I L E S C O M S
0030360 M A K E L I S P X M A C R O S
0030400 C O M S \r
0030420 M A K E N E
0030440 W C O M M A K E P R O P S C O
0030460 M S M A K E U S E R M A C R O
0030500 S C O M S M A R K A S C H A N
0030520 G E D M O V E T O F I L E \r
0030540
0030560 P O S T E D I T P R O P
0030600 S P R E E D I T F N P R E T
0030620 T Y D E F M A C R O S P R O P
0030640 S . W H E N C H A N G E D P U
0030660 T D E F R E N A M E S A V E
0030700 D E F \r
0030720 S A V E P U T
0030740 S E A R C H P R E T T Y T Y P
0030760 E L S T S H O W D E F S M A
0031000 S H F I L E C O M S T Y P E S
0031020 O F U N M A R K A S C H A N G
0031040 E D \r
0031060 U N S A V E D E
0031100 F U P D A T E F I L E S ( G
0031120 L O B A L V A R S % # U N D O
0031140 S A V E S S Y S F I L E S M
0031160 A R K A S C H A N G E D S T A T
0031200 S \r
0031220
*
0031260 C O M P I L E . E X T
0031300 E D I T M A C R O S E D I T L
0031320 O A D F N S F L G L O A D O P
0031340 T I O N S ) \r
0031360 ( L O C A
0031400 L V A R S . T ) ) \r
0031420 ( D E L D
0031440 E F D E L D E F D E L F R O
0031460 M L I S T ( N O L I N K F N S
0031500 . T ) ) \r
0031520 ( G E T D E F G E
0031540 T D E F D W I M D E F G E T
0031560 D E F C O M G E T D E F C O M
0031600 0 G E T D E F E R R G E T D
0031620 E F C U R R E N T G E T D E F
0031640 F R O M F I L E \r
0031660
0031700 G E T D E F S A V E D ( R E T
0031720 F N S G E T D E F C O M ) \r
0031740
0031760 ( N O L I N K F N S
0032000 . T ) \r
0032020 ( G L O B
0032040 A L V A R S N O T - F O U N D
0032060 T A G ) ) ) \r (
0032100 D E C L A R E % : D O N T E V
0032120 A L @ L O A D D O E V A L @ C
0032140 O M P I L E D O N T C O P Y
0032160 C O M P I L E R V A R S \r
0032200 ( A D D
0032220 V A R S ( N L A M A \ D U M
0032240 P E X P O R T S M A K E U S E
0032260 R M A C R O S C O M S M A K E
0032300 P R O P S C O M S M A K E L I
0032320 S P X M A C R O S C O M S \r
0032340
0032360 M A
0032400 K E F I L E S C O M S M A K E
0032420 A L I S T C O M S L I S T F I
0032440 L E S C O M P I L E F I L E S
0032460 C L E A N U P \r
0032500
0032520 F I L E P K G
0032540 C O M P R O P S P R E T T Y D
0032560 E F M A C R O S ) \r
0032600
0032620 ( N L A M L ) \r
0032640 ( L
0032660 A M A F I L E P K G T Y P E
0032700 F I L E P K G C O M F I L E P
0032720 K G C H A N G E S ] ) \r \r \r \r 006
0032740 004 ( * ; " s t a n d a r d
0032760 r e c o r d s f o r a c c e
0033000 s s i n g f i l e p a c k a
0033020 g e t y p e / c o m m a n d
0033040 p a r t s . E x p o r t e d
0033060 f o r P R E T T Y " ) 006 001 \r
0033100 \r \r ( R P A Q Q 006 002 F I L E P
0033120 K G T Y P E P R O P S 006 001 ( N
0033140 E W C O M W H E N F I L E D
0033160 W H E N U N F I L E D G E T D
0033200 E F N U L L D E F D E L D E
0033220 F P U T D E F W H E N C H A
0033240 N G E D H A S D E F \r
0033260
0033300 E D I T
0033320 D E F C A N F I L E D E F F
0033340 I L E G E T D E F ) ) \r ( * "
0033360 F O L L O W I N G D E F I N I
0033400 T I O N S E X P O R T E D " )
0033420 \r \r ( D E C L A R E % : E V A
0033440 L @ C O M P I L E D O N T C O
0033460 P Y \r \r ( R P A Q Q 006 002 F I
0033500 L E P K G R E C O R D S 006 001 (
0033520 F I L E P K G C O M F I L E P
0033540 K G T Y P E F I L E F I L E
0033560 D A T E P A I R F I L E P R O
0033600 P ) ) \r ( D E C L A R E % : E
0033620 V A L @ C O M P I L E \r \r ( A C
0033640 C E S S F N S 006 002 F I L E P K
0033660 G C O M 006 001 [ [ 006 002 A D D 006 001
0033700 ( G E T P R O P D A T U M
0033720 ' A D D T O P R E T T Y C O M )
0033740 \r
0033760 ( U N
0034000 D O A B L E ( C O N D \r
0034020
*
0034060 ( N E W V A L U E
0034100 ( / P U T P R O P D A T U M
0034120 ' A D D T O P R E T T Y C O M
0034140 N E W V A L U E ) ) \r
0034160
*
0034220 ( T ( / R E M P R O P
0034240 D A T U M ' A D D T O P R E
0034260 T T Y C O M ] \r
0034300 [
0034320 D E L E T E ( G E T P R O P
0034340 D A T U M ' D E L F R O M P R
0034360 E T T Y C O M ) \r
0034400
0034420 ( U N D O A B L E
0034440 ( C O N D \r
0034460
*
0034520 ( N E W V A L U E ( / P U
0034540 T P R O P D A T U M ' D E L
0034560 F R O M P R E T T Y C O M N E
0034600 W V A L U E ) ) \r
0034620
*
0034660 ( T ( / R E M P R O P
0034700 D A T U M ' D E L F R O M P
0034720 R E T T Y C O M ] \r
0034740
0034760 [ P R E T T Y T Y P E ( G E
0035000 T P R O P D A T U M ' P R E
0035020 T T Y T Y P E ) \r
0035040
0035060 ( U N D O A B L E
0035100 ( C O N D \r
0035120
*
0035160 ( N E W V A L U E ( / P U
0035200 T P R O P D A T U M ' P R E
0035220 T T Y T Y P E N E W V A L U E
0035240 ) ) \r
0035260
0035300 ( T
0035320 ( / R E M P R O P D A T U M
0035340 ' P R E T T Y T Y P E ] \r
0035360
0035400 [ C O N T E N T S (
0035420 G E T P R O P D A T U M ' F
0035440 I L E P K G C O N T E N T S ) \r
0035460
0035500 ( U
0035520 N D O A B L E ( C O N D \r
0035540
*
0035600 ( N E W V A L
0035620 U E ( / P U T P R O P D A T
0035640 U M ' F I L E P K G C O N T E
0035660 N T S N E W V A L U E ) ) \r
0035700
*
0035740 ( T ( / R
0035760 E M P R O P D A T U M ' F I
0036000 L E P K G C O N T E N T S ] \r
0036020
0036040 ( M A C R O [ C D
0036060 R ( F A S S O C D A T U M
0036100 ( G E T T O P V A L ' P R E T
0036120 T Y D E F M A C R O S ] \r
0036140
0036160 ( S T A N
0036200 D A R D [ C O N D \r
0036220
*
0036260 [ N E W V A L U E
0036300 ( P U T A S S O C D A T U M
0036320 N E W V A L U E \r
0036340
*
0036420 ( O R ( L I S T P
0036440 ( G E T T O P V A L ' P R E T
0036460 T Y D E F M A C R O S ) ) \r
0036500
*
0036560 ( S
0036600 E T T O P V A L ' P R E T T Y
0036620 D E F M A C R O S \r
0036640
*
0036740 ( L I S T ( L I S T D A T
0036760 U M ] \r
0037000
0037020 (
0037040 T ( S E T T O P V A L ' P R
0037060 E T T Y D E F M A C R O S \r
0037100
*
0037160 ( R E M O V E ( F A S S
0037200 O C D A T U M ( G E T T O P
0037220 V A L ' \r
0037240
*
0037340 P R E T T Y D E
0037360 F M A C R O S ) ) \r
0037400
*
0037460 ( G E T T O P V A L
0037500 ' P R E T T Y D E F M A C R O
0037520 S ] \r
0037540
0037560 U N D O A B L E
0037600 \r
0037620
0037640 ( C O N D \r
0037660
*
0037720 [ N E W V A L U E ( /
0037740 P U T A S S O C D A T U M N
0037760 E W V A L U E \r
0040000
*
0040060 ( O R ( L I S T P ( G E T
0040100 T O P V A L ' P R E T T Y D E
0040120 F M A C R O S ) ) \r
0040140
*
0040220 ( / S E T T O P V
0040240 A L ' P R E T T Y D E F M A C
0040260 R O S \r
0040300
*
0040360 ( L I S T ( L
0040400 I S T D A T U M ] \r
0040420
*
0040460 ( T ( / S E T T O P V A
0040500 L ' P R E T T Y D E F M A C R
0040520 O S \r
0040540
*
0040600 ( R E M O V E ( F A
0040620 S S O C D A T U M ( G E T T
0040640 O P V A L ' P R E T T Y D E F
0040660 M A C R O S ) ) \r
0040700
*
0040760 ( G E T T O P V A L ' P R
0041000 E T T Y D E F M A C R O S ] \r
0041020
*
0041100 006 003 ( *
0041120 N o t a n a t o m r e c
0041140 o r d c a u s e w a n t \r
0041160 006 001
0041200
*
0041240 006
0041260 003 R E M P R O P o n N I L s
0041300 . ) 006 001 \r \r
0041320 006 003 ( * N
0041340 O T E % : P R E T T C O M o
0041360 n P R E T T Y h a s o p e
0041400 n - c o d e d a c c e s s t
0041420 o t h e M A C R O p r o p
0041440 e r t y . ) 006 001 \r \r
0041460
0041500 ( I N I T ( F I L E P K G C O
0041520 M P R O P S A D D T O P R E T
0041540 T Y C O M D E L F R O M P R E
0041560 T T Y C O M P R E T T Y T Y P
0041600 E \r
0041620
0041640 F I L E P K G C O N
0041660 T E N T S ) ) ) \r \r ( A T O M R
0041700 E C O R D 006 002 F I L E P K G T
0041720 Y P E 006 001 ( N E W C O M W H
0041740 E N F I L E D W H E N U N F I
0041760 L E D G E T D E F N U L L D
0042000 E F D E L D E F P U T D E F
0042020 W H E N C H A N G E D H A S
0042040 D E F \r
0042060
0042100 E D I T D E F F I L E
0042120 G E T D E F C A N F I L E D E
0042140 F ) \r
0042160 ( A C C E
0042200 S S F N S F I L E P K G T Y P
0042220 E [ ( C H A N G E D L S T (
0042240 C A R ( S E A R C H P R E T T
0042260 Y T Y P E L S T D A T U M ) )
0042300 \r
0042320
*
0042360 ( C A R ( S E
0042400 A R C H P R E T T Y T Y P E L S
0042420 T D A T U M N E W V A L U E
0042440 ) ) ) \r
0042460
*
0042520 ( C H A N G E D ( G E
0042540 T T O P V A L ( C A R ( S E
0042560 A R C H P R E T T Y T Y P E L S
0042600 T D A T U M ) ) \r
0042620
*
0042700 ) \r
0042720
*
0043000 ( S T A N D A R D ( S E
0043020 T T O P V A L ( C A R ( S E
0043040 A R C H P R E T T Y T Y P E L S
0043060 T \r
0043100
*
0043200 D A T U M N E W V A L
0043220 U E ) ) \r
0043240
*
0043320 N E W
0043340 V A L U E ) \r
0043360
*
0043440 U N D O A B L E \r
0043460
*
0043540 ( / S E
0043560 T T O P V A L ( C A R ( S E
0043600 A R C H P R E T T Y T Y P E L S
0043620 T \r
0043640
*
0043740 D A T U M N E W V A L U E
0043760 ) ) \r
0044000
*
0044060 N E W V A L U E
0044100 ) ) ) \r
0044120
*
0044160 ( D E S C R I P T I O N
0044200 ( C A R ( C D D R ( S E A
0044220 R C H P R E T T Y T Y P E L S T
0044240 D A T U M ) ) ) \r
0044260
*
0044340 ( C A R ( R P L A C A ( C
0044360 D D R ( S E A R C H P R E T T
0044400 Y T Y P E L S T D A T U M \r
0044420
*
0044540 N E W V A L U E ) ) \r
0044560
*
0044640 N
0044660 E W V A L U E ) ) ) \r
0044700
*
0044740 ( A L L F
0044760 I E L D S N I L ( / S E T T
0045000 O P V A L ' P R E T T Y T Y P
0045020 E L S T \r
0045040
*
0045120 ( R E M O
0045140 V E ( S E A R C H P R E T T Y
0045160 T Y P E L S T \r
0045200
*
0045300 D A T U M ) \r
0045320
*
0045420 ( G E T T
0045440 O P V A L ' \r
0045460
*
0045560 P R E T
0045600 T Y T Y P E L S T ] \r
0045620 \r
0045640 006 003 ( * N O T E % : P R E T
0045660 T Y C O M o n P R E T T Y
0045700 h a s o p e n - c o d e d a
0045720 c c e s s t o G E T D E F
0045740 p r o p e r t y ) 006 001 \r \r
0045760
0046000 ( I N I
0046020 T [ P R O G N ( S E T Q S
0046040 Y S P R O P S ( U N I O N F
0046060 I L E P K G T Y P E P R O P S
0046100 S Y S P R O P S ) ) \r
0046120
*
0046160 ( M A P C F I L
0046200 E P K G T Y P E P R O P S ( F
0046220 U N C T I O N ( L A M B D A
0046240 ( X ) \r
0046260
*
0046360 ( P U T X ' P R O P T
0046400 Y P E \r
0046420
*
0046520 ' F I L E P K G
0046540 C O M S ] \r
0046560
0046600 ( A D D T
0046620 O V A R P R E T T Y T Y P E L
0046640 S T ) ) ) ) \r \r ( A T O M R E C
0046660 O R D 006 002 F I L E 006 001 ( F I
0046700 L E C H A N G E S F I L E D A
0046720 T E S F I L E M A P ) \r
0046740 [ A
0046760 C C E S S F N S F I L E ( (
0047000 F I L E P R O P ( G E T P R O
0047020 P D A T U M ' F I L E ) \r
0047040
*
0047100 ( S T A N D A R
0047120 D ( P U T P R O P D A T U M
0047140 ' F I L E N E W V A L U E )
0047160 \r
0047200
*
0047240 U N D O A B L E \r
0047260
*
0047320 ( / P U T P
0047340 R O P D A T U M ' F I L E
0047360 N E W V A L U E ] ) \r \r ( R E C
0047400 O R D 006 002 F I L E D A T E P A
0047420 I R 006 001 ( F I L E D A T E .
0047440 D A T E F I L E N A M E ) ) \r
0047460 \r ( R E C O R D 006 002 F I L E P
0047500 R O P 006 001 ( ( C O M S N A M E
0047520 . L O A D T Y P E ) . T
0047540 O B E D U M P E D ) ) \r ) \r ( F
0047560 I L E P K G C O M P R O P S A
0047600 D D T O P R E T T Y C O M D E
0047620 L F R O M P R E T T Y C O M P
0047640 R E T T Y T Y P E F I L E P K
0047660 G C O N T E N T S ) \r [ P R O G
0047700 N ( S E T Q S Y S P R O P S
0047720 ( U N I O N F I L E P K G T
0047740 Y P E P R O P S S Y S P R O P
0047760 S ) ) \r ( M A P C
0050000 F I L E P K G T Y P E P R O P
0050020 S ( F U N C T I O N ( L A M
0050040 B D A ( X ) \r
0050060
*
0050120 ( P U T X ' P
0050140 R O P T Y P E ' F I L E P K G
0050160 C O M S ] \r ( A D D T O V A R
0050200 P R E T T Y T Y P E L S T ) \r )
0050220 \r \r ( * " E N D E X P O R T
0050240 E D D E F I N I T I O N S " )
0050260 \r \r ( D E F I N E Q \r \r ( 006 004 S
0050300 E A R C H P R E T T Y T Y P E L
0050320 S T 006 001 \r [ L A M B D A (
0050340 T Y P E F L G ) 006 003 006 001
0050360
*
0050420 006 003 ( * r m k % :
0050440 " 3 - J A N - 8 2 2 2 : 5
0050460 5 " ) 006 001 006 003 006 001 \r
0050500
*
0050560 006 003 ( * ; " a c c e s s
0050600 f u n c t i o n s u s e d
0050620 b y t h e r e c o r d s " )
0050640 006 001 \r ( A N D ( L I T
0050660 A T O M T Y P E ) \r
0050700 ( O R ( 006 002 f i n d 006
0050720 001 X 006 002 i n 006 001 P R E T T
0050740 Y T Y P E L S T 006 002 s u c h t
0050760 h a t 006 001 ( E Q ( C A D R
0051000 X ) \r
0051020
*
0051060 T Y P E ) ) \r
0051100 ( C O N D \r
0051120
0051140 ( F L G [ / S E T T O P V A L
0051160 ' P R E T T Y T Y P E L S T
0051200 ( C O N S ( S E T Q F L G
0051220 ( L I S T ( P A C K * ' C H
0051240 A N G E D T Y P E \r
0051260
*
0051360 ' L S T ) \r
0051400
*
0051500 T Y P E N I L ) ) \r
0051520
*
0051600 ( G E T T O P V A L
0051620 ' P R E T T Y T Y P E L S T ] \r
0051640
0051660 ( O R ( L I S T P
0051700 ( G E T T O P V A L ( C A R
0051720 F L G ) ) ) \r
0051740
0051760 ( / S E T T O P V A L ( C A R
0052000 F L G ) \r
0052020
0052040 N I L ) ) \r
0052060
0052100 F L G ] ) \r \r ( 006 004 P R E T T
0052120 Y D E F M A C R O S 006 001 \r [
0052140 N L A M B D A A R G S 006 003 006 001
0052160
*
0052220 006 003
0052240 ( * l m m " 5 - S E P - 7
0052260 8 1 6 : 1 6 " ) 006 001 006 003 006 001 \r
0052300
*
0052360 006 003 ( * ; \r 006 001
0052400
*
0052440 006 003
0052460 " i n c l u d e d s o t h a
0052500 t o l d f i l e s w i l l
0052520 c o n t i n u e t o l o a
0052540 d " ) 006 001 \r ( 006 002 f o r
0052560 006 001 X 006 002 i n 006 001 A R G S
0052600 006 002 c o l l e c t 006 001 ( 006 002
0052620 F I L E P K G C O M 006 001 ( C A
0052640 R X ) \r
0052660
0052700 ' M A C R O \r
0052720
*
0052760 ( C D R X ] ) \r \r ( 006 004 F I L
0053000 E P K G C O M P R O P S 006 001 \r
0053020 [ N L A M B D A P R O P S \r
0053040 ( M A P C P R O P S
0053060 ( F U N C T I O N ( L A M B D
0053100 A ( Y ) \r
0053120
0053140 ( O R ( M E M B Y S Y
0053160 S P R O P S ) \r
0053200
0053220 ( S E T Q S Y
0053240 S P R O P S ( C O N S Y S
0053260 Y S P R O P S ) ) ) \r
0053300
0053320 ( P U T Y ' P
0053340 R O P T Y P E ' F I L E P K G
0053360 C O M S ] ) \r ) \r \r ( R P A Q Q
0053400 006 002 F I L E P K G R E C O R D
0053420 S 006 001 ( F I L E P K G C O M
0053440 F I L E P K G T Y P E F I L E
0053460 F I L E D A T E P A I R F I
0053500 L E P R O P ) ) \r ( F I L E P K
0053520 G C O M P R O P S A D D T O P
0053540 R E T T Y C O M D E L F R O M
0053560 P R E T T Y C O M P R E T T Y
0053600 T Y P E F I L E P K G C O N T
0053620 E N T S ) \r [ P R O G N ( S E
0053640 T Q S Y S P R O P S ( U N I
0053660 O N F I L E P K G T Y P E P R
0053700 O P S S Y S P R O P S ) ) \r
0053720 ( M A P C F I L E
0053740 P K G T Y P E P R O P S ( F U
0053760 N C T I O N ( L A M B D A (
0054000 X ) \r
0054020
*
0054060 ( P U T X ' P R O P T Y
0054100 P E ' F I L E P K G C O M S ]
0054120 \r ( A D D T O V A R P R E T T
0054140 Y T Y P E L S T ) \r \r ( R P A Q
0054160 ? 006 002 M S D A T A B A S E L S
0054200 T 006 001 ) \r \r \r \r 006 004 ( * ; ;
0054220 " m a k i n g , a d d i n g
0054240 , l i s t i n g , c o m p i
0054260 l i n g f i l e s " ) 006 001 \r \r
0054300 ( D E F I N E Q \r \r ( 006 004 C L E
0054320 A N U P 006 001 \r [ N L A M B D
0054340 A F I L E S 006 003 006 001
0054360
*
0054420 006 003 ( * l m m
0054440 " 1 4 - A u g - 8 4 1 9 : 1
0054460 7 " ) 006 001 \r ( P R O G
0054500 ( T E M 1 T E M 2 O P T I O
0054520 N S ) \r ( C
0054540 O N D \r
0054560 ( [ L I S T P ( C A R ( S
0054600 E T Q F I L E S ( N L A M B
0054620 D A . A R G S F I L E S ] \r
0054640 ( S E
0054660 T Q O P T I O N S ( C A R
0054700 F I L E S ) ) \r
0054720 ( S E T Q F I L E
0054740 S ( C D R F I L E S ) ) ) \r
0054760 ( T
0055000 ( S E T Q O P T I O N S C L
0055020 E A N U P O P T I O N S ) ) ) \r
0055040 ( R E T U R
0055060 N ( A P P E N D ( 006 002 M A K
0055100 E F I L E S 006 001 O P T I O N S
0055120 F I L E S ) \r
0055140
0055160 ( C O N D \r
0055200
0055220 ( ( N O T ( M E M B '
0055240 L I S T O P T I O N S ) ) \r
0055260
0055300 N I L )
0055320 \r
0055340 ( ( N
0055360 U L L F I L E S ) \r
0055400
0055420 ( 006 002 L I S T F
0055440 I L E S 006 001 ) ) \r
0055460
0055500 ( ( S E T Q T E M 1
0055520 ( I N T E R S E C T I O N F
0055540 I L E S N O T L I S T E D F I
0055560 L E S ) ) 006 003 006 001 \r
0055600
*
0055640 006 003 ( *
0055660 ; \r 006 001
0055700 006 003 " I n t e r s e c t
0055720 i o n c h e c k b e c a u s
0055740 e L I S T F I L E S a p p l
0055760 i e d t o N I L m e a n s
0056000 l i s t a l l o f N O T
0056020 L I S T E D F I L E S . " ) 006 001
0056040 \r
0056060 ( A
0056100 P P L Y ' L I S T F I L E S
0056120 T E M 1 ) ) ) \r
0056140
0056160 ( C O N D \r
0056200
0056220 [ ( N U L L ( S E T Q
0056240 T E M 1 ( M E M B ' R C O
0056260 P T I O N S ] \r
0056300
0056320 ( ( N U L L F I L E S
0056340 ) \r
0056360 (
0056400 006 002 C O M P I L E F I L E S 0 006
0056420 001 ( S E T Q T E M 2 N O T
0056440 C O M P I L E D F I L E S ) \r
0056460
*
0056520 ( C D R T E M 1 ) ) \r
0056540
0056560 T E M 2
0056600 ) \r
0056620 ( (
0056640 S E T Q T E M 2 ( I N T E R
0056660 S E C T I O N F I L E S N O
0056700 T C O M P I L E D F I L E S ) )
0056720 \r
0056740 ( 006
0056760 002 C O M P I L E F I L E S 0 006 001
0057000 T E M 2 ( C D R T E M 1 )
0057020 ) \r
0057040 T
0057060 E M 2 ] ) \r \r ( 006 004 C O M P I L
0057100 E F I L E S 006 001 \r [ N L A M
0057120 B D A F I L E S 006 003 006 001
0057140
*
0057200 006 003 ( * l
0057220 m m " 1 4 - A u g - 8 4 1 9
0057240 : 1 7 " ) 006 001 \r ( C O N
0057260 D \r ( [ L I S T P
0057300 ( C A R ( S E T Q F I L E
0057320 S ( N L A M B D A . A R G S
0057340 F I L E S ] \r (
0057360 006 002 C O M P I L E F I L E S 0 006
0057400 001 ( C D R F I L E S ) \r
0057420 ( C A
0057440 R F I L E S ) ) ) \r
0057460 ( T ( 006 002 C O M P I L E F
0057500 I L E S 0 006 001 F I L E S ] ) \r
0057520 \r ( 006 004 C O M P I L E F I L E S
0057540 0 006 001 \r [ L A M B D A ( F
0057560 I L E S O P T I O N S ) 006 003 006
0057600 001
0057620
0057640 006 003 ( * r m k % :
0057660 " 1 9 - F E B - 8 3 2 1 : 5 9
0057700 " ) 006 001 \r ( 006 002 f o r 006
0057720 001 X O P T S ( R C F L G
0057740 _ T ) 006 002 o n 006 001 ( O R
0057760 F I L E S N O T C O M P I L E
0060000 D F I L E S ) 006 002 f i r s t 006
0060020 001 ( S E T Q O P T S \r
0060040
*
0060120 (
0060140 S E L E C T Q ( C A R ( L I
0060160 S T P O P T I O N S ) ) \r
0060200
*
0060300 ( C ( S E T Q R C F
0060320 L G N I L ) \r
0060340
*
0060440 ( C D R O P T I O N S ) ) \r
0060460
*
0060560 ( R C ( C D R O
0060600 P T I O N S ) ) \r
0060620
*
0060700 O
0060720 P T I O N S ) ) \r
0060740 006 002 d o 006 001 ( 006 002 M A K E F I
0060760 L E 1 006 001 ( O R ( M I S S P
0061000 E L L E D ? ( C A R X ) \r
0061020
0061040 7
0061060 0 F I L E L S T N I L X )
0061100 \r
0061120 ( C A R X
0061140 ) ) \r
0061160 R C F L G O P T S X
0061200 ] ) \r \r ( 006 004 C O N T I N U E D
0061220 I T 006 001 \r [ L A M B D A (
0061240 F I L E ) 006 003 006 001
0061260
*
0061320 006 003 ( * b v m % :
0061340 " 3 0 - A u g - 8 6 1 5 : 0
0061360 9 " ) 006 001 \r ( P R O G
0061400 ( S T R E A M F L T E M F
0061420 C E N V ) \r
0061440 [ R E S E T L S T [ R E S E
0061460 T S A V E N I L ( L I S T
0061500 ' C L O S E F ( S E T Q S T
0061520 R E A M ( O P E N S T R E A M
0061540 F I L E ' I N P U T ] \r
0061560 (
0061600 S E T Q F I L E ( F U L L N
0061620 A M E S T R E A M ) ) \r
0061640 ( S
0061660 E T F I L E P T R S T R E A M
0061700 0 ) \r
0061720 ( C L : M U L T I P L
0061740 E - V A L U E - S E T Q ( E N
0061760 V F C ) \r
0062000 ( \
0062020 P A R S E - F I L E - H E A D E
0062040 R S T R E A M ' R E T U R N
0062060 ] \r ( C O N
0062100 D \r (
0062120 [ N O T ( 006 002 f e t c h 006 001
0062140 F I L E P R O P 006 002 o f 006 001
0062160 ( S E T Q F L ( R O O T F I
0062200 L E N A M E F I L E ] \r
0062220 ( L O A D
0062240 F R O M F I L E ) 006 003 006 001
0062260
0062300 006 003 ( * ; " a
0062320 l s o c a l l s a d d f i l
0062340 e t o n o t i c e t h e
0062360 f i l e . " ) 006 001 \r
0062400 ) ) \r
0062420 ( 006 002 / r e p l a c e
0062440 006 001 F I L E C H A N G E S 006
0062460 002 o f 006 001 F L 006 002 w i t h 006
0062500 001 ( 006 002 F I L E C H A N G E S
0062520 006 001 F C ) ) \r
0062540 [ 006 002 / r e p l a c e 006 001
0062560 F I L E D A T E S 006 002 o f 006 001
0062600 F L 006 002 w i t h 006 001 ( L I
0062620 S T ( 006 002 c r e a t e 006 001 F
0062640 I L E D A T E P A I R \r
0062660
*
0062740 F I L E D A T E _ ( C A
0062760 D R F C ) \r
0063000
*
0063040 D A T
0063060 E F I L E N A M E _ F I L E
0063100 ) \r
0063120
*
0063160 ( 006 002 c r e a t e 006 001 F I L
0063200 E D A T E P A I R \r
0063220
*
0063300 F I L E D A T E _ [ C A R
0063320 ( S E T Q T E M \r
0063340
*
0063440 ( C D R ( M E M B ' d a t
0063460 e % : F C ] \r
0063500
*
0063540 D A
0063560 T E F I L E N A M E _ ( C A
0063600 D R T E M ] \r
0063620 ( R E T U R N F I L E ] )
0063640 \r \r ( 006 004 M A K E F I L E 006 001 \r
0063660 [ L A M B D A ( F I L E
0063700 O P T I O N S R E P R I N T F
0063720 N S S O U R C E F I L E ) 006 003
0063740 006 001
0063760 006 003 ( * l m m " 2 7 - J u
0064000 n - 8 5 1 8 : 1 6 " ) 006 001 006 003
0064020 006 001 \r
0064040
*
0064100 006 003 ( * ; ; " O P
0064120 T I O N S : F A S T m e a n
0064140 s d u m p w i t h P R E T
0064160 T Y F L G s e t t o N I L
0064200 ; L I S T m e a n s l i
0064220 s t t h e F I L E ; R C
0064240 m e a n s R E C O M P I L E
0064260 , u s e s B R E C O M P I L
0064300 E i f F I L E b l o c k s
0064320 i s N O B I N D , O T H E R
0064340 W I S E R E C O M P I L E ;
0064360 - - - C m e a n s C O M
0064400 P I L E , u s e s B C O M P
0064420 L i f F I L E b l o c k s
0064440 i s N O B I N D , o t h e r
0064460 w i s e T C O M P L ; - -
0064500 - f o r C A N D R C a
0064520 s s u m e S T u n l e s s
0064540 n e x t o p t i o n i s F
0064560 . " ) 006 001 \r ( P R O G
0064600 ( F I L E T Y P E R O O T N A
0064620 M E F I L E P R O P C H A N
0064640 G E S F I L E D A T E S ( Z
0064660 ( 006 002 A D D F I L E 006 001 F I
0064700 L E ) ) ) \r
0064720 ( S E T Q F I L E ( C A R
0064740 Z ) ) 006 003 006 001
0064760 006 003 ( *
0065000 ; \r 006 001
0065020
*
0065060 006 003 " N e c e s s
0065100 a r y b e c a u s e F I L E
0065120 m i g h t h a v e b e e n
0065140 m i s s p e l l e d . " ) 006 001
0065160 \r ( S E T Q
0065200 R O O T N A M E ( C A D R
0065220 Z ) ) 006 003 006 001
0065240 006 003 ( * ; ; "
0065260 r e s u l t o f ( R O O T F
0065300 I L E N A M E F I L E ) , o
0065320 r i f F I L E i s c o r
0065340 r e c t e d , r e s u l t o
0065360 f a p p l y i n g R O O T F
0065400 I L E N A M E t o c o r r e
0065420 c t v a l u e . " ) 006 001 \r
0065440 ( S E T Q F I
0065460 L E P R O P ( C D D R Z ) )
0065500 \r ( 006 002 U P
0065520 D A T E F I L E S 006 001 ) 006 003 006 001
0065540
0065560 006 003 ( *
0065600 ; ; " W a n t u p d a t i n
0065620 g d o n e a f t e r f i l
0065640 e i s a d d e d t o f i
0065660 l e l s t , s o a n y f u
0065700 n c t i o n s t h a t a r e
0065720 b e i n g d u m p e d a r
0065740 e m a r k e d a s h a v i
0065760 n g b e e n d u m p e d . "
0066000 ) 006 001 \r ( S
0066020 E T Q O P T I O N S ( M K L
0066040 I S T O P T I O N S ) ) \r
0066060 ( S E T Q C H
0066100 A N G E S ( 006 002 f e t c h 006 001
0066120 T O B E D U M P E D 006 002 o f
0066140 006 001 F I L E P R O P ) ) \r
0066160 ( S E T Q F I
0066200 L E D A T E S ( L I S T P (
0066220 006 002 f e t c h 006 001 F I L E D A
0066240 T E S 006 002 o f 006 001 R O O T N
0066260 A M E ) ) ) \r
0066300 ( S E T Q F I L E T Y P E
0066320 ( G E T P R O P R O O T N A M
0066340 E ' F I L E T Y P E ) ) \r
0066360 L P 0 ( 006 002 i f 006 001
0066400 ( A N D ( N U L L ( 006 002 f e
0066420 t c h 006 001 L O A D T Y P E 006
0066440 002 o f 006 001 F I L E P R O P ) )
0066460 \r
0066500 ( N U L L F I L E D A
0066520 T E S ) ) \r
0066540 006 002 t h e n 006 001 006 003 006
0066560 001
0066600
0066620 006 003 ( * ; \r 006 001
0066640 006
0066660 003 " F i l e h a s n e v e r
0066700 b e e n l o a d e d a n d
0066720 n e v e r d u m p e d i .
0066740 e . u s e r j u s t s e t
0066760 u p C O M S i n c o r e
0067000 " ) 006 001 \r
0067020 006 002 e l s e i f 006 001 [ O R
0067040 ( E Q M E M B ' N E W O P T
0067060 I O N S ) \r
0067100 ( A N
0067120 D ( N U L L M A K E F I L E
0067140 R E M A K E F L G ) \r
0067160
0067200 ( N O T ( M E M
0067220 B ' R E M A K E O P T I O N
0067240 S ] \r
0067260 006 002 t h e n 006 001 ( C O N D \r
0067300
0067320 ( ( A N D ( 006 002 f
0067340 e t c h 006 001 L O A D T Y P E
0067360 006 002 o f 006 001 F I L E P R O P )
0067400 \r
0067420 ( N E
0067440 Q T ( 006 002 f e t c h 006 001 L
0067460 O A D T Y P E 006 002 o f 006 001 F
0067500 I L E P R O P ) ) ) \r
0067520
0067540 ( L I S P X P R I N 2 F I
0067560 L E T T ) \r
0067600 (
0067620 L I S P X P R I N 1 ( S E L E
0067640 C T Q ( 006 002 f e t c h 006 001 L
0067660 O A D T Y P E 006 002 o f 006 001 F
0067700 I L E P R O P ) \r
0067720
*
0067760 ( L O A D C O M P " t h e f
0070000 i l e w a s l o a d e d f
0070020 o r c o m p i l a t i o n p
0070040 u r p o s e s o n l y " ) \r
0070060
*
0070120 ( ( c o m p i l e d
0070140 C o m p i l e d C O M P I L
0070160 E D ) \r
0070200
*
0070240 " - - o n l y t h e c
0070260 o m p i l e d f i l e h a s
0070300 b e e n l o a d e d \r " ) \r
0070320
*
0070360 ( ( l o a d f n s
0070400 L O A D F N S ) \r
0070420
*
0070460 " - - o n l y
0070500 s o m e o f i t s s y m
0070520 b o l i c s h a v e b e e n
0070540 l o a d e d \r " ) \r
0070560
*
0070620 ( S H O U L D N T ) ) \r
0070640
0070660 T ) \r
0070700
0070720 ( C O N D \r
0070740
0070760 ( ( N E Q ( A S K
0071000 U S E R D W I M W A I T ' Y
0071020 ' ( g o a h e a d a n d
0071040 M A K E F I L E a n y w a y )
0071060 ) \r
0071100
0071120 ' Y ) 006 003 006 001
0071140 006 003 ( * ; \r
0071160 006 001
0071200 006 003 " E . g . u s e r l o a
0071220 d s a . c o m f i l e a
0071240 n d t h e n r e s e t s t
0071260 h e C O M S o r d e f i n
0071300 e s t h e f u n c t o n s
0071320 b y h a n d . " ) 006 001 \r
0071340
0071360 ( G O O U T )
0071400 ) ) \r
0071420 ( 006 002 / r e
0071440 p l a c e 006 001 L O A D T Y P E
0071460 006 002 o f 006 001 F I L E P R O P
0071500 006 002 w i t h 006 001 N I L ) ) )
0071520 \r
0071540 ( S E T Q S O U R C E
0071560 F I L E N I L ) \r
0071600 ( S E
0071620 T Q R E P R I N T F N S N I
0071640 L ) \r 006
0071660 002 e l s e i f 006 001 S O U R C E
0071700 F I L E \r
0071720 006 002 t h e n 006 001 006 003 006 001
0071740
*
0072000 006 003 ( * ;
0072020 " s o u r c e f i l e g i
0072040 v e n " ) 006 001 \r
0072060 006 002 e l s e i f 006 001 [
0072100 A N D F I L E D A T E S ( O
0072120 R [ A N D ( S E T Q S O U
0072140 R C E F I L E ( F I N D F I L
0072160 E R O O T N A M E ) ) \r
0072200
*
0072240 ( E Q U A L (
0072260 F I L E D A T E S O U R C E F
0072300 I L E ) \r
0072320
*
0072360 ( 006 002 f e t c h 006
0072400 001 F I L E D A T E 006 002 o f 006
0072420 001 ( C A R F I L E D A T E S
0072440 ] \r
0072460
0072500 ( A N D [ N E
0072520 Q S O U R C E F I L E ( S E
0072540 T Q S O U R C E F I L E ( 006
0072560 002 f e t c h 006 001 D A T E F I L
0072600 E N A M E \r
0072620
*
0072720 006 002 o f 006 001 ( C A R
0072740 F I L E D A T E S ] \r
0072760
*
0073020 ( I N F I L E P
0073040 S O U R C E F I L E ) \r
0073060
*
0073120 ( E Q U A L ( F
0073140 I L E D A T E S O U R C E F I
0073160 L E ) \r
0073200
*
0073240 ( 006 002 f e t c h 006 001
0073260 F I L E D A T E 006 002 o f 006 001
0073300 ( C A R F I L E D A T E S ]
0073320 \r 006
0073340 002 t h e n 006 001 ( 006 002 / r e p l
0073360 a c e 006 001 D A T E F I L E N A
0073400 M E 006 002 o f 006 001 ( C A R F
0073420 I L E D A T E S ) 006 002 w i t h
0073440 006 001 S O U R C E F I L E ) \r
0073460
0073500 ( O R R E P R I N T F N S
0073520 ( S E T Q R E P R I N T F N
0073540 S ( 006 002 F I L E P K G . C H A
0073560 N G E D F N S 006 001 C H A N G E
0073600 S ) ) ) \r
0073620 006 002 e l s e i f 006 001 [ A N D
0073640 ( C D R F I L E D A T E S )
0073660 \r
0073700 [ S E T Q S
0073720 O U R C E F I L E ( I N F I L
0073740 E P ( 006 002 f e t c h 006 001 D A
0073760 T E F I L E N A M E 006 002 o f 006
0074000 001 ( C A D R F I L E D A T E
0074020 S ] \r
0074040 ( E Q U A
0074060 L ( F I L E D A T E S O U R
0074100 C E F I L E ) \r
0074120
0074140 ( 006 002 f e t c h 006
0074160 001 F I L E D A T E 006 002 o f 006
0074200 001 ( C A D R F I L E D A T E
0074220 S ] \r
0074240 006 002 t h e n 006 001 006 003 006 001
0074260
0074300 006 003 (
0074320 * ; ; " p r e v o u s v e
0074340 r s i o n f i l e i s g o
0074360 n e , d r o p b a c k t o
0074400 o r i g i n a l d a d d y
0074420 f i l e a n d d u m p e v
0074440 e r y t h i n g t h a t h a
0074460 s b e e n c h a n g e d . "
0074500 ) 006 001 \r
0074520 ( S E T Q C H A
0074540 N G E S ( 006 002 F I L E P K G .
0074560 M E R G E C H A N G E S 006 001 (
0074600 006 002 f e t c h 006 001 T O B E D U
0074620 M P E D 006 002 o f 006 001 F I L E
0074640 P R O P ) \r
0074660
0074700 ( 006
0074720 002 f e t c h 006 001 F I L E C H A
0074740 N G E S 006 002 o f 006 001 R O O T
0074760 N A M E ) ) ) \r
0075000 ( S E T Q
0075020 R E P R I N T F N S ( 006 002 F
0075040 I L E P K G . C H A N G E D F N
0075060 S 006 001 C H A N G E S ) ) \r
0075100 006 002 e l s e
0075120 006 001 ( L I S P X P R I N 1 '
0075140 " c a n ' t f i n d e i t h
0075160 e r t h e p r e v i o u s
0075200 v e r s i o n o r t h e o
0075220 r i g i n a l v e r s i o n
0075240 o f \r " T ) \r
0075260 ( L I S P X
0075300 P R I N 2 F I L E T T ) \r
0075320
0075340 ( L I S P X P R I N 1 ' " ,
0075360 s o i t w i l l h a v e
0075400 t o b e w r i t t e n a
0075420 n e w \r " T ) \r
0075440 ( S E T Q
0075460 S O U R C E F I L E N I L ) \r
0075500
0075520 ( S E T Q R E P R I N T F N
0075540 S N I L ) \r
0075560 ( 006 002 p u s h 006
0075600 001 O P T I O N S ' N E W ) \r
0075620
0075640 ( S E T Q C H A N G E S (
0075660 006 002 f e t c h 006 001 F I L E C H
0075700 A N G E S 006 002 o f 006 001 R O O
0075720 T N A M E ) ) \r
0075740 ( G O L P 0
0075760 ) ) \r ( C O
0076000 N D \r
0076020 ( ( A N D S O U R C E F I L E
0076040 ( S E T Q Z ( S E L E C T
0076060 Q ( 006 002 f e t c h 006 001 L O A
0076100 D T Y P E 006 002 o f 006 001 F I L
0076120 E P R O P ) \r
0076140
*
0076200 ( L O A D C O M P 006 003 006 001 \r
0076220
*
0076300 006 003 ( * ; \r 006 001
0076320
*
0076360 006 003
0076400 " o n l y l o a d e d v i a
0076420 L O A D C O M P . N e e d
0076440 t o d o L O A D F R O M "
0076460 ) 006 001 \r
0076500
*
0076540 ( L I S T ' N
0076560 S O U R C E F I L E " w a s
0076600 l o a d e d w i t h L O A
0076620 D C O M P " \r
0076640
*
0076720 ' - " L O A D F R O M i t
0076740 t o o b t a i n V A R S /
0076760 C O M S " ) ) \r
0077000
*
0077040 ( C o m p i l e d ( A N D
0077060 ( 006 002 I N F I L E C O M S ? 006
0077100 001 ' D O N T C O P Y ' D E C
0077120 L A R E % : \r
0077140
*
0077220 ( 006 002 f e t c h 006
0077240 001 C O M S N A M E 006 002 o f 006
0077260 001 F I L E P R O P ) ) \r
0077300
*
0077360 ( L I S T ' Y "
0077400 o n l y c o m p i l e d v e
0077420 r s i o n o f " R O O T N A
0077440 M E \r
0077460
0077500 " w a s
0077520 l o a d e d ; L O A D V A R
0077540 S t h e ( D E C L A R E .
0077560 . D O N T C O P Y ) e x p
0077600 r e s s i o n s " \r
0077620
*
0077700 ) ) ) \r
0077720
*
0077760 ( ( c o m p i l e
0100000 d l o a d f n s ) \r
0100020
*
0100060 ( L I S T
0100100 ' N " O n l y s o m e f
0100120 u n c t i o n s f r o m " S
0100140 O U R C E F I L E \r
0100160
*
0100220 " l o a d e d
0100240 v i a L O A D F N S . L o a
0100260 d a l l o t h e r e x p r
0100300 e s s i o n s f r o m i t "
0100320 \r
0100340
*
0100400 ) ) \r
0100420
*
0100460 N I L ) ) ) \r
0100500 ( S E L E C T Q
0100520 [ A S K U S E R D W I M W A
0100540 I T ( C A R Z ) \r
0100560
0100600 ( C D R Z )
0100620 \r
0100640 '
0100660 ( ( Y " e s \r " ) \r
0100700
0100720 ( N " o
0100740 \r " ) \r
0100760
0101000 ( A " b o r t M A K
0101020 E F I L E \r " ] \r
0101040 ( Y ( S
0101060 E L E C T Q ( 006 002 f e t c h 006
0101100 001 L O A D T Y P E 006 002 o f 006
0101120 001 F I L E P R O P ) \r
0101140
0101160 ( L O A D C O M P 006
0101200 003 006 001
0101220 006 003 ( * ; \r 006 001
0101240
0101260 006 003 "
0101300 f i l e w a s n e v e r a
0101320 c t u a l l y l o a d e d ,
0101340 j u s t l o a d c o m p e d .
0101360 t h u s n o f i l e c o
0101400 m s " ) 006 001 \r
0101420
0101440 ( L O A D F
0101460 R O M S O U R C E F I L E ) )
0101500 \r
0101520 ( C o m p i
0101540 l e d 006 003 006 001
0101560 006 003 ( * ; ; "
0101600 T h i s i s g o i n g t o
0101620 b e a r e m a k e . I
0101640 f i t w a s o r i g i n a
0101660 l l y l o a d e d a s a
0101700 c o m p i l e d f i l e , m
0101720 u s t f i r s t d o a L
0101740 O A D F R O M i n o r d e r
0101760 t o g e t t h e p r o p
0102000 e r t i e s s e t u p b y
0102020 d e c l a r e : e t c . " )
0102040 006 001 \r
0102060
0102100 ( L O A D V A R S
0102120 ' D O N T C O P Y S O U R C E
0102140 F I L E ) \r
0102160
0102200 ( 006 002 / r e p
0102220 l a c e 006 001 L O A D T Y P E
0102240 006 002 o f 006 001 F I L E P R O P
0102260 006 002 w i t h 006 001 ' C O M P I L
0102300 E D ) 006 003 006 001 \r
0102320
*
0102400 006 003 ( * ; " S o
0102420 w o n t h a v e t o b e
0102440 d o n e a g a i n . " ) 006 001 006
0102460 003 006 001 \r
0102500
*
0102540 006 003 ( * ; ; " T
0102560 h e s e a r e t h e o n l
0102600 y D E C L A R E : ' s t h a
0102620 t a r e n o t a l s o o
0102640 n t h e c o m p i l e d f
0102660 i l e . N o t e t h a t
0102700 a D E C L A R E : D O N T E
0102720 V A L @ L O A D w i l l b e
0102740 f o u n d a n d e v a l u
0102760 a t e d , b u t t h e c o
0103000 r r e s p o n d i n g e x p r
0103020 e s s i o n s w o n ' t b e
0103040 e v a l u a t e d f r o m
0103060 w i t h i n t h e D E C L A
0103100 R E : N o t w o r t h w h
0103120 i l e t o b o t h e r s e
0103140 t t i n g u p a c o m p l
0103160 i c a t e d e d i t p a t t
0103200 e r n t o s c r e e n t h
0103220 e s e o u t , e s p e c i a
0103240 l l y i f y o u c o n s i
0103260 d e r e x p r e s s i o n s
0103300 l i k e ( D E C L A R E : -
0103320 - D O N T E V A L @ L O A D
0103340 - - D O E V A L @ L O A D -
0103360 - ) " ) 006 001 \r
0103400
0103420 ) \r
0103440
0103460 ( ( l o a d f n s c
0103500 o m p i l e d ) 006 003 006 001
0103520 006 003 ( * ; ; " T h i s
0103540 i s g o i n g t o b e a
0103560 r e m a k e , b u t t h e
0103600 o r i g i n a l c a l l t
0103620 o L O A D F N S d i d n t
0103640 s p e c i f y a l l t h e
0103660 V A R S , s o s o m e e x
0103700 p r e s s i o n s m a y n o
0103720 t h a v e b e e n l o a d
0103740 e d . " ) 006 001 \r
0103760
0104000 ( L O A D V A R S
0104020 T S O U R C E F I L E ) ) \r
0104040
0104060 N I L ) ) \r
0104100
0104120 ( A ( G O O U T ) ) \r
0104140 N
0104160 I L ) ) ) \r
0104200 ( R E S E T L S T [ C O N D \r
0104220
0104240 ( ( M E M B ' N
0104260 O C L I S P O P T I O N S ) \r
0104300
0104320 ( R E S E T S A
0104340 V E P R E T T Y T R A N F L G
0104360 T ) ) \r
0104400 ( ( M E
0104420 M B ' C L I S P % O P T I
0104440 O N S ) \r
0104460 ( R E
0104500 S E T S A V E P R E T T Y T R
0104520 A N F L G ' B O T H ] \r
0104540 ( R
0104560 E S E T S A V E % # U N D O S
0104600 A V E S ) \r
0104620 ( C O N D \r
0104640
0104660 ( ( M E M B ' F A S T O P
0104700 T I O N S ) \r
0104720 ( R E S
0104740 E T S A V E P R E T T Y F L G
0104760 N I L ) ) ) \r
0105000 [ C O N D \r
0105020
0105040 ( ( O R ( M E M B ' C
0105060 L I S P I F Y O P T I O N S )
0105100 \r
0105120 ( M E M B
0105140 ' C L I S P O P T I O N S ) )
0105160 \r
0105200 ( R E S E T S A V E
0105220 C L I S P I F Y P R E T T Y F
0105240 L G T ) ) \r
0105260 ( ( O R
0105300 ( E Q F I L E T Y P E ' C L
0105320 I S P ) \r
0105340 ( M
0105360 E M B ' C L I S P ( L I S T
0105400 P F I L E T Y P E ) ) ) \r
0105420
0105440 ( R E S E T S A V E C L
0105460 I S P I F Y P R E T T Y F L G
0105500 ' C H A N G E S ] \r
0105520 ( S E L E
0105540 C T Q ( R A D I X ) \r
0105560
0105600 ( ( 8 1 0 ) 006 003 006 001
0105620
0105640 006 003 ( * ; \r 006 001
0105660 006 003 " m
0105700 a k e s u r e r a d i x i
0105720 s e i t h e r 8 o r 1 0
0105740 , b e c a u s e a l l o t
0105760 h e r s d o n ' t r e a d
0106000 i n l i k e t h e y p r i
0106020 n t " ) 006 001 \r
0106040
0106060 N I L ) \r
0106100 ( R E S E
0106120 T S A V E ( R A D I X 1 0 )
0106140 ) ) \r
0106160 ( 006 002 f o r 006 001 X 006
0106200 002 i n 006 001 M A K E F I L E F O
0106220 R M S 006 002 d o 006 001 ( E R S E
0106240 T Q ( E V A L X ) ) ) \r
0106260 (
0106300 S E T Q F I L E ( P R E T T
0106320 Y D E F N I L F I L E ( 006
0106340 002 f e t c h 006 001 C O M S N A M
0106360 E 006 002 o f 006 001 F I L E P R O
0106400 P ) \r
0106420
0106440 R E P R I N T F N S
0106460 S O U R C E F I L E C H A N
0106500 G E S ) ) ) \r
0106520 ( S E T Q L A S T F I L E
0106540 R O O T N A M E ) \r
0106560 ( 006 002 / r e p l a c e 006
0106600 001 T O B E D U M P E D 006 002 o
0106620 f 006 001 F I L E P R O P 006 002 w
0106640 i t h 006 001 N I L ) \r
0106660 ( C O N D \r
0106700 ( ( N O T ( E
0106720 Q M E M B ' D O N ' T L I S T
0106740 F I L E T Y P E ) ) \r
0106760 ( 006 002 p u s
0107000 h n e w 006 001 N O T L I S T E D
0107020 F I L E S R O O T N A M E ) )
0107040 ) \r ( C O N
0107060 D \r (
0107100 ( N O T ( E Q M E M B ' D O
0107120 N ' T C O M P I L E F I L E T
0107140 Y P E ) ) \r
0107160 ( 006 002 p u s h n e w 006 001
0107200 N O T C O M P I L E D F I L E
0107220 S R O O T N A M E ) ) ) \r
0107240 [ 006 002 f o r 006 001
0107260 T A I L O P T 006 002 o n 006 001
0107300 O P T I O N S 006 002 d o 006 001
0107320 ( S E T Q O P T ( C A R T
0107340 A I L ) ) \r
0107360
0107400 ( S E L
0107420 E C T Q O P T \r
0107440
*
0107500 ( R C ( A N D ( M E M
0107520 B R O O T N A M E N O T C O
0107540 M P I L E D F I L E S ) \r
0107560
*
0107640 ( 006 002 M A K E F I L E 1 006 001 F
0107660 I L E T ( C D R T A I L )
0107700 ) ) ) \r
0107720
0107740 ( C
0107760 ( A N D ( M E M B R O O T
0110000 N A M E N O T C O M P I L E D
0110020 F I L E S ) \r
0110040
*
0110100 ( 006 002 M A K E
0110120 F I L E 1 006 001 F I L E N I L
0110140 ( C D R T A I L ) ) ) ) \r
0110160
*
0110220 ( L I S T (
0110240 A N D ( M E M B R O O T N A
0110260 M E N O T L I S T E D F I L E
0110300 S ) \r
0110320
*
0110360 ( A P P L Y '
0110400 L I S T F I L E S ( L I S T
0110420 F I L E ) ) ) ) \r
0110440
*
0110500 ( C O N D \r
0110520
*
0110560 ( ( M E M B O P T
0110600 M A K E F I L E O P T I O N S
0110620 ) ) \r
0110640
*
0110700 ( ( F I X S P E L L O P T N
0110720 I L M A K E F I L E O P T I O
0110740 N S N I L O P T I O N S ) \r
0110760
*
0111020 ( G
0111040 O $ $ L P ) ) \r
0111060
*
0111120 ( T ( E R R O R
0111140 " U n r e c o g n i z e d M A
0111160 K E F I L E o p t i o n " O
0111200 P T ] \r ( R
0111220 E T U R N F I L E ) \r
0111240 O U T ( R E T U R N ( C
0111260 O N S F I L E ' ' ( - M A
0111300 K E F I L E n o t p e r f o
0111320 r m e d . ] ) \r \r ( 006 004 F I L E
0111340 C H A N G E S 006 001 \r [ L A M
0111360 B D A ( F I L E T Y P E ) 006
0111400 003 006 001
0111420
0111440 006 003 ( *
0111460 b v m % : " 3 0 - A u g - 8 6
0111500 1 5 : 0 8 " ) 006 001 006 003 006 001 \r
0111520
*
0111600 006 003 ( * ; ; " I f F I L
0111620 E i s a l i s t , i t
0111640 i s a s s u m e d t o b e
0111660 a f i l e - c r e a t e d
0111700 e x p r e s s i o n s ; o t
0111720 h e r w i s e , t h e f i l
0111740 e c r e a t e d e x p r e s s
0111760 i o n i s r e a d f r o m
0112000 F I L E . I f T Y P E ,
0112020 r e t u r n s t h e l i s
0112040 t o f c h a n g e d i t e
0112060 m s o f t h a t t y p e
0112100 f r o m t h e c h a n g e s
0112120 e x p r e s s i o n . I f
0112140 T Y P E = N I L , r e t u r
0112160 n s t h e w h o l e l i s
0112200 t o f t y p e d c h a n g
0112220 e - l i s t s " ) 006 001 \r
0112240 ( P R O G ( [ F C E X P R (
0112260 O R ( L I S T P F I L E ) \r
0112300
0112320 ( A N D F I L E
0112340 ( R E S E T L S T ( L E T
0112360 ( O L D P T R S T R E A M ) \r
0112400
*
0112460 [ 006 002 i f 006 001 ( S E T Q S T
0112500 R E A M ( O P E N P F I L E
0112520 ' I N P U T ) ) \r
0112540
*
0112600 006 002
0112620 t h e n 006 001 ( S E T Q O L D
0112640 P T R ( G E T F I L E P T R
0112660 S T R E A M ) ) \r
0112700
*
0112760 ( S E T F I L E P T R S T
0113000 R E A M 0 ) \r
0113020
*
0113060 006 002 e l s e
0113100 006 001 ( R E S E T S A V E N I
0113120 L ( L I S T ' C L O S E F \r
0113140
*
0113240 ( S E T
0113260 Q S T R E A M \r
0113300
*
0113400 ( O P E N S T R E A
0113420 M F I L E \r
0113440
*
0113540 ' I N P U
0113560 T ] \r
0113600
*
0113640 ( C L : M U L T I P L E -
0113660 V A L U E - B I N D ( E N V
0113700 F C ) \r
0113720
*
0113760 ( \ P A R
0114000 S E - F I L E - H E A D E R S
0114020 T R E A M ' R E T U R N ) \r
0114040
*
0114120 ( 006 002 i f 006 001 O L
0114140 D P T R \r
0114160
*
0114240 006 002 t h e n 006 001 ( S E T F I L
0114260 E P T R S T R E A M O L D P
0114300 T R ) ) \r
0114320
*
0114360 F C ] \r
0114400 F N S C
0114420 H A N G E S ) \r
0114440 ( S E T Q C H A N G E S
0114460 ( L D I F F ( S E T Q C H A
0114500 N G E S ( C D R ( M E M B
0114520 ' t o % : F C E X P R ) ) ) \r
0114540
0114560 (
0114600 M E M B ' p r e v i o u s C
0114620 H A N G E S ) ) ) \r
0114640 [ 006 002 i f 006 001 ( A N D
0114660 T Y P E ( N E Q T Y P E
0114700 ' F N S ) ) \r
0114720 006 002 t h e n 006 001 ( R
0114740 E T U R N ( C D R ( A S S O
0114760 C T Y P E C H A N G E S ] \r
0115000 ( S E T Q
0115020 F N S ( S U B S E T C H A N
0115040 G E S ( F U N C T I O N L I
0115060 T A T O M ) ) ) 006 003 006 001 \r
0115100
*
0115140 006
0115160 003 ( * ; \r 006 001
0115200
0115220 006 003 " O l d s t y l e
0115240 c h a n g e s e x p r e s s
0115260 i o n l i s t e d F N S b
0115300 y n a m e a n d o t h e r
0115320 t h i n g s b y t y p e "
0115340 ) 006 001 \r ( R
0115360 E T U R N ( 006 002 i f 006 001 T Y
0115400 P E \r
0115420 006 002 t h e n 006
0115440 001 006 003 006 001
0115460
0115500 006 003 ( * ; "
0115520 T Y P E = F N S c a u s e o
0115540 f t e s t a b o v e . " ) 006
0115560 001 \r
0115600 ( N C
0115620 O N C F N S ( C D R ( A S
0115640 S O C ' F N S C H A N G E S
0115660 ) ) ) \r
0115700 006 002 e l s e i f
0115720 006 001 F N S \r
0115740 006 002 t
0115760 h e n 006 001 ( C O N S ( C O N
0116000 S ' F N S F N S ) \r
0116020
0116040 ( S U
0116060 B S E T C H A N G E S ( F U
0116100 N C T I O N L I S T P ) ) ) \r
0116120
0116140 006 002 e l s e 006 001 C H A
0116160 N G E S ] ) \r \r ( 006 004 F I L E P
0116200 K G . M E R G E C H A N G E S 006
0116220 001 \r [ L A M B D A ( C 1
0116240 C 2 ) 006 003 006 001
0116260
*
0116320 006 003 ( * r m k % : " 2
0116340 4 - M A Y - 8 2 2 3 : 0 9 " )
0116360 006 001 006 003 006 001 \r
0116400
*
0116440 006 003 ( * ; ;
0116460 " M e r g e s 2 c h a n g
0116500 e s l i s t s i n t o a
0116520 s i n g l e o n e . T r e
0116540 a t L I T A T O M ' s a s
0116560 F N S , t o a c c o m o d a
0116600 t e o l d - s t y l e f o r
0116620 m a t o n f i l e s . " ) 006
0116640 001 \r ( 006 002 f o r 006 001 E
0116660 2 T E M P ( V A L _ ( 006
0116700 002 f o r 006 001 E 1 006 002 i n 006 001
0116720 C 1 006 002 w h e n 006 001 ( C D
0116740 R ( L I S T P E 1 ) ) 006 002
0116760 c o l l e c t 006 001 ( A P P E N
0117000 D E 1 ) ) ) 006 002 i n 006 001 C
0117020 2 \r 006 002 d o 006 001
0117040 [ C O N D \r
0117060 ( ( S E T Q T E M P (
0117100 A S S O C ( C A R E 2 ) \r
0117120
0117140 V
0117160 A L ) ) \r
0117200 ( N C O N C T E M P (
0117220 006 002 f o r 006 001 X 006 002 i n 006 001
0117240 ( C D R E 2 ) 006 002 u n l e
0117260 s s 006 001 ( M E M B E R X (
0117300 C D R T E M P ) ) 006 002 c o l
0117320 l e c t 006 001 X ) ) ) \r
0117340 ( T ( S E T
0117360 Q V A L ( N C O N C 1 V A
0117400 L ( A P P E N D E 2 ] 006 002
0117420 f i n a l l y 006 001 ( R E T U R
0117440 N V A L ] ) \r \r ( 006 004 F I L E
0117460 P K G . C H A N G E D F N S 006 001
0117500 \r [ L A M B D A ( C H A N
0117520 G E S ) 006 003 006 001
0117540
*
0117600 006 003 ( * r m k % : " 2 0
0117620 - M A Y - 8 2 2 2 : 0 0 " ) 006
0117640 001 006 003 006 001 \r
0117660
*
0117720 006 003 ( * ; ;
0117740 " R e t u r n s l i s t o f
0117760 f u n c t i o n n a m e s
0120000 f r o m a f i l e - c h a n
0120020 g e s l i s t . I n t e r
0120040 p r e t s o l d f o r m a t
0120060 ( f u n c t i o n s a r e
0120100 a t o m s ) a n d n e w f
0120120 o r m a t ( w i t h e x p l
0120140 i c i t t y p e h e a d e r
0120160 s ) " ) 006 001 \r ( C D R
0120200 ( A S S O C ' F N S C H A N
0120220 G E S ] ) \r \r ( 006 004 M A K E F I
0120240 L E 1 006 001 \r [ L A M B D A
0120260 ( F I L E R E C O M P F L G
0120300 O P T I O N S O T H E R F I L
0120320 E S ) 006 003 006 001
0120340 006 003 ( * l m m
0120360 " 1 2 - M a y - 8 6 1 1 : 1 6
0120400 " ) 006 001 \r ( P R O G (
0120420 ( R O O T N A M E ( R O O T F
0120440 I L E N A M E F I L E ) ) \r
0120460 G R O U P )
0120500 \r ( S E T Q
0120520 G R O U P ( G E T P R O P
0120540 R O O T N A M E ' F I L E G R
0120560 O U P ) ) \r
0120600 ( C O N D \r
0120620 ( [ 006 002 f i n d 006 001 X
0120640 006 002 i n 006 001 G R O U P 006 002 s
0120660 u c h t h a t 006 001 ( A N D (
0120700 N E Q X R O O T N A M E ) \r
0120720
*
0120760 ( O R
0121000 ( 006 002 f e t c h 006 001 T O B E
0121020 D U M P E D 006 002 o f 006 001 ( 006
0121040 002 f e t c h 006 001 F I L E P R O
0121060 P 006 002 o f 006 001 X ) ) \r
0121100
*
0121140 ( M
0121160 E M B X O T H E R F I L E S
0121200 ] 006 003 006 001 \r
0121220
*
0121260 006 003 ( * ; ;
0121300 " T h e f i l e i n q u e
0121320 s t i o n m u s t b e r e
0121340 c o m p i l e d w i t h o t
0121360 h e r f i l e s , a n d o
0121400 n e o f t h e r e m a i n
0121420 i n g f i l e s s t i l l
0121440 n e e d s t o b e d u m p
0121460 e d , o r e l s e o n e
0121500 o f t h e o t h e r f i l
0121520 e i s f u r t h e r d o w
0121540 n t h e l i s t o f f i
0121560 l e s b e i n g c o m p i l
0121600 e d . W a i t . " ) 006 001 \r
0121620 ( R E
0121640 T U R N ) ) ) \r
0121660 ( L I S P X P R I N 1 ' "
0121700 \r c o m p i l i n g " T ) \r
0121720 ( L I S P X
0121740 P R I N T ( O R G R O U P
0121760 F I L E ) \r
0122000 T T ) \r
0122020 ( L I S P X P R I N
0122040 T [ L E T ( ( C O M P I L E
0122060 R ( 006 002 C O M P I L E - F I L
0122100 E ? 006 001 R O O T N A M E ) ) )
0122120 \r
0122140 ( C O N
0122160 D \r
0122200
0122220 ( C O M P I L E R ( C L : F U
0122240 N C A L L C O M P I L E R F
0122260 I L E : R E D E F I N E \r
0122300
*
0122340 ( A N
0122360 D ( M E M B ( C A R O P T
0122400 I O N S ) \r
0122420
*
0122500 ' ( S T S T F ) ) \r
0122520
*
0122560 T
0122600 ) ) ) \r
0122620
0122640 ( T [ C O N D \r
0122660
0122700 (
0122720 ( M E M B ( C A R O P T I O
0122740 N S ) \r
0122760
0123000 '
0123020 ( S T F S S T F ) ) \r
0123040
*
0123100 ( L I S P X U N R E A D
0123120 ( L I S T ( C A R O P T I O
0123140 N S ] \r
0123160
0123200 ( C O N D \r
0123220
0123240 [
0123260 G R O U P 006 003 006 001
0123300 006 003 ( * ; \r 006 001
0123320
*
0123360 006 003 " F i l e c o n t a i n e
0123400 d i n F I L E G R O U P .
0123420 T h e r e f o r e m u s t
0123440 b e b l o c k c o m p i l e d
0123460 . " ) 006 001 \r
0123500
*
0123540 ( C O N D \r
0123560
*
0123620 ( R E C O M P F L G
0123640 ( B R E C O M P I L E G R O U
0123660 P ) ) \r
0123700
*
0123740 ( T ( B C O M P L G R O
0123760 U P ] \r
0124000
0124020 [ ( 006 002 I N F I
0124040 L E C O M S ? 006 001 T ' B L O
0124060 C K S ( 006 002 F I L E C O M S 006
0124100 001 R O O T N A M E ) ) \r
0124120
*
0124160 ( C O N D \r
0124200
*
0124240 ( R E C O M P F L G ( B R E C
0124260 O M P I L E F I L E ) ) \r
0124300
*
0124340 ( T ( B C O M P L
0124360 ( L I S T F I L E ] \r
0124400
*
0124440 ( R E C O M P F L G ( R E C
0124460 O M P I L E F I L E ) ) \r
0124500
*
0124540 ( T ( T C O M P L ( L I
0124560 S T F I L E ] \r
0124600 T T ] ) \r
0124620 \r ( 006 004 C O M P I L E - F I L E
0124640 ? 006 001 \r [ L A M B D A ( R
0124660 O O T N A M E ) 006 003 006 001
0124700
*
0124740 006 003 ( * b v m % :
0124760 " 2 7 - O c t - 8 6 1 8 : 0 5
0125000 " ) 006 001 \r ( L E T [ (
0125020 T Y P E ( G E T R O O T N A
0125040 M E ' F I L E T Y P E ] \r
0125060 ( 006 002 i f 006 001 (
0125100 E Q M E M B ' : C O M P I L E
0125120 - F I L E T Y P E ) \r
0125140 006 002 t h e n 006
0125160 001 ' C L : C O M P I L E - F I
0125200 L E \r 006 002
0125220 e l s e i f 006 001 T Y P E \r
0125240 006 002 t h e
0125260 n 006 001 ( 006 002 f o r 006 001 X 006
0125300 002 i n s i d e 006 001 T Y P E 006
0125320 002 b i n d 006 001 U N K N O W N
0125340 006 002 d o 006 001 ( 006 002 i f 006 001 (
0125360 C L : S T R I N G = X : C O
0125400 M P I L E - F I L E ) \r
0125420
*
0125500 006 002 t h e n 006 001 006 003
0125520 006 001 \r
0125540
*
0125600 006 003 ( * ; \r 006 001
0125620 006 003 " f o r b
0125640 a c k w a r d - c o m p a t i b
0125660 i l i t y a n d c a r e l e
0125700 s s n e s s , a c c e p t a
0125720 n y t h i n g t h a t l o o
0125740 k s l i k e : C O M P I L E
0125760 - F I L E " ) 006 001 \r
0126000
*
0126060 ( R E T U R N
0126100 ' C L : C O M P I L E - F I L E
0126120 ) \r
0126140
*
0126200 006 002 e l s e i
0126220 f 006 001 ( C L : S T R I N G =
0126240 X : X C L - C O M P I L E - F
0126260 I L E ) \r
0126300
*
0126340 006 002
0126360 t h e n 006 001 ( R E T U R N '
0126400 C O M P I L E R : : X C L - C O
0126420 M P I L E - F I L E ) \r
0126440
*
0126520 006 002 e l s e i f 006 001 ( N
0126540 E Q X ' C L I S P ) \r
0126560
*
0126640 006 002 t h e n 006 001 (
0126660 S E T Q U N K N O W N T ) )
0126700 \r
0126720 006 002 f i n a l l y 006
0126740 001 ( 006 002 i f 006 001 U N K N O W
0126760 N \r
0127000
0127020 006 002 t h e n 006 001 ( F O R
0127040 M A T T " ~ 2 % % * * W a r
0127060 n i n g : u n k n o w n F I
0127100 L E T Y P E v a l u e ~ S ~
0127120 2 % % " T Y P E ] ) \r \r ( 006 004
0127140 M A K E F I L E S 006 001 \r [ L
0127160 A M B D A ( O P T I O N S F
0127200 I L E S ) 006 003 006 001
0127220
0127240 006 003 (
0127260 * r m k % : " 2 3 - F E B -
0127300 8 3 2 1 : 2 0 " ) 006 001 \r
0127320 ( R E S E T V A R S ( % # U
0127340 N D O S A V E S ) 006 003 006 001
0127360
0127400 006 003 ( * ; \r 006 001
0127420
*
0127460 006
0127500 003 " W i l l i n g t o s a v
0127520 e a r b i t r a r y a m o u
0127540 n t s o f u n d o i n f o
0127560 " ) 006 001 \r
0127600 ( 006 002 U P D A T E F I L
0127620 E S 006 001 ) \r
0127640 [ C O N D \r
0127660 ( ( N
0127700 U L L F I L E S ) \r
0127720 ( 006
0127740 002 f o r 006 001 T Y P E F L G
0127760 006 002 i n 006 001 F I L E P K G T Y
0130000 P E S 006 002 w h e n 006 001 [ 006 002
0130020 F I L E S ? 1 006 001 T Y P E (
0130040 C O N D \r
0130060
*
0130140 ( ( N U
0130160 L L F L G ) 006 003 006 001 \r
0130200
*
0130260 006 003 ( * ;
0130300 " G e t s p r i n t e d t h
0130320 e f i r s t t i m e " ) 006 001
0130340 \r
0130360
*
0130440 ' \r
0130460
*
0130520 " * * * * N O T E : t h
0130540 e f o l l o w i n g a r e
0130560 n o t c o n t a i n e d o n
0130600 a n y f i l e : \r "
0130620 ) \r
0130640
*
0130720 ( T ' "
0130740 " ] \r
0130760 006 002 d o 006
0131000 001 ( S E T Q F L G T ) 006
0131020 002 f i n a l l y 006 001 ( A N D
0131040 F L G ( 006 002 A D D T O F I L E
0131060 S ? 006 001 ] \r
0131100 ( S E T Q O P T I O
0131120 N S ( M K L I S T O P T I O
0131140 N S ) ) \r
0131160 ( R E T U R N ( 006 002 f
0131200 o r 006 001 F I L E 006 002 i n s i
0131220 d e 006 001 ( O R F I L E S F
0131240 I L E L S T ) \r
0131260
0131300 006 002 w h e n 006 001 [ 006 002 f e
0131320 t c h 006 001 T O B E D U M P E D
0131340 006 002 o f 006 001 ( L I S T P (
0131360 006 002 f e t c h 006 001 F I L E P R
0131400 O P 006 002 o f 006 001 ( R O O T F
0131420 I L E N A M E F I L E ] \r
0131440
0131460 006 002 c o l l e c
0131500 t 006 001 ( L I S P X P R I N 2
0131520 F I L E T T ) \r
0131540
0131560 ( L I S P X
0131600 P R I N 1 ' . . . T ) \r
0131620
0131640 ( P
0131660 R O G 1 ( 006 002 M A K E F I L E
0131700 006 001 F I L E O P T I O N S )
0131720 \r
0131740
0131760 ( L I S P X T E
0132000 R P R I T ] ) \r \r ( 006 004 A D D
0132020 F I L E 006 001 \r [ L A M B D A
0132040 ( F I L E L O A D T Y P E
0132060 P R L S T F C L S T ) 006 003 006 001
0132100
0132120 006 003 ( * b v m
0132140 % : " 2 9 - A u g - 8 6 1 2
0132160 : 2 2 " ) 006 001 006 003 006 001 \r
0132200
*
0132240 006 003
0132260 ( * ; ; " P R L S T i s
0132300 t h e F I L E P K G C H A N G
0132320 E S p r i o r t o t h i s
0132340 f i l e o p e r a t i o n ,
0132360 F C L S T i s a l i s t
0132400 o f f i l e - c r e a t e d
0132420 a r g u m e n t s , a s i
0132440 n g l e t o n f o r a s y
0132460 m b o l i c f i l e , a n d
0132500 a l i s t w h o s e c a
0132520 r r e p r e s e n t s t h e
0132540 c o m p i l e d f i l e a
0132560 n d w h o s e c d r r e p
0132600 r e s e n t s y m b o l i c
0132620 f i l e s c o m p i l e d i
0132640 n t o i t , f o r c o m p
0132660 i l e d f i l e s . " ) 006 001 \r
0132700 ( P R O G ( ( R O O T
0132720 N A M E ( R O O T F I L E N A
0132740 M E F I L E ) ) \r
0132760 F L S T V A L ) \r
0133000 [ C O N D \r
0133020 ( ( N O
0133040 T F C L S T ) \r
0133060 ( S E T Q V A L
0133100 ( 006 002 A D D F I L E 0 006 001 R
0133120 O O T N A M E L O A D T Y P E
0133140 F I L E ) ) ) \r
0133160 [ ( N U L L ( C D
0133200 R F C L S T ) ) 006 003 006 001
0133220
0133240 006 003 ( * ;
0133260 " A s i m p l e s y m b o
0133300 l i c f i l e " ) 006 001 \r
0133320 ( S E T Q
0133340 F C L S T ( C A R F C L S
0133360 T ) ) \r
0133400 ( S E T Q V A L ( 006 002 A
0133420 D D F I L E 0 006 001 ( C O N D \r
0133440
*
0133500 ( ( L I T A T O M (
0133520 C A D R F C L S T ) ) \r
0133540
*
0133600 ( R O O T F I L E N A M E
0133620 ( C A D R F C L S T ) ) ) \r
0133640
*
0133700 ( T R O O T N A M E
0133720 ) ) \r
0133740
0133760 L O A D T Y P E F I L E
0134000 ( C A R F C L S T ] \r
0134020 ( T 006 003 006 001
0134040
*
0134100 006 003 ( * ; ; " A c o m
0134120 p i l e d f i l e , s k i p
0134140 t h e f i r s t e x p r e
0134160 s s i o n r e p r e s e n t i
0134200 n g t h e c o m p i l e d
0134220 f i l e i t s e l f , l o o
0134240 k a t t h e c d r r e p
0134260 r e s e n t i n g t h e s y
0134300 m b o l i c f i l e s . " ) 006
0134320 001 \r
0134340 ( S E L E C T Q L O A D T
0134360 Y P E \r
0134400 ( ( T L O A D
0134420 F N S ) \r
0134440 (
0134460 S E T Q L O A D T Y P E ' C
0134500 o m p i l e d ) ) \r
0134520 ( l
0134540 o a d f n s ( S E T Q L O A
0134560 D T Y P E ' c o m p i l e d )
0134600 ) \r
0134620 ( L O A D C O M P
0134640 006 003 006 001
0134660 006 003 ( * ; \r
0134700 006 001
0134720 006 003 " l o a d c o
0134740 m p o n c o m p i l e d f
0134760 i l e . D o n ' t n o t i
0135000 c e s i n c e w e d o n '
0135020 t k n o w w h a t i t s
0135040 s t a t e i s " ) 006 001 \r
0135060
0135100 N I L ) \r
0135120
0135140 ( S H O U L D N T ) ) \r
0135160
0135200 ( 006 002 f o r 006 001 X 006 002 i n 006
0135220 001 ( C D R F C L S T ) 006 002
0135240 w h e n 006 001 ( L I T A T O M
0135260 ( C A D R X ) ) \r
0135300 006 002 d
0135320 o 006 001 ( 006 002 p u s h 006 001 F L
0135340 S T ( C A D R X ) ) \r
0135360
0135400 ( O R ( E Q L O A D T
0135420 Y P E ' L O A D C O M P ) \r
0135440
0135460 ( 006 002 A D D F
0135500 I L E 0 006 001 ( R O O T F I L E
0135520 N A M E ( C A D R X ) ) \r
0135540
*
0135600 L O A D T Y P E \r
0135620
0135640 ( C A D R
0135660 X ) \r
0135700
0135720 ( C A R X ] \r
0135740 ( 006 002 U P D A T E F
0135760 I L E S 006 001 P R L S T ( O R
0136000 F L S T ( L I S T F I L E
0136020 ) ) ) \r [ A
0136040 N D L O A D T Y P E ( 006 002 f
0136060 o r 006 001 T Y P E C H A N G E
0136100 D 006 002 i n 006 001 F I L E P K G
0136120 T Y P E S 006 002 w h e n 006 001 (
0136140 A N D ( L I T A T O M T Y P
0136160 E ) \r
0136200
*
0136260 ( S E T Q C H A
0136300 N G E D \r
0136320
*
0136400 ( 006 002 f e t
0136420 c h 006 001 C H A N G E D 006 002 o
0136440 f 006 001 T Y P E ) ) ) \r
0136460
0136500 006 002 d o 006 001 ( 006
0136520 002 / r e p l a c e 006 001 C H A N
0136540 G E D 006 002 o f 006 001 T Y P E
0136560 006 002 w i t h 006 001 ( I N T E R S
0136600 E C T I O N ( C D R ( A S S
0136620 O C T Y P E P R L S T ) ) \r
0136640
*
0136740 C H A N G E D ] \r
0136760 ( A N D A D D S
0137000 P E L L F L G ( A D D S P E L
0137020 L R O O T N A M E U S E R W
0137040 O R D S ) ) \r
0137060 ( R E T U R N V A L ] ) \r \r
0137100 ( 006 004 A D D F I L E 0 006 001 \r
0137120 [ L A M B D A ( R O O T N A M
0137140 E L O A D T Y P E F U L L N
0137160 A M E D A T ) 006 003 006 001
0137200 006
0137220 003 ( * l m m " 2 8 - N o v -
0137240 8 4 1 6 : 4 7 " ) 006 001 \r
0137260 ( P R O G ( C O M S X F
0137300 I L E P R O P F L G T E M )
0137320 \r T O P ( S E T Q
0137340 C O M S ( 006 002 F I L E C O M
0137360 S 006 001 R O O T N A M E ) ) \r
0137400 [ C O N D \r
0137420 ( ( S E
0137440 T Q F I L E P R O P ( 006 002 f
0137460 e t c h 006 001 F I L E P R O P
0137500 006 002 o f 006 001 R O O T N A M E )
0137520 ) \r
0137540 ( C O N D \r
0137560 ( [ A N D L O A
0137600 D T Y P E ( F M E M B L O A
0137620 D T Y P E \r
0137640
0137660 ( C D
0137700 R ( F M E M B ( 006 002 f e t c
0137720 h 006 001 L O A D T Y P E 006 002 o
0137740 f 006 001 F I L E P R O P ) \r
0137760
*
0140040 ' ( L O A D C O M P l o a d
0140060 f n s c o m p i l e d C o m
0140100 p i l e d L O A D F N S \r
0140120
*
0140200 C O M P I L
0140220 E D N I L T ] \r
0140240 ( 006 002 /
0140260 r e p l a c e 006 001 L O A D T Y
0140300 P E 006 002 o f 006 001 F I L E P R
0140320 O P 006 002 w i t h 006 001 L O A D
0140340 T Y P E ) 006 003 006 001 \r
0140360
*
0140420 006 003 ( *
0140440 ; ; " T h i s c a l l t
0140460 o A D D F I L E r e f l e c
0140500 t s a ' h i g h e r ' d e
0140520 g r e e o f l o a d i n g ,
0140540 s o u p g r a d e p r o p
0140560 e r t y . ' l o a d f n s '
0140600 m e a n s j u s t s o m e
0140620 i n f o r m a t i o n f r o
0140640 m f i l e , i f g o t o
0140660 d o m a k e f i l e , m u
0140700 s t d o l o a d f r o m ,
0140720 ' c o m p i l e d ' i s l i
0140740 k e ' l o a d f n s ' b u t
0140760 f o r c o m p i l e d f i
0141000 l e s e . g . u s e r d o
0141020 e s L O A D F N S o n c o
0141040 m p i l e d f i l e . ' C
0141060 o m p i l e d ' m e a n s a
0141100 l l b u t D E C L A R E :
0141120 e x p r e s s i o n s a r e
0141140 i n . e . g . u s e r d
0141160 o e s L O A D o f a c o
0141200 m p i l e d f i l e . C O
0141220 M P I L E D m e a n s e v e
0141240 r y t h i n g i s i n , e
0141260 . g . u s e r d o e s L O
0141300 A D D F R O M a c o m p i l
0141320 e d f i l e . L O A D F N
0141340 S m e a n s e v e r y t h i
0141360 n g i n , e . g . u s e r
0141400 d e s L O A D F R O M s y
0141420 m b o l i c f i l e . C O
0141440 M P I L E D a n d L O A D F
0141460 N S a r e e q u i v a l e n
0141500 t i n t h a t m e a n s
0141520