$ od -c -N 50000 [eris]<LispCore>SOURCES>LLSYMBOL!10
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 5 : 0 3 : 0
0000140 1 " 006 004 { E R I S } < L I S P
0000160 C O R E > S O U R C E S > L L S
0000200 Y M B O L . ; 1 0 006 001 1 1 4 0
0000220 0 \r \r c h a n g
0000240 e s t o % : ( F U N C T I
0000260 O N S C L : F M A K U N B O U
0000300 N D C L : S Y M B O L - F U N
0000320 C T I O N U N D O A B L Y - S
0000340 E T F - S Y M B O L - F U N C T
0000360 I O N ) \r
0000400 ( V A R S L
0000420 L S Y M B O L C O M S ) \r \r
0000440 p r e v i o u s d a t
0000460 e % : " 2 6 - O c t - 8 6 0
0000500 0 : 0 3 : 5 7 " { E R I S } <
0000520 L I S P C O R E > S O U R C E S
0000540 > L L S Y M B O L . ; 9 ) \r \r \r
0000560 ( * " \r C o p y r i g h t (
0000600 c ) 1 9 8 6 b y X e r o x
0000620 C o r p o r a t i o n . A
0000640 l l r i g h t s r e s e r v
0000660 e d . \r " ) \r \r ( P R E T T Y C
0000700 O M P R I N T L L S Y M B O L
0000720 C O M S ) \r \r ( R P A Q Q 006 002
0000740 L L S Y M B O L C O M S 006 001 (
0000760 ( * ; ; " S y m b o l f u
0001000 n c t i o n s . " ) \r
0001020
0001040 ( * ; ; " S E T , B O
0001060 U N D P a n d R E M P R O P
0001100 a r e t h e s a m e a s
0001120 a n d s h a r e d w i t h
0001140 I n t e r l i s p - D " ) \r
0001160
0001200 ( F U N C T I O N S C
0001220 L : M A K U N B O U N D C L :
0001240 S Y M B O L - N A M E C L : S
0001260 Y M B O L - V A L U E G E T
0001300 C L : G E T F \r
0001320
0001340 C L : G E T - P R O P
0001360 E R T I E S ) \r
0001400 ( P
0001420 ( M O V D ' G E T P R O P L I
0001440 S T ' C L : S Y M B O L - P L
0001460 I S T ) ) \r
0001500 ( F U N C
0001520 T I O N S C L : F B O U N D P
0001540 C L : F M A K U N B O U N D
0001560 C L : S Y M B O L - F U N C T I
0001600 O N S E T F - S Y M B O L - F
0001620 U N C T I O N \r
0001640
0001660 U N D O A B L Y - S E
0001700 T F - S Y M B O L - F U N C T I
0001720 O N ) \r
0001740 ( A D D V A R
0001760 S ( L I S P X F N S ( S E T
0002000 F - S Y M B O L - F U N C T I O
0002020 N . U N D O A B L Y - S E T
0002040 F - S Y M B O L - F U N C T I O
0002060 N ) ) ) \r
0002100 ( V A R I A
0002120 B L E S * G E N S Y M - C O U
0002140 N T E R * * G E N S Y M - P R
0002160 E F I X * ) \r
0002200 ( F U N
0002220 C T I O N S C L : C O P Y - S
0002240 Y M B O L C L : G E N S Y M
0002260 M A K E - K E Y W O R D C L :
0002300 G E N T E M P C L : K E Y W O
0002320 R D P ) \r
0002340 ( P R O P
0002360 F I L E T Y P E L L S Y M B O
0002400 L ) ) ) \r \r \r \r 006 004 ( * ; ;
0002420 " S y m b o l f u n c t i o n
0002440 s . " ) 006 001 \r \r \r \r \r 006 004 ( *
0002460 ; ; " S E T , B O U N D
0002500 P a n d R E M P R O P a r
0002520 e t h e s a m e a s a n
0002540 d s h a r e d w i t h I n
0002560 t e r l i s p - D " ) 006 001 \r \r (
0002600 C L : D E F U N 006 002 C L : M A
0002620 K U N B O U N D 006 001 ( C L : S
0002640 Y M B O L ) " M a k e a s
0002660 y m b o l u n b o u n d . "
0002700 ( S E T C L : S Y M B O L '
0002720 N O B I N D ) 006 006 006 001 \r
0002740
*
0003020 006 006 ( * ; " u n b o
0003040 u n d s y m b o l s a r e
0003060 s e t t o I L : N O B I N D
0003100 " ) 006 001 \r
0003120
*
0003200 ( P U T H A S H C L : S Y
0003220 M B O L N I L C O M P V A R
0003240 M A C R O H A S H ) 006 006 006 001 \r
0003260
*
0003340 006 006 ( *
0003360 ; " r e m o v e a n y c
0003400 o n s t a n t e n t r y " ) 006
0003420 001 \r
0003440
*
0003500 C
0003520 L : S Y M B O L ) \r \r ( C L : D
0003540 E F U N 006 002 C L : S Y M B O L
0003560 - N A M E 006 001 ( C L : S Y M B
0003600 O L ) ( C L : C H E C K - T Y
0003620 P E C L : S Y M B O L C L :
0003640 S Y M B O L ) \r
0003660
0003700 ( M K
0003720 S T R I N G C L : S Y M B O L
0003740 ) ) \r \r ( C L : D E F U N 006 002
0003760 C L : S Y M B O L - V A L U E 006
0004000 001 ( C L : S Y M B O L ) 006 006
0004020 006 001 006 006
0004040 ( * ; ; " L i k e E V A L
0004060 V , b u t m u s t g i v e
0004100 e r r o r i f u n b o u n
0004120 d - u s e s f a c t t h
0004140 a t \ e v a l h a s a n
0004160 o p c o d e w h i c h h o o
0004200 k s i n t o f r e e v a r
0004220 i a b l e m i c r o c o d e "
0004240 ) 006 001 \r ( C L : C H E C K
0004260 - T Y P E C L : S Y M B O L
0004300 C L : S Y M B O L ) \r ( \
0004320 E V A L C L : S Y M B O L ) )
0004340 \r \r ( C L : D E F U N 006 002 G E
0004360 T 006 001 ( C L : S Y M B O L I
0004400 N D I C A T O R & O P T I O N
0004420 A L ( D E F A U L T N I L )
0004440 ) " L o o k o n t h e p
0004460 r o p e r t y l i s t o f
0004500 S Y M B O L f o r t h e s
0004520 p e c i f i e d I N D I C A T
0004540 O R . I f t h i s i s f
0004560 o u n d , r e t u r n t h e
0004600 a s s o c i a t e d v a l u
0004620 e , e l s e r e t u r n D
0004640 E F A U L T . " \r ( C L :
0004660 G E T F ( G E T P R O P L I S
0004700 T C L : S Y M B O L ) \r
0004720 I N D I C A T O R
0004740 D E F A U L T ) ) \r \r ( C L :
0004760 D E F U N 006 002 C L : G E T F 006
0005000 001 ( P L A C E I N D I C A T
0005020 O R & O P T I O N A L ( D E
0005040 F A U L T N I L ) ) " S e a
0005060 r c h e s t h e p r o p e r
0005100 t y l i s t s t o r e d i
0005120 n P l a c e f o r a n i
0005140 n d i c a t o r E Q t o I
0005160 n d i c a t o r . I f o n
0005200 e i s f o u n d , t h e
0005220 c o r r e s p o n d i n g v a
0005240 l u e i s r e t u r n e d ,
0005260 e l s e t h e D e f a u l
0005300 t i s r e t u r n e d . " \r
0005320 ( C L : D O ( ( P L I S
0005340 T P L A C E ( C D D R P L
0005360 I S T ) ) ) \r
0005400 ( ( N U L L P L I S T ) \r
0005420 D E F A U L
0005440 T ) \r ( C O
0005460 N D \r
0005500 ( ( L I T A T O M ( C D R P
0005520 L I S T ) ) \r
0005540 ( E R R O R ( C O N
0005560 C A T P L A C E " i s a
0005600 m a l f o r m e d p r o p e
0005620 r t y l i s t . " ) ) ) \r
0005640 ( ( E Q
0005660 ( C A R P L I S T ) \r
0005700 I N
0005720 D I C A T O R ) \r
0005740 ( R E T U R N (
0005760 C A D R P L I S T ) ) ) ) ) )
0006000 \r \r ( C L : D E F U N 006 002 C L
0006020 : G E T - P R O P E R T I E S 006
0006040 001 ( P L A C E I N D I C A T
0006060 O R - L I S T ) " L i k e G
0006100 E T F , e x c e p t t h a t
0006120 I n d i c a t o r - L i s t
0006140 i s a l i s t o f i n d
0006160 i c a t o r s w h i c h w i
0006200 l l b e l o o k e d f o r
0006220 i n t h e p r o p e r t y
0006240 l i s t s t o r e d i n
0006260 P l a c e . T h r e e v a l
0006300 u e s a r e r e t u r n e d
0006320 , s e e m a n u a l f o r
0006340 d e t a i l s . " \r ( C
0006360 L : D O ( ( P L I S T P L A
0006400 C E ( C D D R P L I S T ) )
0006420 ) \r ( ( N U
0006440 L L P L I S T ) \r
0006460 ( C L : V A L U E S
0006500 N I L N I L N I L ) ) \r
0006520 ( C O N D \r
0006540 ( ( L I T
0006560 A T O M ( C D R P L I S T )
0006600 ) \r
0006620 ( E R R O R ( C O N C A T P
0006640 L A C E " i s a m a l f
0006660 o r m e d p r o p r t y l i
0006700 s t . " ) ) ) \r
0006720 ( ( M E M Q ( C A R
0006740 P L I S T ) \r
0006760 I N D I
0007000 C A T O R - L I S T ) \r
0007020 ( R E T U R
0007040 N ( C L : V A L U E S ( C A
0007060 R P L I S T ) \r
0007100
0007120 ( C A D R P L I S
0007140 T ) \r
0007160
0007200 P L I S T ) ) ) ) ) ) \r \r ( M O
0007220 V D ' G E T P R O P L I S T
0007240 ' C L : S Y M B O L - P L I S T
0007260 ) \r ( C L : D E F U N 006 002 C L
0007300 : F B O U N D P 006 001 ( F N )
0007320 ( A N D ( C L : S Y M B O L P
0007340 F N ) \r
0007360
0007400 ( O R ( C L : S P E C
0007420 I A L - F O R M - P F N ) \r
0007440
*
0007500 ( A R G T Y P E F N ) \r
0007520
*
0007560 ( C L : M A C R O - F U N C
0007600 T I O N F N ) ) \r
0007620
0007640 T ) ) \r \r ( C
0007660 L : D E F U N 006 002 C L : F M A
0007700 K U N B O U N D 006 001 ( C L : S
0007720 Y M B O L ) ( P U T D C L :
0007740 S Y M B O L N I L ) \r
0007760
*
0010020 ( R E M P R O P C L : S Y M
0010040 B O L ' M A C R O - F N ) \r
0010060
*
0010120 ( R E M P R O P C L :
0010140 S Y M B O L ' S P E C I A L -
0010160 F O R M ) \r
0010200
0010220 C L : S Y
0010240 M B O L ) \r \r ( C L : D E F U N
0010260 006 002 C L : S Y M B O L - F U N
0010300 C T I O N 006 001 ( C L : S Y M B
0010320 O L & A U X ( D E F ( G E
0010340 T D C L : S Y M B O L ) ) )
0010360 006 006 006 001 \r
0010400
*
0010440 006 006 ( * ; ; "
0010460 t h i s f u n c t i o n i s
0010500 p r e f o r m a n c e - c r i
0010520 t i c a l , a s i t i s
0010540 u s e d i n t h e c o m p
0010560 i l a t i o n o f # ' F O O
0010600 = > ( C L : S Y M B O L - F
0010620 U N C T I O N ' F O O ) . T
0010640 h u s , t h i s d e f i n i
0010660 t i o n c h e c k s f o r
0010700 t h e G E T D d e f i n i t
0010720 i o n f i r s t . I t m i
0010740 g h t e v e n b e r e a s
0010760 o n a b l e t o o p e n - c
0011000 o d e t h e G E T D h e r
0011020 e . I t * i s * u n r e a
0011040 s o n a b l e t o c a l l
0011060 M A C R O - F U N C T I O N a
0011100 n d S P E C I A L - F O R M -
0011120 P f i r s t . " ) 006 001 \r
0011140 ( C O N D \r ( D E F
0011160 ) 006 006 006 001
0011200
*
0011240 006 006 ( * ; " G
0011260 E T D r e t u r n e d n o n
0011300 - N I L " ) 006 001 \r (
0011320 ( C L : S E T Q D E F ( C L
0011340 : M A C R O - F U N C T I O N
0011360 C L : S Y M B O L ) ) 006 006 006 001 006
0011400 006 ( * ; \r 006 001
0011420
*
0011460 006 006 " R e t u r n s o m
0011500 e t h i n g r e p r e s e n t
0011520 i n g t h e m a c r o ' s
0011540 i m p l e m e n t a t i o n . "
0011560 ) 006 001 \r ( C O N S
0011600 ' : M A C R O D E F ) ) \r
0011620 ( ( C L : S E T Q D
0011640 E F ( C L : S P E C I A L - F
0011660 O R M - P C L : S Y M B O L )
0011700 ) 006 006 006 001 006 006 ( * ; \r 006 001
0011720
*
0011760 006 006 " R e t u r n s o m e
0012000 t h i n g r e p r e s e n t i
0012020 n g t h e s p e c i a l - f
0012040 o r m ' s i m p l e m e n t a
0012060 t i o n . " ) 006 001 \r
0012100 ( C O N S ' : S P E C I A L
0012120 - F O R M D E F ) ) \r
0012140 ( T ( C L : E R R O R '
0012160 U N D E F I N E D - F U N C T I
0012200 O N : N A M E C L : S Y M B
0012220 O L ) ) ) ) \r \r ( C L : D E F U
0012240 N 006 002 S E T F - S Y M B O L -
0012260 F U N C T I O N 006 001 ( C L : S
0012300 Y M B O L C L : : D E F I N I
0012320 T I O N ) 006 006 006 001 006 006 (
0012340 * ; ; " i n v e r s e o
0012360 f S Y M B O L - F U N C T I O
0012400 N " ) 006 001 \r ( 006 002 I F 006 001
0012420 ( L I S T P C L : : D E F I
0012440 N I T I O N ) \r 006
0012460 002 T H E N 006 001 ( C A S E ( C
0012500 A R C L : : D E F I N I T I O
0012520 N ) \r
0012540 ( : M A C R O 006 006 006
0012560 001
0012600
0012620 006 006 ( * ; " S Y M B O L - F
0012640 U N C T I O N c o n s e s u
0012660 p t h i s l i s t " ) 006 001 \r
0012700
0012720 ( C L : S E T
0012740 F ( C L : M A C R O - F U N C
0012760 T I O N C L : S Y M B O L ) \r
0013000
*
0013040 ( C D R C L : : D E F I N I T
0013060 I O N ) ) \r
0013100 (
0013120 C L : R E T U R N - F R O M S
0013140 E T F - S Y M B O L - F U N C T
0013160 I O N C L : : D E F I N I T I
0013200 O N ) ) \r
0013220 ( : S P E C I A L
0013240 - F O R M ( C L : S E T F (
0013260 G E T C L : S Y M B O L ' S
0013300 P E C I A L - F O R M ) \r
0013320
*
0013360 ( C D R C L : : D E
0013400 F I N I T I O N ) ) \r
0013420
0013440 ( C L : R E T U R N - F
0013460 R O M S E T F - S Y M B O L -
0013500 F U N C T I O N C L : : D E F
0013520 I N I T I O N ) ) ) \r
0013540 006 002 E L S E I F 006 001 ( C L : S
0013560 Y M B O L P C L : : D E F I N
0013600 I T I O N ) \r 006 002
0013620 T H E N 006 001 ( C L : R E T U R
0013640 N - F R O M S E T F - S Y M B
0013660 O L - F U N C T I O N ( P U T
0013700 D C L : S Y M B O L ( G E T
0013720 D C L : : D E F I N I T I O N
0013740 ) \r
0013760
*
0014020 T ) ) \r
0014040 C L : : D E F
0014060 I N I T I O N ) \r ( P U T
0014100 D C L : S Y M B O L C L : :
0014120 D E F I N I T I O N T ) ) \r \r
0014140 ( C L : D E F U N 006 002 U N D O
0014160 A B L Y - S E T F - S Y M B O L
0014200 - F U N C T I O N 006 001 ( C L :
0014220 S Y M B O L C L : : D E F I N
0014240 I T I O N ) 006 006 006 001 \r
0014260
*
0014340 006 006 ( * ; ; " u n d
0014360 o a b l e i n v e r s e o f
0014400 S Y M B O L - F U N C T I O N
0014420 " ) 006 001 \r ( 006 002 I F 006 001
0014440 ( N U L L L I S P X H I S T )
0014460 \r 006 002 T H E N 006 001
0014500 006 006 006 001
0014520
0014540 006 006 ( *
0014560 ; ; " L I S P X H I S T i
0014600 s N I L w h e n u n d o a
0014620 b i l i t y i s o f f " ) 006
0014640 001 \r ( S
0014660 E T F - S Y M B O L - F U N C T
0014700 I O N C L : S Y M B O L C L
0014720 : : D E F I N I T I O N ) \r
0014740 006 002 E L S E 006 001 ( 006 002 I
0014760 F 006 001 ( L I S T P C L : : D
0015000 E F I N I T I O N ) \r
0015020 006 002 T H E N 006
0015040 001 ( C A S E ( C A R C L :
0015060 : D E F I N I T I O N ) \r
0015100
0015120 ( : M A C R O 006 006
0015140 006 001
0015160 006 006 ( * ;
0015200 " S Y M B O L - F U N C T I O
0015220 N c o n s e s u p t h i s
0015240 l i s t " ) 006 001 \r
0015260
0015300 ( U N D O A
0015320 B L Y - S E T F ( C L : M A C
0015340 R O - F U N C T I O N C L : S
0015360 Y M B O L ) \r
0015400
0015420 ( C
0015440 D R C L : : D E F I N I T I O
0015460 N ) ) \r
0015500
0015520 ( C L : R E T U R N - F
0015540 R O M U N D O A B L Y - S E T
0015560 F - S Y M B O L - F U N C T I O
0015600 N C L : : D E F I N I T I O N
0015620 ) ) \r
0015640 ( : S P
0015660 E C I A L - F O R M ( U N D O
0015700 A B L Y - S E T F ( G E T C
0015720 L : S Y M B O L ' S P E C I A
0015740 L - F O R M ) \r
0015760
*
0016020 ( C D R C L : :
0016040 D E F I N I T I O N ) ) \r
0016060
0016100 ( C L
0016120 : R E T U R N - F R O M U N D
0016140 O A B L Y - S E T F - S Y M B O
0016160 L - F U N C T I O N C L : : D
0016200 E F I N I T I O N ) ) ) \r
0016220 006 002 E L S E I
0016240 F 006 001 ( C L : S Y M B O L P
0016260 C L : : D E F I N I T I O N ) \r
0016300 006 002
0016320 T H E N 006 001 ( C L : R E T U R
0016340 N - F R O M U N D O A B L Y -
0016360 S E T F - S Y M B O L - F U N C
0016400 T I O N ( / P U T D C L : S
0016420 Y M B O L ( G E T D \r
0016440
*
0016560 C L : : D E F I N I T I
0016600 O N \r
0016620
*
0016720 ) \r
0016740
*
0017040 T ) ) \r
0017060 C L : :
0017100 D E F I N I T I O N ) ) ) \r \r \r
0017120 ( A D D T O V A R 006 002 L I S P
0017140 X F N S 006 001 ( S E T F - S Y M
0017160 B O L - F U N C T I O N . U
0017200 N D O A B L Y - S E T F - S Y M
0017220 B O L - F U N C T I O N ) ) \r (
0017240 C L : D E F V A R 006 002 * G E N
0017260 S Y M - C O U N T E R * 006 001 0
0017300 ) \r \r ( C L : D E F V A R 006 002
0017320 * G E N S Y M - P R E F I X * 006
0017340 001 " G " ) \r \r ( C L : D E F
0017360 U N 006 002 C L : C O P Y - S Y M
0017400 B O L 006 001 ( S Y M & O P T I
0017420 O N A L C O P Y - P R O P S )
0017440 ( C L : C H E C K - T Y P E
0017460 S Y M C L : S Y M B O L ) \r
0017500
*
0017560 ( L E T ( ( N E W S Y M
0017600 ( C L : M A K E - S Y M B O L
0017620 ( C L : S Y M B O L - N A M E
0017640 \r
0017660
*
0017760 S Y M ) ) ) ) \r
0020000
*
0020060 ( C O N D \r
0020100
*
0020160 ( C O P Y - P R O
0020200 P S ( C L : S E T F ( C L :
0020220 S Y M B O L - V A L U E \r
0020240
*
0020340 N
0020360 E W S Y M ) \r
0020400
*
0020500 ( C L : S Y M B O L
0020520 - V A L U E \r
0020540
*
0020640 S Y M ) ) \r
0020660
*
0020760 ( C L : S E T F ( C L : S Y M
0021000 B O L - F U N C T I O N \r
0021020
*
0021120 N E W S Y M
0021140 ) \r
0021160
*
0021240 ( C L :
0021260 S Y M B O L - F U N C T I O N
0021300 S Y M ) ) \r
0021320
*
0021400 ( C L : S E T
0021420 F ( C L : S Y M B O L - P L I
0021440 S T N E W S Y M ) \r
0021460
*
0021560 ( C O P Y ( C L : S
0021600 Y M B O L - P L I S T \r
0021620
*
0021720 S Y M
0021740 ) ) ) ) ) \r
0021760
*
0022020 N
0022040 E W S Y M ) ) \r \r ( C L : D E F
0022060 U N 006 002 C L : G E N S Y M 006 001
0022100 ( & O P T I O N A L X ) (
0022120 006 002 D E C L A R E 006 001 ( C L :
0022140 S P E C I A L * G E N S Y M -
0022160 C O U N T E R * * G E N S Y M
0022200 - P R E F I X * ) ) \r
0022220
0022240 ( C L
0022260 : E T Y P E C A S E X ( N U
0022300 L L ) \r
0022320
0022340 ( S T
0022360 R I N G ( C L : S E T F * G
0022400 E N S Y M - P R E F I X * X )
0022420 ) \r
0022440
0022460 ( I N T E
0022500 G E R ( C L : S E T F * G E
0022520 N S Y M - C O U N T E R * X )
0022540 ) ) \r
0022560
0022600 ( P R O G 1 ( C L :
0022620 M A K E - S Y M B O L ( C O N
0022640 C A T * G E N S Y M - P R E F
0022660 I X * ( M K S T R I N G \r
0022700
*
0023020 * G E N S Y M - C O U N
0023040 T E R * \r
0023060
*
0023160 ) ) )
0023200 \r
0023220
0023240 ( C L : I N
0023260 C F * G E N S Y M - C O U N T
0023300 E R * ) ) ) \r \r ( C L : D E F U
0023320 N 006 002 M A K E - K E Y W O R D
0023340 006 001 ( C L : S Y M B O L ) (
0023360 006 002 D E C L A R E 006 001 ( C L :
0023400 S P E C I A L * K E Y W O R D
0023420 - P A C K A G E * ) ) \r
0023440
0023460 (
0023500 C L : I N T E R N ( C L : S Y
0023520 M B O L - N A M E C L : S Y M
0023540 B O L ) \r
0023560
0023600 *
0023620 K E Y W O R D - P A C K A G E *
0023640 ) ) \r \r ( C L : D E F U N 006 002
0023660 C L : G E N T E M P 006 001 ( & O
0023700 P T I O N A L ( P R E F I X
0023720 " T " ) \r
0023740
0023760 ( P A C K A G E * P A C K A
0024000 G E * ) ) ( C L : C H E C K -
0024020 T Y P E P R E F I X S T R I
0024040 N G P ) \r
0024060
*
0024120 ( C L : C H E C K -
0024140 T Y P E P A C K A G E P A C
0024160 K A G E ) \r
0024200
*
0024240 ( C L : D O ( (
0024260 C O U N T E R 0 ( C L : 1 +
0024300 C O U N T E R ) ) \r
0024320
*
0024400 ( C L : N A M E S T R I
0024420 N G ) ) \r
0024440
*
0024500 ( ( N
0024520 U L L ( C L : F I N D - S Y M
0024540 B O L ( S E T Q C L : N A M
0024560 E S T R I N G \r
0024600
*
0024700 ( C O N C A T
0024720 P R E F I X \r
0024740
*
0025040 ( M
0025060 K S T R I N G \r
0025100
*
0025220 C O U N T E R ) ) ) \r
0025240
*
0025340 P A C K A G E ) ) \r
0025360
*
0025440 ( C L : I N T E R N C
0025460 L : N A M E S T R I N G P A C
0025500 K A G E ) ) ) ) \r \r ( C L : D E
0025520 F U N 006 002 C L : K E Y W O R D
0025540 P 006 001 ( O B J E C T ) ( A N
0025560 D ( C L : S Y M B O L P O B
0025600 J E C T ) \r
0025620
0025640 ( E Q ( C
0025660 L : S Y M B O L - P A C K A G E
0025700 O B J E C T ) \r
0025720
*
0025760 * K E Y W O R D - P A C K A G
0026000 E * ) ) ) \r \r \r ( P U T P R O P
0026020 S 006 002 L L S Y M B O L F I L
0026040 E T Y P E 006 001 C L : C O M P I
0026060 L E - F I L E ) \r ( P U T P R O
0026100 P S L L S Y M B O L C O P Y
0026120 R I G H T ( " X e r o x C o
0026140 r p o r a t i o n " 1 9 8 6 )
0026160 ) \r ( D E C L A R E % : D O N
0026200 T C O P Y \r ( F I L E M A P
0026220 ( N I L ) ) ) \r S T O P \r
0026236