$ od -c -N 50000 [eris]<LispCore>SOURCES>CMLSYMBOL.DCOM!3
0000000 ( F I L E C R E A T E D " 2 4
0000020 - S e p - 8 6 1 2 : 3 6 : 0 6
0000040 " ( " c o m p i l e d o n
0000060 " { E R I S } < L I S P C O R
0000100 E > L I B R A R Y > C M L S Y M
0000120 B O L . ; 2 8 ) \r " 1 6 - S e
0000140 p - 8 6 1 1 : 5 7 : 3 0 " i
0000160 n " X e r o x L i s p 1 6
0000200 - S e p - 8 6 . . . " d a t
0000220 e d " 1 6 - S e p - 8 6 1 2
0000240 : 2 9 : 4 1 " ) \r ( F I L E C R
0000260 E A T E D " 2 4 - S e p - 8 6
0000300 1 2 : 3 5 : 1 9 " { E R I S
0000320 } < L I S P C O R E > L I B R A
0000340 R Y > C M L S Y M B O L . ; 2 8
0000360 1 5 0 3 9 c h a n g e s t
0000400 o : ( V A R S \r C M L S Y M
0000420 B O L C O M S C M L T R A N S
0000440 L A T E D ) p r e v i o u s
0000460 d a t e : " 2 7 - A u g - 8 6
0000500 1 5 : 5 8 : 0 5 " { E R I S
0000520 } < L I S P C O R E > L I B R A
0000540 R Y > C M L S Y M B O L . ; 2 7
0000560 \r ) \r ( R P A Q Q C M L S Y M
0000600 B O L C O M S ( ( * ; ; \r
0000620 " B o g u s d e f i n i t i o
0000640 n s n e e d e d u n t i l
0000660 p a c k a g e s a r e i n
0000700 t h e l o a d u p . D O
0000720 N O T F O R G E T t o r e
0000740 m o v e t h e a d v i c e
0000760 o n C O M P . U S E R F N i
0001000 n t h e B Y T E C O M P I L
0001020 E R . " \r ) ( F N S M A K E
0001040 - S Y M B O L C O P Y - S Y M
0001060 B O L I N T E R N M A K E -
0001100 K E Y W O R D G E N T E M P
0001120 K E Y W O R D P D W I M K E Y
0001140 W O R D ) ( D E C L A R E :
0001160 \r D O N T E V A L @ L O A D D
0001200 O C O P Y ( A D D V A R S (
0001220 D W I M U S E R F O R M S ( D
0001240 W I M K E Y W O R D ) ) ) ) (
0001260 V A R S C M L T R A N S L A T
0001300 E D ) ( F N S C M L T R A N
0001320 S L A T E ) \r ( * ; ; " %
0001340 " S y m b o l f u n c t i o n
0001360 s . S E T B O U N D P R
0001400 E M P R O P a r e a l r e a
0001420 d y i n I n t e r l i s p %
0001440 " " ) ( F N S M A K U N B O
0001460 U N D \r S Y M B O L - N A M E
0001500 S Y M B O L - V A L U E G E
0001520 T G E T F G E T - P R O P E
0001540 R T I E S ) ( O P T I M I Z E
0001560 R S G E T G E T F S Y M B
0001600 O L - P L I S T ) ( P ( M O
0001620 V D ( Q U O T E \r G E T P R
0001640 O P L I S T ) ( Q U O T E S
0001660 Y M B O L - P L I S T ) ) ) (
0001700 S E T F S G E T S Y M B O L
0001720 - P L I S T S Y M B O L - V A
0001740 L U E S Y M B O L - F U N C T
0001760 I O N ) ( F N S F B O U N D
0002000 P \r F M A K U N B O U N D S
0002020 Y M B O L - F U N C T I O N S
0002040 E T F - S Y M B O L - F U N C T
0002060 I O N ) ( I N I T V A R S (
0002100 * G E N S Y M - C O U N T E R *
0002120 0 ) ( * G E N S Y M - P R E
0002140 F I X * " G " \r ) ) ( F U N
0002160 C T I O N S C L : C O P Y - S
0002200 Y M B O L C L : G E N S Y M
0002220 C L : M A K E - K E Y W O R D
0002240 C L : G E N T E M P C L : K E
0002260 Y W O R D P ) ( P R O P F I
0002300 L E T Y P E \r C M L S Y M B O
0002320 L ) ( D E C L A R E : D O N
0002340 T E V A L @ L O A D D O E V A
0002360 L @ C O M P I L E D O N T C O
0002400 P Y C O M P I L E R V A R S
0002420 ( A D D V A R S ( N L A M A )
0002440 ( N L A M L ) ( L A M A \r
0002460 G E T F G E T G E N T E M P
0002500 I N T E R N C O P Y - S Y M
0002520 B O L M A K E - S Y M B O L )
0002540 ) ) ) ) \r M A K E - S Y M B O L
0002560 D 1 \r ( L ( 0 N A M E ) )
0002600 \0 025 \0 \0 \0 001 @ 005 \a 224 @ \t \0 \0 020
0002620 g \0 \0 @ \n \0 \0 \t \0 \0 020 \0 ( 2 2 Q
0002640 G E N S Y M 1 7 Q C O N C
0002660 A T E N A T E 7 G E N S Y M
0002700 ) \r ( 1 3 Q S T R I N G ) \r (
0002720 ) \r C O P Y - S Y M B O L D 1
0002740 \r ( L ( 1 C O P Y - P R O P
0002760 S 0 S Y M B O L ) ) \0 031 001
0003000 \0 \0 002 @ \t \0 \0 021 001 \0 A 234 H 301 002 @
0003020 301 002 311 \0 \t \0 \0 024 \0 H 020 \0 ( 2 3 Q
0003040 C O P Y - L I S T 3 G E N
0003060 S Y M ) \r N I L \r ( ) \r I N T E
0003100 R N D 1 \r ( L ( 0 - a r g
0003120 s - ) ) \0 [ 003 \0 002 \0 e 021 001 \0 k
0003140 a 021 021 002 l 002 H 361 223 g \0 \0 202 l 002 a
0003160 Z d g \0 \0 360 262 & 277 I \t \0 \0 233 I \t
0003200 \0 \0 I \t \0 \0 \n \0 \0 020 g \0 \0 I \n \0
0003220 \0 g \0 \0 I \n \0 \0 \n \0 \0 020 226 J g \0
0003240 \0 360 264 \a I \t \0 \0 020 g \0 \0 J o \0 \0
0003260 \0 \f \0 \0 020 \0 ( 1 3 0 Q E C A S
0003300 E - F A I L 1 1 4 Q P A C K
0003320 * 7 7 Q S E T 7 4 Q P A
0003340 C K * 6 5 Q P A C K * 5 5
0003360 Q S E T 5 2 Q P A C K *
0003400 4 6 Q P A C K * 4 1 Q K E
0003420 Y W O R D P ) \r ( 1 2 0 Q P A
0003440 C K A G E 1 0 5 Q P C L 7
0003460 0 Q : 6 1 Q : 3 1 Q K
0003500 E Y W O R D 2 0 Q P C L ) \r
0003520 ( 1 2 5 Q ( K E Y W O R D
0003540 N I L P C L ) ) \r M A K E - K
0003560 E Y W O R D D 1 \r ( I 0 X
0003600 ) \0 G \0 \0 \0 001 @ \t \0 \0 l : 360 263
0003620 9 o \0 \0 \0 @ l 003 \n \0 \0 l : 360 262 #
0003640 o \0 \0 \0 @ k h i \r 005 \0 \0 254 o \0 \0
0003660 \0 @ k h i \r 005 \0 \0 226 @ l 004 \n \0 \0
0003700 200 @ \n \0 \0 b \0 200 @ d \n \0 \0 020 \0 (
0003720 1 0 4 Q S E T 7 4 Q P A C
0003740 K * 6 7 Q S U B S T R I N G
0003760 6 0 Q S T R P O S 4 3 Q
0004000 S T R P O S 2 2 Q N T H C H
0004020 A R C O D E 3 C H C O N 1 )
0004040 \r N I L \r ( 5 0 Q " I L "
0004060 3 3 Q " C L " 1 4 Q " : "
0004100 ) \r G E N T E M P D 1 \r ( L
0004120 ( 1 P A C K A G E 0 P R E
0004140 F I X ) ) \0 \t \0 \0 \0 002 @ h d i
0004160 \f \0 \0 020 \0 ( 6 G E N S Y M ) \r
0004200 N I L \r ( ) \r K E Y W O R D P
0004220 D 1 \r ( I 0 X ) \0 \n \0 \0 \0
0004240 001 @ k \n \0 \0 l : 360 020 \0 ( 4 N T
0004260 H C H A R C O D E ) \r N I L \r (
0004300 ) \r D W I M K E Y W O R D D 1
0004320 \r ( F 0 F A U L T X F 1
0004340 F A U L T A P P L Y F L G )
0004360 \0 034 \0 002 \0 \0 Q h 360 264 027 P 004 l 004 360
0004400 264 020 P k \n \0 \0 l : 360 264 006 P \t \0 \0
0004420 020 \0 ( 3 1 Q M A K E - K E Y W
0004440 O R D 2 0 Q N T H C H A R C
0004460 O D E ) \r N I L \r ( ) \r ( A D D
0004500 T O V A R D W I M U S E R F O
0004520 R M S ( D W I M K E Y W O R D
0004540 ) ) \r ( R P A Q Q C M L T R A
0004560 N S L A T E D ( A P P E N D
0004600 A P P L Y A R R A Y P A S S
0004620 E R T A S S O C A T A N A
0004640 T O M B L O C K B R E A K
0004660 C H A R A C T E R C O E R C E
0004700 C O L L E C T \r C O M P I L
0004720 E C O S C O U N T D E L E
0004740 T E D O D O * E L T E Q
0004760 U A L E R R O R E V A L E
0005000 V A L H O O K E V E R Y E X
0005020 P T F I N A L L Y F I N D
0005040 F I R S T F L O O R \r F U N
0005060 C T I O N G C D G E T H A S
0005100 H I F I N I T I A L L Y I
0005120 N T E R S E C T I O N J O I N
0005140 L A M B D A L D I F F L E
0005160 N G T H L I S T P L O G M
0005200 A P M A P C M A P C M A P
0005220 C A R \r M A P C O N M A P H
0005240 A S H M A P L I S T M E M B
0005260 E R M E R G E M O D N O T
0005300 A N Y N O T E V E R Y N R E
0005320 V E R S E N T H P O P P O
0005340 S I T I O N P R I N 1 P R I
0005360 N T P U S H \r P U S H N E W
0005400 P U T H A S H R E A D R E
0005420 M O V E R E P L A C E R E V
0005440 E R S E S E T Q S I N S O
0005460 M E S O R T S Q R T S T R
0005500 I N G P S U B L I S S U B S
0005520 T S U M T A N \r T E R P R
0005540 I U N I O N U N L E S S U
0005560 N T I L W H E N Z E R O P
0005600 * ) ) \r C M L T R A N S L A T E
0005620 D 1 \r ( I 0 X F 0 C
0005640 M L T R A N S L A T E D ) \0 =
0005660 \0 001 \0 001 @ d 004 l 004 360 262 $ P 034 230 o
0005700 \0 \0 \0 @ \n \0 \0 020 o \0 \0 \0 @ k h i
0005720 \r 005 \0 \0 226 @ l 004 \n \0 \0 020 @ 020 003 262
0005740 375 @ d 001 \t \0 \0 @ 002 \t \0 \0 \v \0 \0 020
0005760 \0 ( 7 2 Q W A L K - R E C O N
0006000 S 6 7 Q C M L T R A N S L A
0006020 T E 6 2 Q C M L T R A N S L
0006040 A T E 4 6 Q S U B A T O M
0006060 3 7 Q S T R P O S 2 2 Q P
0006100 A C K * ) \r N I L \r ( 2 7 Q
0006120 " I L : " 1 6 Q " C L : " )
0006140 \r M A K U N B O U N D D 1 \r (
0006160 I 0 S Y M B O L ) \0 \t \0 \0
0006200 \0 001 @ g \0 \0 \n \0 \0 020 \0 ( 6 S E
0006220 T ) \r ( 3 N O B I N D ) \r ( )
0006240 \r S Y M B O L - N A M E D 1 \r
0006260 ( I 0 S Y M B O L ) \0 \t \0
0006300 \0 \0 001 @ 006 \0 \0 \t \0 \0 020 \0 ( 6 M
0006320 K S T R I N G ) \r ( 3 L I T A
0006340 T O M ) \r ( ) \r S Y M B O L - V
0006360 A L U E D 1 \r ( I 0 S Y M
0006400 B O L ) \0 \a \0 \0 \0 001 @ 006 \0 \0 ,
0006420 020 \0 N I L \r ( 3 L I T A T O M
0006440 ) \r ( ) \r G E T D 1 \r ( L (
0006460 2 D E F A U L T 1 I N D I
0006500 C A T O R 0 S Y M B O L ) )
0006520 \0 \f \0 \0 \0 003 @ 301 002 311 \0 A B \v \0
0006540 \0 020 \0 ( 1 1 Q G E T F ) \r N I
0006560 L \r ( ) \r G E T F D 1 \r ( L
0006600 ( 2 D E F A U L T 1 I N D
0006620 I C A T O R 0 P L A C E ) )
0006640 \0 & 001 \0 \0 003 @ 021 001 \0 H 265 004 B 020
0006660 002 003 256 o \0 \0 \0 @ \n \0 \0 277 H 002 002 X
0006700 260 354 H d 001 A 360 262 366 002 001 020 \0 ( 2 3
0006720 Q C L : E R R O R ) \r N I L \r
0006740 ( 1 7 Q " ~ S i s a m
0006760 a l f o r m e d p r o p e r t
0007000 y l i s t . " ) \r G E T - P R
0007020 O P E R T I E S D 1 \r ( P 0
0007040 P L I S T I 1 I N D I C
0007060 A T O R - L I S T I 0 P L
0007100 A C E ) \0 ; 001 \0 \0 002 @ 021 001 \0 H
0007120 d 245 d d \v \0 \0 020 002 003 256 o \0 \0 \0 @
0007140 \n \0 \0 277 H 002 002 X 260 350 H 001 A g \0 \0
0007160 g \0 \0 \t \0 \0 \f \0 \0 262 353 H 001 H 002 001
0007200 H \v \0 \0 020 \0 ( 7 0 Q V A L U E
0007220 S 5 5 Q C L : M E M B E R
0007240 5 2 Q S Y M B O L - F U N C T
0007260 I O N 2 7 Q C L : E R R O R
0007300 1 3 Q V A L U E S ) \r ( 4 7
0007320 Q E Q 4 4 Q : T E S T ) \r
0007340 ( 2 3 Q " ~ S i s a m
0007360 a l f o r m e d p r o p r t y
0007400 l i s t . " ) \r o p t i m i z
0007420 e - G E T D 1 \r ( L ( 2 $
0007440 $ C T X 1 $ $ E N V 0 $
0007460 $ W H O L E ) ) \0 ! 005 \0 \0 003 @
0007500 002 021 A 004 H 001 271 H 002 Z 001 273 J 002 274 g
0007520 \0 \0 g \0 \0 I h 032 032 K L 032 032 032 020 \0
0007540 N I L \r ( 2 5 Q S Y M B O L -
0007560 P L I S T 2 2 Q G E T F ) \r
0007600 ( ) \r ( P U T P R O P ( Q U O
0007620 T E G E T ) ( Q U O T E C
0007640 O M P I L E R : O P T I M I Z E
0007660 R - L I S T ) ( U N I O N (
0007700 G E T P R O P ( Q U O T E G
0007720 E T ) ( Q U O T E \r C O M P
0007740 I L E R : O P T I M I Z E R - L
0007760 I S T ) ) ( L I S T ( Q U O
0010000 T E o p t i m i z e - G E T )
0010020 ) ) ) \r o p t i m i z e - G E T
0010040 F D 1 \r ( L ( 2 $ $ C T X
0010060 1 $ $ E N V 0 $ $ W H O
0010100 L E ) ) \0 # 004 \0 \0 003 @ 002 021 1 003
0010120 H 001 271 H 002 Z 001 273 J 002 265 \f g \0 \0 I
0010140 K h 032 032 032 020 001 262 365 g \0 \0 020 \0 N I
0010160 L \r ( 4 0 Q I G N O R E M A C
0010200 R O 2 3 Q L I S T G E T ) \r
0010220 ( ) \r ( P U T P R O P ( Q U O
0010240 T E G E T F ) ( Q U O T E
0010260 C O M P I L E R : O P T I M I Z
0010300 E R - L I S T ) ( U N I O N
0010320 ( G E T P R O P ( Q U O T E
0010340 G E T F ) ( Q U O T E \r C O
0010360 M P I L E R : O P T I M I Z E R
0010400 - L I S T ) ) ( L I S T ( Q
0010420 U O T E o p t i m i z e - G E
0010440 T F ) ) ) ) \r o p t i m i z e -
0010460 S Y M B O L - P L I S T D 1 \r
0010500 ( L ( 2 $ $ C T X 1 $ $
0010520 E N V 0 $ $ W H O L E ) )
0010540 \0 \f 001 \0 \0 003 @ 002 021 001 \0 g \0 \0 H 032
0010560 020 \0 N I L \r ( 7 G E T P R O P
0010600 L I S T ) \r ( ) \r ( P U T P R O
0010620 P ( Q U O T E S Y M B O L -
0010640 P L I S T ) ( Q U O T E C O
0010660 M P I L E R : O P T I M I Z E R
0010700 - L I S T ) ( U N I O N ( G
0010720 E T P R O P ( Q U O T E S Y
0010740 M B O L - P L I S T ) ( \r Q U
0010760 O T E C O M P I L E R : O P T
0011000 I M I Z E R - L I S T ) ) ( L
0011020 I S T ( Q U O T E o p t i m
0011040 i z e - S Y M B O L - P L I S T
0011060 ) ) ) ) \r ( M O V D ( Q U O T
0011100 E G E T P R O P L I S T ) (
0011120 Q U O T E S Y M B O L - P L I
0011140 S T ) ) \r ( R E M P R O P ( Q
0011160 U O T E G E T ) ( Q U O T E
0011200 S E T F - I N V E R S E ) ) \r
0011220 ( R E M P R O P ( Q U O T E
0011240 G E T ) ( Q U O T E S E T F
0011260 N ) ) \r s e t f - e x p a n d e
0011300 r - G E T D 1 \r ( L ( 1 e
0011320 n v - G E T 0 w h o l e - G
0011340 E T ) ) \0 } \t \0 \0 002 @ 002 \t \0 \0
0011360 l 003 363 250 l 002 @ 002 \t \0 \0 363 237 o \0 \0
0011400 \0 g \0 \0 @ 002 \t \0 \0 \v \0 \0 020 @ 002 021
0011420 A 004 H 001 271 H 002 Z 001 273 J 002 d 220 001 274
0011440 \b \0 \0 \b \0 \0 \b \0 \0 \b \0 \0 021 004 \b M
0011460 N L 264 006 O 016 h 032 032 032 I K L d 221 h
0011500 032 032 032 O 020 h 032 g \0 \0 M N O 020 h 032
0011520 032 032 032 g \0 \0 M N L 264 006 O 016 h 032 032
0011540 032 032 \r 005 \0 \0 020 \0 ( 1 7 2 Q V A
0011560 L U E S 1 0 0 Q G E N S Y M
0011600 7 5 Q G E N S Y M 7 2 Q
0011620 G E N S Y M 6 7 Q G E N S Y
0011640 M 4 0 Q C L : E R R O R 3
0011660 5 Q C L : L E N G T H 1 7 Q
0011700 C L : L E N G T H 4 C L :
0011720 L E N G T H ) \r ( 1 5 2 Q G E
0011740 T 1 3 6 Q P U T P R O P 3
0011760 0 Q G E T ) \r ( 2 5 Q " S
0012000 e t f e x p a n d e r f o r
0012020 ~ S c a n n o t b e c a
0012040 l l e d w i t h ~ S a r g
0012060 s . " ) \r ( P U T P R O P ( Q
0012100 U O T E G E T ) ( Q U O T E
0012120 S E T F - M E T H O D - E X P
0012140 A N D E R ) ( Q U O T E s e
0012160 t f - e x p a n d e r - G E T )
0012200 ) \r ( R E M P R O P ( Q U O T
0012220 E S Y M B O L - P L I S T )
0012240 ( Q U O T E S E T F - M E T H
0012260 O D - E X P A N D E R ) ) \r ( P
0012300 U T P R O P S S Y M B O L - P
0012320 L I S T S E T F - I N V E R S
0012340 E S E T P R O P L I S T ) \r (
0012360 R E M P R O P ( Q U O T E S
0012400 Y M B O L - V A L U E ) ( Q U
0012420 O T E S E T F - M E T H O D -
0012440 E X P A N D E R ) ) \r ( P U T P
0012460 R O P S S Y M B O L - V A L U
0012500 E S E T F - I N V E R S E S
0012520 E T ) \r ( R E M P R O P ( Q U
0012540 O T E S Y M B O L - F U N C T
0012560 I O N ) ( Q U O T E S E T F
0012600 - M E T H O D - E X P A N D E R
0012620 ) ) \r ( P U T P R O P S S Y M
0012640 B O L - F U N C T I O N S E T
0012660 F - I N V E R S E S E T F - S
0012700 Y M B O L - F U N C T I O N ) \r
0012720 F B O U N D P D 1 \r ( I 0
0012740 F N ) \0 032 \0 \0 \0 001 @ 004 l 004 360 264
0012760 023 @ \t \0 \0 252 @ \t \0 \0 245 @ \t \0 \0 264
0013000 003 i 020 \0 ( 2 4 Q M A C R O - F
0013020 U N C T I O N 1 7 Q A R G T
0013040 Y P E 1 2 Q S P E C I A L -
0013060 F O R M - P ) \r N I L \r ( ) \r F
0013100 M A K U N B O U N D D 1 \r ( I
0013120 0 S Y M B O L ) \0 006 \0 \0 \0
0013140 001 @ \t \0 \0 020 \0 ( 3 P U T D ) \r
0013160 N I L \r ( ) \r S Y M B O L - F U
0013200 N C T I O N D 1 \r ( I 0 F
0013220 N ) \0 . \0 \0 \0 001 @ d 004 l 004 360 262
0013240 ! \t \0 \0 263 033 @ \t \0 \0 d j 360 244 d l
0013260 002 360 222 277 i 201 277 h 225 @ \t \0 \0 265 \b @
0013300 l . \n \0 \0 020 \0 ( 5 3 Q \ L I S
0013320 P E R R O R 4 3 Q G E T D
0013340 2 0 Q A R G T Y P E 1 2 Q
0013360 S P E C I A L - F O R M - P ) \r
0013400 N I L \r ( ) \r S E T F - S Y M B
0013420 O L - F U N C T I O N D 1 \r (
0013440 I 1 V A L I 0 F N )
0013460 \0 \0 \0 \0 002 @ A \t \0 \0 222 A 260 023 A
0013500 \t \0 \0 221 A 211 A d 004 l 004 360 222 \t \0 \0
0013520 i \v \0 \0 020 \0 ( 3 5 Q P U T D
0013540 3 1 Q G E T D 1 4 Q E X P
0013560 R P 4 C C O D E P ) \r N I L
0013600 \r ( ) \r ( R P A Q ? * G E N S
0013620 Y M - C O U N T E R * 0 ) \r (
0013640 R P A Q ? * G E N S Y M - P R
0013660 E F I X * " G " ) \r C L : C O
0013700 P Y - S Y M B O L D 1 \r ( L
0013720 ( 1 C O P Y - P R O P S 0
0013740 S Y M ) ) \0 K 001 \0 \0 002 @ 021 001 \0
0013760 H 004 l 004 360 262 1 023 @ \t \0 \0 \t \0 \0 021
0014000 001 \0 A 262 ! H @ \t \0 \0 \n \0 \0 277 H @
0014020 \t \0 \0 \n \0 \0 277 H 301 002 @ 301 002 311 \0 \t
0014040 \0 \0 024 \0 H 020 i g \0 \0 H g \0 \0 \f \0
0014060 \0 b \0 023 260 270 \0 ( 1 0 4 Q C H E
0014100 C K - T Y P E - F A I L 6 5 Q
0014120 C O P Y 5 1 Q S E T F - S
0014140 Y M B O L - F U N C T I O N 4
0014160 6 Q S Y M B O L - F U N C T I
0014200 O N 4 0 Q S E T 3 5 Q S
0014220 Y M B O L - V A L U E 2 2 Q
0014240 M A K E - S Y M B O L 1 7 Q
0014260 S Y M B O L - N A M E ) \r ( 1 0
0014300 1 Q S Y M B O L 7 5 Q S Y
0014320 M ) \r ( ) \r C L : G E N S Y M
0014340 D 1 \r ( L ( 0 X ) F 2
0014360 * G E N S Y M - C O U N T E R *
0014400 F 3 * G E N S Y M - P R E
0014420 F I X * ) \0 S 002 002 \0 001 @ 021 021 001
0014440 H 262 $ H \t \0 \0 263 036 H 3 265 023 i g
0014460 \0 \0 H o \0 \0 \0 \f \0 \0 b \0 023 260 337 271
0014500 j I 363 263 353 023 @ d \t \0 \0 225 277 @ c 006
0014520 277 206 3 223 @ c 004 277 g \0 \0 S R \t \0
0014540 \0 \v \0 \0 \t \0 \0 R k 324 c 004 277 020 \0 (
0014560 1 1 2 Q C L : M A K E - S Y M
0014600 B O L 1 0 7 Q C O N C A T E
0014620 N A T E 1 0 4 Q M K S T R I
0014640 N G 5 6 Q C L : S T R I N G
0014660 P 3 5 Q C H E C K - T Y P E
0014700 - F A I L 1 2 Q C L : S T R
0014720 I N G P ) \r ( 7 7 Q S I M P L
0014740 E - S T R I N G 2 5 Q X ) \r
0014760 ( 3 2 Q ( O R N U L L S
0015000 T R I N G ( I N T E G E R 0
0015020 C L : * ) ) ) \r C L : M A K E
0015040 - K E Y W O R D D 1 \r ( L (
0015060 0 S Y M B O L ) F 0 * K
0015100 E Y W O R D - P A C K A G E * )
0015120 \0 \n \0 001 \0 001 @ \t \0 \0 P \n \0 \0 020
0015140 \0 ( 7 C L : I N T E R N 3
0015160 S Y M B O L - N A M E ) \r N I L
0015200 \r ( ) \r C L : G E N T E M P D
0015220 1 \r ( L ( 0 - a r g s - )
0015240 F 7 * P A C K A G E * ) \0
0015260 j \a 001 002 \0 e 021 001 \0 k H 361 224 o \0 \0
0015300 \0 201 k a 021 Q 006 l 002 H 361 222 W 016 202 l
0015320 002 a 272 I [ \t \0 \0 262 % J \ 004 ` \0 \0
0015340 360 262 * j 275 g \0 \0 I M \t \0 \0 \v \0 \0
0015360 ^ J \n \0 \0 263 $ N J \n \0 \0 020 i g \0
0015400 \0 K g \0 \0 \f \0 \0 Y 260 313 i g \0 \0 L
0015420 g \0 \0 \f \0 \0 Z 260 304 M k 324 260 310 \0 (
0015440 1 4 0 Q C H E C K - T Y P E -
0015460 F A I L 1 2 2 Q C H E C K -
0015500 T Y P E - F A I L 1 0 6 Q C
0015520 L : I N T E R N 7 7 Q F I N
0015540 D - S Y M B O L 7 2 Q C O N
0015560 C A T E N A T E 6 7 Q M K S
0015600 T R I N G 4 2 Q C L : S T R
0015620 I N G P ) \r ( 1 3 5 Q P A C K
0015640 A G E 1 3 1 Q P A C K A G E
0015660 1 1 7 Q S T R I N G 1 1 3
0015700 Q P R E F I X 6 2 Q S I M
0015720 P L E - S T R I N G 5 2 Q 004
0015740 003 P A C K A G E T Y P E # ) \r (
0015760 1 3 Q " T " ) \r C L : K E Y
0016000 W O R D P D 1 \r ( L ( 0 O
0016020 B J E C T ) F 0 * K E Y W
0016040 O R D - P A C K A G E * ) \0 017
0016060 \0 001 \0 001 @ 004 l 004 360 264 \b @ \t \0 \0 P
0016100 360 020 \0 ( 1 2 Q S Y M B O L - P
0016120 A C K A G E ) \r N I L \r ( ) \r (
0016140 P U T P R O P S C M L S Y M B
0016160 O L F I L E T Y P E C O M P
0016200 I L E - F I L E ) \r ( P U T P R
0016220 O P S C M L S Y M B O L C O
0016240 P Y R I G H T ( " X e r o x
0016260 C o r p o r a t i o n " 1 9 8
0016300 6 ) ) \r N I L \r
0016310