$ od -c -N 50000 [eris]<LispCore>SOURCES>CMLDEFFER.DCOM!13
0000000 ( F I L E C R E A T E D " 1
0000020 - O c t - 8 6 1 1 : 4 5 : 1 4
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 > S O U R C E S > C M L D E F
0000120 F E R . ; 1 4 ) \r " 3 0 - S e
0000140 p - 8 6 2 1 : 3 5 : 3 8 " i
0000160 n " X e r o x L i s p 2 9
0000200 - S e p - 8 6 . . . " d a t
0000220 e d " 2 9 - S e p - 8 6 1 5
0000240 : 4 1 : 0 4 " ) \r ( F I L E C R
0000260 E A T E D " 1 - O c t - 8 6
0000300 1 1 : 4 2 : 0 9 " { E R I S
0000320 } < L I S P C O R E > S O U R C
0000340 E S > C M L D E F F E R . ; 1 4
0000360 1 6 6 5 9 c h a n g e s t
0000400 o : ( F U N C T I O N S \r D
0000420 E F - D E F I N E - T Y P E )
0000440 ( V A R I A B L E S * D E F I
0000460 N I T I O N - H A S H - T A B L
0000500 E * ) p r e v i o u s d a t
0000520 e : " 1 - O c t - 8 6 0 1
0000540 : 4 7 : 1 1 " \r { E R I S } <
0000560 L I S P C O R E > S O U R C E S
0000600 > C M L D E F F E R . ; 1 2 ) \r
0000620 ( R P A Q Q C M L D E F F E R
0000640 C O M S ( ( * ; ; ; \r " D
0000660 E F - D E F I N E - T Y P E a
0000700 n d D E F D E F I N E R - -
0000720 Y o u r O n e - S t o p P
0000740 r o v i d e r s o f C u s t
0000760 o m i z e d F i l e M a n a
0001000 g e r F a c i l i t i e s . "
0001020 ) ( * \r ; ; \r " B E V E
0001040 R Y C A R E F U L C H A N G
0001060 I N G A N Y T H I N G I N
0001100 T H I S F I L E ! ! ! I t
0001120 i s h e a v i l y s e l f
0001140 - r e f e r e n t i a l a n d
0001160 t h i c k w i t h b o o t
0001200 s t r a p p i n g p r o b l e
0001220 m s . A l l b u t t h e
0001240 m o s t t r i v i a l c h
0001260 a n g e s ( a n d s o m e
0001300 o f t h o s e ) a r e v e
0001320 r y t r i c k y t o m a k
0001340 e w i t h o u t b l o w i n
0001360 g y o u r s e l f o u t o
0001400 f t h e w a t e r . . .
0001420 Y o u h a v e b e e n w a
0001440 r n e d . " \r ) ( C O M S (
0001460 I N I T V A R S ( F I L E P K
0001500 G F L G ) ) ( C O M S ( F N
0001520 S P P R I N T - D E F I N E R
0001540 \ D E F I N E - T Y P E - G E
0001560 T D E F R E M O V E - C O M M
0001600 E N T S ) ( \r F U N C T I O N
0001620 S \ D E F I N E - T Y P E - S
0001640 A V E - D E F N ) ) ) ( V A R
0001660 I A B L E S * D E F I N I T I
0001700 O N - H A S H - T A B L E * )
0001720 ( D E F I N E - T Y P E S D E
0001740 F I N E - T Y P E S \r F U N C
0001760 T I O N S V A R I A B L E S )
0002000 ( F U N C T I O N S D E F D
0002020 E F I N E R D E F - D E F I N
0002040 E - T Y P E W I T H O U T - F
0002060 I L E P K G ) ( F U N C T I O
0002100 N S D E F U N D E F I N L I
0002120 N E \r D E F M A C R O ) ( F
0002140 U N C T I O N S D E F V A R
0002160 D E F P A R A M E T E R D E F
0002200 C O N S T A N T D E F G L O B
0002220 A L V A R D E F G L O B A L P
0002240 A R A M E T E R ) ( * ; ;
0002260 \r " D o n ' t n o t e f i l
0002300 e p a c k a g e c h a n g e
0002320 s t o m a c r o - f n . " )
0002340 ( P R O P P R O P T Y P E
0002360 M A C R O - F N ) ( * ; ;
0002400 \r " A r r a n g e f o r t h
0002420 e c o r r e c t c o m p i l
0002440 e r t o b e u s e d . " )
0002460 ( P R O P F I L E T Y P E
0002500 C M L D E F F E R ) ) ) \r ( R P
0002520 A Q ? F I L E P K G F L G ) \r
0002540 P P R I N T - D E F I N E R D
0002560 1 \r ( P 3 # R P A R S P
0002600 2 C U R R E N T P 1 D E
0002620 F I N E D P 0 D E F I N E
0002640 R I 0 D E F I N E - E X P
0002660 R E S S I O N ) \0 330 004 \0 \0 001 @
0002700 001 @ 002 b \0 001 @ 002 b \0 277 \b \0 \0 021 023
0002720 003 o \0 \0 \0 \t \0 \0 277 H \t \0 \0 277 k \t
0002740 \0 \0 I 003 262 5 o \0 \0 \0 \t \0 \0 277 ` \0
0002760 \0 \t \0 \0 277 I 001 \t \0 \0 277 ` \0 \0 \t \0
0003000 \0 277 k \t \0 \0 277 I 002 i d d \f \0 \0 277
0003020 o \0 \0 \0 \t \0 \0 260 024 ` \0 \0 \t \0 \0 277
0003040 I \t \0 \0 277 ` \0 \0 \t \0 \0 277 @ d 001 003
0003060 262 025 277 k \t \0 \0 277 @ 001 @ 002 b \0 277 i
0003100 \n \0 \0 277 @ 001 005 \a 253 @ d 001 003 001 ` \0
0003120 \0 360 262 026 277 k \t \0 \0 277 @ 001 @ 002 b \0
0003140 277 i d \v \0 \0 277 @ i d \v \0 \0 221 h 200
0003160 i 233 \b \0 \0 277 J \t \0 \0 277 l 003 200 k \t
0003200 \0 \0 277 @ i d d \f \0 \0 o \0 \0 \0 \t \0
0003220 \0 h \t \0 \0 020 \0 ( 3 2 5 Q T E R
0003240 P R I 3 2 1 Q P R I N 1 3
0003260 1 2 Q P R I N T D E F 3 0 2
0003300 Q S P A C E S 2 7 2 Q D S
0003320 P X P O S I T I O N 2 6 5 Q
0003340 T E R P R I 2 5 5 Q F I T P
0003360 2 4 6 Q P R I N T D E F 2
0003400 3 1 Q S P A C E S 2 0 3 Q
0003420 P R I N T D E F 1 6 7 Q S P
0003440 A C E S 1 5 3 Q C H A N G E
0003460 F O N T 1 4 4 Q P R I N 2
0003500 1 3 7 Q C H A N G E F O N T
0003520 1 2 7 Q P R I N 1 1 1 7 Q
0003540 P R I N T D E F 1 0 6 Q S P
0003560 A C E S 1 0 1 Q C H A N G E
0003600 F O N T 7 2 Q P R I N 2 6
0003620 4 Q C H A N G E F O N T 5 5
0003640 Q P R I N 1 4 2 Q S P A C
0003660 E S 3 5 Q P R I N 2 3 0 Q
0003700 P R I N 1 1 6 Q D S P X P
0003720 O S I T I O N ) \r ( 2 2 1 Q C
0003740 O M M E N T F L G 1 5 0 Q D
0003760 E F A U L T F O N T 1 3 4 Q
0004000 P R E T T Y C O M F O N T 7 6
0004020 Q D E F A U L T F O N T 6 1
0004040 Q P R E T T Y C O M F O N T )
0004060 \r ( 3 1 6 Q " ) " 1 2 4 Q
0004100 " ) " 5 2 Q " ( " 2 5 Q
0004120 " ( " ) \r \ D E F I N E - T Y
0004140 P E - G E T D E F D 1 \r ( P
0004160 1 D E F N P 0 H A S H -
0004200 T A B L E I 2 O P T I O N
0004220 S I 1 T Y P E I 0 N
0004240 A M E ) \0 ; 002 \0 \0 003 A ` \0 \0 \n
0004260 \0 \0 021 001 \0 H 226 @ H \n \0 \0 265 020 @ 004
0004300 l 004 360 264 \t @ 301 002 311 \0 A ' 021 001 001 B
0004320 g \0 \0 360 250 B 003 232 g \0 \0 B 034 224 I \t
0004340 \0 \0 020 I 020 \0 ( 6 6 Q C O P Y
0004360 2 0 Q C L : G E T H A S H 6
0004400 C L : G E T H A S H ) \r ( 5 7
0004420 Q E D I T 4 7 Q E D I T
0004440 3 * D E F I N I T I O N - H A
0004460 S H - T A B L E * ) \r ( ) \r R E
0004500 M O V E - C O M M E N T S D 1
0004520 \r ( I 0 X ) \0 4 002 \0 \0 001 @
0004540 003 265 004 @ 020 001 003 001 ` \0 \0 360 225 @ 002 b
0004560 \0 260 357 @ 001 \t \0 \0 @ 002 \t \0 \0 021 002 001
0004600 H d @ 001 360 230 277 I @ 002 360 221 @ 020 H I
0004620 032 020 \0 ( 3 5 Q R E M O V E - C
0004640 O M M E N T S 3 0 Q R E M O
0004660 V E - C O M M E N T S ) \r ( 1 3
0004700 Q C O M M E N T F L G ) \r ( )
0004720 \r \ D E F I N E - T Y P E - S A
0004740 V E - D E F N D 1 \r ( L ( 2
0004760 D E F I N I T I O N 1 T Y
0005000 P E 0 N A M E ) ) \0 + 001 \0
0005020 \0 003 @ A \n \0 \0 A ` \0 \0 \n \0 \0 021 001
0005040 \0 H 250 o \0 \0 \0 A \n \0 \0 277 @ H B \v
0005060 \0 \0 023 @ A g \0 \0 \v \0 \0 020 \0 ( 5 0
0005100 Q M A R K A S C H A N G E D
0005120 3 7 Q C L : P U T H A S H 3
0005140 0 Q C L : E R R O R 1 3 Q
0005160 C L : G E T H A S H 4 R E M
0005200 P R O P ) \r ( 4 5 Q C H A N G
0005220 E D 1 0 Q * D E F I N I T I
0005240 O N - H A S H - T A B L E * ) \r
0005260 ( 2 4 Q " \ D E F I N E - T
0005300 Y P E - P U T D E F : C a n '
0005320 t f i n d h a s h t a b l
0005340 e f o r t y p e ~ S " ) \r
0005360 ( P R O C L A I M ( Q U O T E
0005400 ( G L O B A L * D E F I N I
0005420 T I O N - H A S H - T A B L E *
0005440 ) ) ) \r ( O R ( B O U N D P
0005460 ( Q U O T E * D E F I N I T I
0005500 O N - H A S H - T A B L E * ) )
0005520 ( S E T Q * D E F I N I T I
0005540 O N - H A S H - T A B L E * (
0005560 H A S H A R R A Y 2 0 ) ) ) \r
0005600 ( A D D T O V A R P R E T T Y
0005620 D E F M A C R O S ( D E F I N
0005640 E - T Y P E S X ( P * (
0005660 M A P C A R ( Q U O T E X )
0005700 ( F U N C T I O N ( L A M B
0005720 D A ( I T E M ) ( C L : D O
0005740 ( ( D E F \r ( G E T D E F
0005760 I T E M ( Q U O T E D E F I
0006000 N E - T Y P E S ) ) ) ) ( D E
0006020 F D E F ) ( C E R R O R "
0006040 R e - f e t c h t h e d e f
0006060 i n i t i o n " \r " N o ~ S
0006100 d e f i n i t i o n f o r
0006120 ~ S " ( Q U O T E D E F I N
0006140 E - T Y P E S ) I T E M ) ) )
0006160 ) ) ) ) ) \r ( A D D T O V A R
0006200 P R E T T Y T Y P E L S T ( C
0006220 H A N G E D D E F I N E - T Y P
0006240 E S L S T D E F I N E - T Y P
0006260 E S " C o m m o n L i s p
0006300 d e f i n i t i o n t y p e "
0006320 ) ) \r ( C L : P U T H A S H (
0006340 Q U O T E D E F I N E - T Y P
0006360 E S ) * D E F I N I T I O N -
0006400 H A S H - T A B L E * ( M A K
0006420 E - H A S H - T A B L E ( Q U
0006440 O T E : T E S T ) ( Q U O T
0006460 E \r C L : E Q U A L ) ( Q U
0006500 O T E : S I Z E ) 5 0 ( Q
0006520 U O T E : R E H A S H - S I Z
0006540 E ) 5 0 ) ) \r ( A D D T O V A
0006560 R F I L E P K G T Y P E S D
0006600 E F I N E - T Y P E S ) \r ( P U
0006620 T P R O P S D E F I N E - T Y
0006640 P E S G E T D E F \ D E F I
0006660 N E - T Y P E - G E T D E F ) \r
0006700 ( P U T P R O P S D E F I N E
0006720 - T Y P E S F I L E P K G C O
0006740 N T E N T S N I L L ) \r ( P U
0006760 T P R O P S D E F I N E - T Y
0007000 P E S P R O P T Y P E D E F
0007020 I N E - T Y P E S ) \r ( A D D T
0007040 O V A R P R E T T Y D E F M A
0007060 C R O S ( F U N C T I O N S
0007100 X ( P * ( M A P C A R (
0007120 Q U O T E X ) ( F U N C T I
0007140 O N ( L A M B D A ( I T E M
0007160 ) ( C L : D O ( ( D E F (
0007200 \r G E T D E F I T E M ( Q U
0007220 O T E F U N C T I O N S ) ) )
0007240 ) ( D E F D E F ) ( C E R
0007260 R O R " R e - f e t c h t h
0007300 e d e f i n i t i o n " " N
0007320 o ~ S d e f i n i t i o n
0007340 f o r ~ S " \r ( Q U O T E
0007360 F U N C T I O N S ) I T E M )
0007400 ) ) ) ) ) ) ) \r ( A D D T O V A
0007420 R P R E T T Y T Y P E L S T
0007440 ( C H A N G E D F U N C T I O N
0007460 S L S T F U N C T I O N S "
0007500 C o m m o n L i s p f u n c
0007520 t i o n s " ) ) \r ( C L : P U T
0007540 H A S H ( Q U O T E F U N C
0007560 T I O N S ) * D E F I N I T I
0007600 O N - H A S H - T A B L E * (
0007620 M A K E - H A S H - T A B L E
0007640 ( Q U O T E : T E S T ) ( Q
0007660 U O T E C L : E Q U A L ) \r
0007700 ( Q U O T E : S I Z E ) 5 0
0007720 ( Q U O T E : R E H A S H -
0007740 S I Z E ) 5 0 ) ) \r ( A D D T
0007760 O V A R F I L E P K G T Y P E
0010000 S F U N C T I O N S ) \r ( P U
0010020 T P R O P S F U N C T I O N S
0010040 G E T D E F \ D E F I N E -
0010060 T Y P E - G E T D E F ) \r ( P U
0010100 T P R O P S F U N C T I O N S
0010120 F I L E P K G C O N T E N T S
0010140 N I L L ) \r ( P U T P R O P S
0010160 F U N C T I O N S P R O P T
0010200 Y P E F U N C T I O N S ) \r (
0010220 A D D T O V A R P R E T T Y D
0010240 E F M A C R O S ( V A R I A B
0010260 L E S X ( P * ( M A P C
0010300 A R ( Q U O T E X ) ( F U
0010320 N C T I O N ( L A M B D A (
0010340 I T E M ) ( C L : D O ( ( D
0010360 E F ( \r G E T D E F I T E M
0010400 ( Q U O T E V A R I A B L E
0010420 S ) ) ) ) ( D E F D E F )
0010440 ( C E R R O R " R e - f e t c
0010460 h t h e d e f i n i t i o n
0010500 " " N o ~ S d e f i n i t
0010520 i o n f o r ~ S " \r ( Q U
0010540 O T E V A R I A B L E S ) I
0010560 T E M ) ) ) ) ) ) ) ) \r ( A D D
0010600 T O V A R P R E T T Y T Y P E
0010620 L S T ( C H A N G E D V A R I
0010640 A B L E S L S T V A R I A B L
0010660 E S " C o m m o n L i s p
0010700 v a r i a b l e s " ) ) \r ( C L
0010720 : P U T H A S H ( Q U O T E
0010740 V A R I A B L E S ) * D E F I
0010760 N I T I O N - H A S H - T A B L
0011000 E * ( M A K E - H A S H - T A
0011020 B L E ( Q U O T E : T E S T
0011040 ) ( Q U O T E C L : E Q U A
0011060 L ) \r ( Q U O T E : S I Z E
0011100 ) 5 0 ( Q U O T E : R E H
0011120 A S H - S I Z E ) 5 0 ) ) \r (
0011140 A D D T O V A R F I L E P K G
0011160 T Y P E S V A R I A B L E S )
0011200 \r ( P U T P R O P S V A R I A
0011220 B L E S G E T D E F \ D E F
0011240 I N E - T Y P E - G E T D E F )
0011260 \r ( P U T P R O P S V A R I A
0011300 B L E S F I L E P K G C O N T
0011320 E N T S N I L L ) \r ( P U T P
0011340 R O P S V A R I A B L E S P
0011360 R O P T Y P E V A R I A B L E
0011400 S ) \r e x p a n d - D E F D E F
0011420 I N E R D 1 \r ( L ( 1 $ $
0011440 M A C R O - E N V I R O N M E N
0011460 T 0 $ $ M A C R O - F O R M
0011500 ) ) \0 360 \b \0 \0 002 @ 002 \t \0 \0 021 q
0011520 \a @ 271 H 001 272 H 002 [ 001 274 K 002 ] 001 276
0011540 M 002 _ 016 277 g \0 \0 g \0 \0 g \0 \0 g \0
0011560 \0 J g \0 \0 g \0 \0 N 032 032 g \0 \0 g \0
0011600 \0 g \0 \0 g \0 \0 g \0 \0 O 016 032 h 032 032
0011620 h 032 032 g \0 \0 o \0 \0 \0 g \0 \0 g \0 \0
0011640 g \0 \0 o \0 \0 \0 g \0 \0 g \0 \0 g \0 \0
0011660 L h 032 032 h 032 032 h 032 032 o \0 \0 \0 032 032
0011700 032 h 032 032 032 h 032 032 032 o \0 \0 \0 032 032 032
0011720 h 032 032 h 032 032 032 032 g \0 \0 g \0 \0 g \0
0011740 \0 J g \0 \0 032 h 032 032 032 h 032 032 g \0 \0
0011760 J h 032 032 h 032 032 032 032 h 032 032 g \0 \0 o
0012000 \0 \0 \0 g \0 \0 g \0 \0 g \0 \0 g \0 \0 J
0012020 h 032 032 o \0 \0 \0 g \0 \0 I h 032 032 h 032
0012040 032 032 032 h 032 032 032 h 032 032 032 g \0 \0 J h
0012060 032 032 h 032 032 032 032 020 \0 ( 4 R E M O
0012100 V E - C O M M E N T S ) \r ( 3 4
0012120 4 Q Q U O T E 3 2 0 Q Q U
0012140 O T E 3 0 5 Q Q U O T E 3
0012160 0 2 Q \ D E F I N E - T Y P E
0012200 - S A V E - D E F N 2 7 7 Q
0012220 F I L E P K G F L G 2 7 4 Q
0012240 A N D 2 6 5 Q E V A L - W H
0012260 E N 2 4 6 Q Q U O T E 2 3
0012300 3 Q P P R I N T - D E F I N E
0012320 R 2 2 7 Q P R E T T Y P R I
0012340 N T M A C R O S 2 2 4 Q A D
0012360 D T O V A R 2 2 1 Q W I T H
0012400 O U T - F I L E P K G 1 4 6 Q
0012420 Q U O T E 1 4 3 Q \ , 1
0012440 4 0 Q Q U O T E 1 3 1 Q \
0012460 D E F I N E - T Y P E - S A V E
0012500 - D E F N 1 2 6 Q F I L E P
0012520 K G F L G 1 2 3 Q A N D 1
0012540 1 4 Q E V A L - W H E N 1 0
0012560 0 Q P R O G N 7 5 Q \ ,
0012600 7 2 Q W I T H O U T - F I L E
0012620 P K G 6 7 Q P R O G N 6 4
0012640 Q B Q U O T E 5 6 Q % % O
0012660 R I G I N A L - D E F I N I T I
0012700 O N 5 3 Q & W H O L E 4 7
0012720 Q D E F M A C R O 4 4 Q P
0012740 R O G N 4 1 Q W I T H O U T
0012760 - F I L E P K G 3 6 Q P R O
0013000 G N ) \r ( 3 1 5 Q ( Q U O T
0013020 E F U N C T I O N S ) 2 7 1
0013040 Q ( C L : E V A L ) 2 0 3 Q
0013060 ( ( Q U O T E ( \ , N A M
0013100 E ) ) ) 1 6 4 Q ( ( Q U O T
0013120 E ( \ , % % O R I G I N A L
0013140 - D E F I N I T I O N ) ) ) \r
0013160 1 3 5 Q ( Q U O T E ( \ ,
0013200 N A M E ) ) 1 2 0 Q ( C L :
0013220 E V A L ) ) \r ( S E T F - M A C
0013240 R O - F U N C T I O N ( Q U O
0013260 T E D E F D E F I N E R ) (
0013300 Q U O T E e x p a n d - D E F
0013320 D E F I N E R ) ) \r ( A D D T O
0013340 V A R P R E T T Y P R I N T M
0013360 A C R O S ( D E F D E F I N E
0013400 R . P P R I N T - D E F I N
0013420 E R ) ) \r e x p a n d - D E F -
0013440 D E F I N E - T Y P E D 1 \r (
0013460 L ( 1 $ $ M A C R O - E N V
0013500 I R O N M E N T 0 $ $ M A C
0013520 R O - F O R M ) ) 001 H 005 \0 \0 002
0013540 @ 002 \t \0 \0 021 A 004 @ 271 H 001 272 H 002 001
0013560 273 g \0 \0 g \0 \0 g \0 \0 g \0 \0 g \0 \0
0013600 J g \0 \0 g \0 \0 g \0 \0 g \0 \0 o \0 \0
0013620 \0 g \0 \0 g \0 \0 o \0 \0 \0 g \0 \0 g \0
0013640 \0 g \0 \0 g \0 \0 g \0 \0 J h 032 032 h 032
0013660 032 032 h 032 032 h 032 o \0 \0 \0 g \0 \0 o \0
0013700 \0 \0 o \0 \0 \0 g \0 \0 J h 032 032 o \0 \0
0013720 \0 032 032 032 032 h 032 032 032 032 h 032 032 032 h 032
0013740 032 h 032 032 032 h 032 032 032 h 032 032 032 h 032 032
0013760 032 g \0 \0 g \0 \0 o \0 \0 \0 J o \0 \0 \0
0014000 \v \0 \0 \ d \t \0 \0 246 277 L \t \0 \0 277 L
0014020 J K h 032 032 032 h 032 032 032 g \0 \0 g \0 \0
0014040 g \0 \0 J h 032 032 o \0 \0 \0 032 032 o \0 \0
0014060 \0 032 032 g \0 \0 g \0 \0 J h 032 032 032 g \0
0014100 \0 J o \0 \0 \0 032 032 g \0 \0 J o \0 \0 \0
0014120 032 032 g \0 \0 J g \0 \0 J h 032 032 032 032 h
0014140 032 032 032 032 032 032 032 032 h 032 032 g \0 \0 o \0
0014160 \0 \0 g \0 \0 g \0 \0 g \0 \0 g \0 \0 J h
0014200 032 032 o \0 \0 \0 g \0 \0 I h 032 032 h 032 032
0014220 032 032 h 032 032 032 h 032 032 032 g \0 \0 J h 032
0014240 032 h 032 032 032 032 020 \0 ( 2 5 5 Q S E
0014260 T 2 4 7 Q B O U N D P 2 4
0014300 2 Q P A C K * 4 R E M O V
0014320 E - C O M M E N T S ) \r ( 4 7 4
0014340 Q Q U O T E 4 5 0 Q Q U O
0014360 T E 4 3 5 Q Q U O T E 4 3
0014400 2 Q \ D E F I N E - T Y P E -
0014420 S A V E - D E F N 4 2 7 Q F
0014440 I L E P K G F L G 4 2 4 Q A
0014460 N D 4 1 5 Q E V A L - W H E
0014500 N 3 7 0 Q P R O P T Y P E
0014520 3 6 4 Q P U T P R O P S 3 5
0014540 2 Q P U T P R O P S 3 4 0 Q
0014560 P U T P R O P S 3 3 0 Q F
0014600 I L E P K G T Y P E S 3 2 5 Q
0014620 A D D T O V A R 3 0 2 Q Q
0014640 U O T E 2 7 7 Q C L : G E T
0014660 H A S H 2 7 4 Q S E T F 2
0014700 2 6 Q P R E T T Y T Y P E L S
0014720 T 2 2 3 Q A D D T O V A R
0014740 1 5 0 Q Q U O T E 1 3 5 Q
0014760 C E R R O R 1 1 1 Q Q U O T
0015000 E 1 0 6 Q I T E M 1 0 3 Q
0015020 G E T D E F 1 0 0 Q D E F
0015040 7 5 Q C L : D O 6 6 Q L
0015060 A M B D A 6 3 Q F U N C T I
0015100 O N 5 4 Q M A P C A R 5 1
0015120 Q * 4 6 Q P 4 3 Q X
0015140 3 7 Q P R E T T Y D E F M A C
0015160 R O S 3 4 Q A D D T O V A R
0015200 3 1 Q P R O G N 2 6 Q W
0015220 I T H O U T - F I L E P K G 2
0015240 3 Q P R O G N ) \r ( 4 4 5 Q
0015260 ( Q U O T E D E F I N E - T
0015300 Y P E S ) 4 2 1 Q ( C L : E
0015320 V A L ) 3 5 7 Q ( F I L E P
0015340 K G C O N T E N T S N I L L )
0015360 3 4 5 Q ( G E T D E F \ D
0015400 E F I N E - T Y P E - G E T D E
0015420 F ) \r 3 2 0 Q ( ( M A K E -
0015440 H A S H - T A B L E ( Q U O T
0015460 E : T E S T ) ( Q U O T E
0015500 C L : E Q U A L ) ( Q U O T E
0015520 : S I Z E ) 6 2 Q ( Q U O
0015540 T E : R E H A S H - S I Z E )
0015560 6 2 Q ) ) 3 1 2 Q \r ( * D
0015600 E F I N I T I O N - H A S H - T
0015620 A B L E * ) 2 3 7 Q " L S T
0015640 " 2 3 2 Q " C H A N G E D "
0015660 1 6 0 Q ( I T E M ) 1 4 5
0015700 Q " N o ~ S d e f i n i t
0015720 i o n f o r ~ S " 1 4 1 Q
0015740 " R e - f e t c h t h e d
0015760 e f i n i t i o n " \r 1 3 2 Q
0016000 ( D E F D E F ) 7 2 Q (
0016020 I T E M ) 6 0 Q ( Q U O T E
0016040 X ) ) \r ( S E T F - M A C R O
0016060 - F U N C T I O N ( Q U O T E
0016100 D E F - D E F I N E - T Y P E
0016120 ) ( Q U O T E e x p a n d -
0016140 D E F - D E F I N E - T Y P E )
0016160 ) \r ( A D D T O V A R P R E T
0016200 T Y P R I N T M A C R O S ( D
0016220 E F - D E F I N E - T Y P E .
0016240 P P R I N T - D E F I N E R )
0016260 ) \r e x p a n d - W I T H O U T
0016300 - F I L E P K G D 1 \r ( L (
0016320 1 $ $ M A C R O - E N V I R O
0016340 N M E N T 0 $ $ M A C R O -
0016360 F O R M ) ) \0 = 001 \0 \0 002 @ 002 021
0016400 001 \0 g \0 \0 g \0 \0 o \0 \0 \0 H 032 032 g
0016420 \0 \0 o \0 \0 \0 g \0 \0 o \0 \0 \0 g \0 \0
0016440 o \0 \0 \0 o \0 \0 \0 H 032 032 032 h 032 032 032
0016460 h 032 032 032 h 032 032 032 020 \0 N I L \r ( 4
0016500 2 Q L E T 3 3 Q A N D 2
0016520 4 Q E V A L - W H E N 1 2 Q
0016540 E V A L - W H E N 7 P R O
0016560 G N ) \r ( 5 2 Q ( D E C L A
0016600 R E ( S P E C I A L F I L E
0016620 P K G F L G D F N F L G ) )
0016640 4 6 Q ( F I L E P K G F L G
0016660 ( D F N F L G T ) ) 3 7 Q
0016700 ( N E Q D F N F L G ( Q U O
0016720 T E P R O P ) ) 3 0 Q \r (
0016740 C L : E V A L ) 1 6 Q ( C L
0016760 : L O A D ) ) \r ( S E T F - M A
0017000 C R O - F U N C T I O N ( Q U
0017020 O T E W I T H O U T - F I L E
0017040 P K G ) ( Q U O T E e x p a
0017060 n d - W I T H O U T - F I L E P
0017100 K G ) ) \r e x p a n d - D E F U
0017120 N D 1 \r ( L ( 1 $ $ M A C
0017140 R O - E N V I R O N M E N T 0
0017160 $ $ M A C R O - F O R M ) )
0017200 \0 231 \b \0 \0 002 @ 002 \t \0 \0 021 q \a @ 271
0017220 H 001 272 H 002 [ 001 274 K 002 A i \v \0 \0 \t
0017240 \0 \0 ] 001 276 M 002 001 _ 016 277 g \0 \0 g \0
0017260 \0 g \0 \0 g \0 \0 g \0 \0 J h 032 032 h 032
0017300 032 g \0 \0 g \0 \0 L O 016 g \0 \0 J N 032
0017320 032 h 032 \n \0 \0 032 032 h 032 032 h 032 032 032 h
0017340 032 032 g \0 \0 o \0 \0 \0 g \0 \0 g \0 \0 g
0017360 \0 \0 g \0 \0 J h 032 032 o \0 \0 \0 g \0 \0
0017400 I h 032 032 h 032 032 032 032 h 032 032 032 h 032 032
0017420 032 g \0 \0 J h 032 032 h 032 032 032 032 020 \0 (
0017440 1 1 7 Q \ A P P E N D 2 3 3
0017460 Q \ M V L I S T 3 0 Q P A
0017500 R S E - B O D Y 4 R E M O V
0017520 E - C O M M E N T S ) \r ( 2 1 5
0017540 Q Q U O T E 1 7 1 Q Q U O
0017560 T E 1 5 6 Q Q U O T E 1 5
0017600 3 Q \ D E F I N E - T Y P E -
0017620 S A V E - D E F N 1 5 0 Q F
0017640 I L E P K G F L G 1 4 5 Q A
0017660 N D 1 3 6 Q E V A L - W H E
0017700 N 1 0 6 Q C L : B L O C K
0017720 1 0 0 Q C L : L A M B D A 7
0017740 5 Q C L : F U N C T I O N 6
0017760 3 Q Q U O T E 6 0 Q S Y M
0020000 B O L - F U N C T I O N 5 5 Q
0020020 S E T F 5 2 Q W I T H O U
0020040 T - F I L E P K G 4 7 Q P R
0020060 O G N ) \r ( 1 6 6 Q ( Q U O
0020100 T E F U N C T I O N S ) 1 4
0020120 2 Q ( C L : E V A L ) ) \r ( S
0020140 E T F - M A C R O - F U N C T I
0020160 O N ( Q U O T E D E F U N )
0020200 ( Q U O T E e x p a n d - D
0020220 E F U N ) ) \r ( A D D T O V A R
0020240 P R E T T Y P R I N T M A C R
0020260 O S ( D E F U N . P P R I
0020300 N T - D E F I N E R ) ) \r e x p
0020320 a n d - D E F I N L I N E D 1
0020340 \r ( L ( 1 $ $ M A C R O - E
0020360 N V I R O N M E N T 0 $ $ M
0020400 A C R O - F O R M ) ) \0 301 \v \0
0020420 \0 002 @ 002 \t \0 \0 021 241 \n @ 271 H 001 272 H
0020440 002 [ 001 274 K 002 275 A 276 g \0 \0 g \0 \0 M
0020460 N i \v \0 \0 \t \0 \0 _ 024 001 _ 022 277 O 024
0020500 002 001 _ 020 277 g \0 \0 L O 020 g \0 \0 J O
0020520 022 032 032 h 032 \n \0 \0 032 032 _ 016 277 g \0 \0
0020540 g \0 \0 J L M 032 032 032 g \0 \0 J g \0 \0
0020560 J \n \0 \0 o \0 \0 \0 g \0 \0 g \0 \0 O 016
0020600 h 032 032 o \0 \0 \0 032 032 h 032 032 032 032 032 h
0020620 032 032 032 h 032 032 g \0 \0 o \0 \0 \0 g \0 \0
0020640 g \0 \0 g \0 \0 g \0 \0 J h 032 032 o \0 \0
0020660 \0 g \0 \0 I h 032 032 h 032 032 032 032 h 032 032
0020700 032 h 032 032 032 g \0 \0 J h 032 032 h 032 032 032
0020720 032 020 \0 ( 1 4 1 Q P A C K * 1
0020740 0 5 Q \ A P P E N D 2 4 5 Q
0020760 \ M V L I S T 4 2 Q P A R
0021000 S E - B O D Y 4 R E M O V E
0021020 - C O M M E N T S ) \r ( 2 6 5 Q
0021040 Q U O T E 2 4 1 Q Q U O T
0021060 E 2 2 6 Q Q U O T E 2 2 3
0021100 Q \ D E F I N E - T Y P E - S
0021120 A V E - D E F N 2 2 0 Q F I
0021140 L E P K G F L G 2 1 5 Q A N
0021160 D 2 0 6 Q E V A L - W H E N
0021200 1 5 3 Q Q U O T E 1 5 0 Q
0021220 C O N S 1 3 5 Q d e f s u
0021240 b s t - 1 3 1 Q D E F O P T
0021260 I M I Z E R 1 2 0 Q D E F U
0021300 N 1 1 5 Q P R O G N 7 3 Q
0021320 C L : B L O C K 6 5 Q C L
0021340 : L A M B D A 3 4 Q W I T H
0021360 O U T - F I L E P K G 3 1 Q
0021400 P R O G N ) \r ( 2 3 6 Q ( Q
0021420 U O T E F U N C T I O N S )
0021440 2 1 2 Q ( C L : E V A L ) 1
0021460 6 4 Q ( A R G S ) 1 4 5 Q
0021500 ( & R E S T A R G S ) ) \r ( S
0021520 E T F - M A C R O - F U N C T I
0021540 O N ( Q U O T E D E F I N L
0021560 I N E ) ( Q U O T E e x p a
0021600 n d - D E F I N L I N E ) ) \r (
0021620 A D D T O V A R P R E T T Y P
0021640 R I N T M A C R O S ( D E F I
0021660 N L I N E . P P R I N T - D
0021700 E F I N E R ) ) \r e x p a n d -
0021720 D E F M A C R O D 1 \r ( L (
0021740 1 $ $ M A C R O - E N V I R O
0021760 N M E N T 0 $ $ M A C R O -
0022000 F O R M ) ) \0 372 \n \0 \0 002 @ 002 \t
0022020 \0 \0 021 221 \t @ 271 H 001 272 H 002 [ 001 274 K
0022040 002 275 g \0 \0 g \0 \0 J 221 h 200 i 251 J 004
0022060 l 004 360 221 h 200 i 230 o \0 \0 \0 J \n \0 \0
0022100 277 o \0 \0 \0 J \n \0 \0 _ 022 277 L g \0 \0
0022120 M J h g \0 \0 g \0 \0 \r \a \0 \0 \t \0 \0
0022140 _ 020 001 _ 016 277 O 020 002 001 276 g \0 \0 o \0
0022160 \0 \0 g \0 \0 g \0 \0 g \0 \0 O 022 h 032 032
0022200 h 032 032 g \0 \0 g \0 \0 o \0 \0 \0 N g \0
0022220 \0 J O 016 h 032 032 032 h 032 \n \0 \0 032 032 h
0022240 032 032 h 032 032 032 g \0 \0 g \0 \0 g \0 \0 J
0022260 h 032 032 h 032 032 g \0 \0 O 022 h 032 032 h 032
0022300 032 032 h 032 032 032 032 h 032 032 g \0 \0 o \0 \0
0022320 \0 g \0 \0 g \0 \0 g \0 \0 g \0 \0 J h 032
0022340 032 o \0 \0 \0 g \0 \0 I h 032 032 h 032 032 032
0022360 032 h 032 032 032 h 032 032 032 g \0 \0 J h 032 032
0022400 h 032 032 032 032 020 \0 ( 2 1 7 Q \ A P
0022420 P E N D 2 1 2 2 Q \ M V L I
0022440 S T 1 1 7 Q P A R S E - D E
0022460 F M A C R O 7 3 Q P A C K *
0022500 6 2 Q C L : E R R O R 4
0022520 R E M O V E - C O M M E N T S )
0022540 \r ( 3 5 6 Q Q U O T E 3 3 2
0022560 Q Q U O T E 3 1 7 Q Q U O
0022600 T E 3 1 4 Q \ D E F I N E -
0022620 T Y P E - S A V E - D E F N 3
0022640 1 1 Q F I L E P K G F L G 3
0022660 0 6 Q A N D 2 7 7 Q E V A
0022700 L - W H E N 2 5 3 Q Q U O T
0022720 E 2 4 1 Q Q U O T E 2 3 6
0022740 Q M A C R O - F U N C T I O N
0022760 2 3 3 Q S E T F 2 0 3 Q
0023000 C L : B L O C K 1 7 3 Q C L
0023020 : L A M B D A 1 7 0 Q C L :
0023040 F U N C T I O N 1 5 5 Q Q U
0023060 O T E 1 5 2 Q S Y M B O L -
0023100 F U N C T I O N 1 4 7 Q S E
0023120 T F 1 4 0 Q E V A L - W H E
0023140 N 1 1 3 Q $ $ M A C R O - E
0023160 N V I R O N M E N T 1 1 0 Q
0023200 : E N V I R O N M E N T 1 0 2
0023220 Q $ $ M A C R O - F O R M 3
0023240 2 Q W I T H O U T - F I L E P
0023260 K G 2 7 Q P R O G N ) \r (
0023300 3 2 7 Q ( Q U O T E F U N C
0023320 T I O N S ) 3 0 3 Q ( C L :
0023340 E V A L ) 1 7 7 Q ( $ $ M A
0023360 C R O - F O R M $ $ M A C R O
0023400 - E N V I R O N M E N T ) 1 4
0023420 4 Q ( C L : E V A L C L : C
0023440 O M P I L E C L : L O A D ) \r
0023460 6 7 Q " e x p a n d - " 5
0023500 6 Q " I l l e g a l n a m e
0023520 u s e d i n D E F M A C R
0023540 O : ~ S " ) \r ( S E T F - M A
0023560 C R O - F U N C T I O N ( Q U
0023600 O T E D E F M A C R O ) ( Q
0023620 U O T E e x p a n d - D E F M
0023640 A C R O ) ) \r ( A D D T O V A R
0023660 P R E T T Y P R I N T M A C R
0023700 O S ( D E F M A C R O . P
0023720 P R I N T - D E F I N E R ) ) \r
0023740 e x p a n d - D E F V A R D 1
0023760 \r ( L ( 1 $ $ M A C R O - E
0024000 N V I R O N M E N T 0 $ $ M
0024020 A C R O - F O R M ) ) \0 232 006 \0
0024040 \0 002 @ 002 \t \0 \0 021 Q 005 @ 271 H 001 272 H
0024060 002 [ d 220 001 274 K 241 h 200 i 275 g \0 \0 g
0024100 \0 \0 g \0 \0 g \0 \0 g \0 \0 g \0 \0 J h
0024120 032 032 h 032 032 h 032 032 M 264 ! g \0 \0 g \0
0024140 \0 g \0 \0 J h 032 032 h 032 032 g \0 \0 J L
0024160 h 032 032 032 h 032 032 032 h 032 032 032 h 032 032 g
0024200 \0 \0 o \0 \0 \0 g \0 \0 g \0 \0 g \0 \0 g
0024220 \0 \0 J h 032 032 o \0 \0 \0 g \0 \0 I h 032
0024240 032 h 032 032 032 032 h 032 032 032 h 032 032 032 g \0
0024260 \0 J h 032 032 h 032 032 032 032 020 \0 ( 4 R
0024300 E M O V E - C O M M E N T S ) \r
0024320 ( 2 1 6 Q Q U O T E 1 7 2 Q
0024340 Q U O T E 1 5 7 Q Q U O T
0024360 E 1 5 4 Q \ D E F I N E - T
0024400 Y P E - S A V E - D E F N 1 5
0024420 1 Q F I L E P K G F L G 1 4
0024440 6 Q A N D 1 3 7 Q E V A L
0024460 - W H E N 1 1 3 Q S E T Q
0024500 1 0 1 Q Q U O T E 7 6 Q B
0024520 O U N D P 7 3 Q O R 5 3 Q
0024540 S P E C I A L 5 0 Q Q U O
0024560 T E 4 5 Q P R O C L A I M
0024600 4 2 Q P R O G N 3 7 Q W I
0024620 T H O U T - F I L E P K G 3 4
0024640 Q P R O G N ) \r ( 1 6 7 Q
0024660 ( Q U O T E V A R I A B L E S
0024700 ) 1 4 3 Q ( C L : E V A L )
0024720 ) \r ( S E T F - M A C R O - F U
0024740 N C T I O N ( Q U O T E D E
0024760 F V A R ) ( Q U O T E e x p
0025000 a n d - D E F V A R ) ) \r ( A D
0025020 D T O V A R P R E T T Y P R I
0025040 N T M A C R O S ( D E F V A R
0025060 . P P R I N T - D E F I N E
0025100 R ) ) \r e x p a n d - D E F P A
0025120 R A M E T E R D 1 \r ( L ( 1
0025140 $ $ M A C R O - E N V I R O N
0025160 M E N T 0 $ $ M A C R O - F
0025200 O R M ) ) \0 z 004 \0 \0 002 @ 002 \t \0
0025220 \0 021 1 003 @ 271 H 001 272 H 002 001 273 g \0 \0
0025240 g \0 \0 g \0 \0 g \0 \0 g \0 \0 g \0 \0 J
0025260 h 032 032 h 032 032 h 032 032 g \0 \0 J K h 032
0025300 032 032 h 032 032 032 h 032 032 g \0 \0 o \0 \0 \0
0025320 g \0 \0 g \0 \0 g \0 \0 g \0 \0 J h 032 032
0025340 o \0 \0 \0 g \0 \0 I h 032 032 h 032 032 032 032
0025360 h 032 032 032 h 032 032 032 g \0 \0 J h 032 032 h
0025400 032 032 032 032 020 \0 ( 4 R E M O V E -
0025420 C O M M E N T S ) \r ( 1 5 6 Q
0025440 Q U O T E 1 3 2 Q Q U O T E
0025460 1 1 7 Q Q U O T E 1 1 4 Q
0025500 \ D E F I N E - T Y P E - S A
0025520 V E - D E F N 1 1 1 Q F I L
0025540 E P K G F L G 1 0 6 Q A N D
0025560 7 7 Q E V A L - W H E N 5
0025600 7 Q S E T Q 4 2 Q S P E C
0025620 I A L 3 7 Q Q U O T E 3 4
0025640 Q P R O C L A I M 3 1 Q P
0025660 R O G N 2 6 Q W I T H O U T
0025700 - F I L E P K G 2 3 Q P R O
0025720 G N ) \r ( 1 2 7 Q ( Q U O T
0025740 E V A R I A B L E S ) 1 0 3
0025760 Q ( C L : E V A L ) ) \r ( S E
0026000 T F - M A C R O - F U N C T I O
0026020 N ( Q U O T E D E F P A R A
0026040 M E T E R ) ( Q U O T E e x
0026060 p a n d - D E F P A R A M E T E
0026100 R ) ) \r ( A D D T O V A R P R
0026120 E T T Y P R I N T M A C R O S
0026140 ( D E F P A R A M E T E R .
0026160 P P R I N T - D E F I N E R ) )
0026200 \r e x p a n d - D E F C O N S T
0026220 A N T D 1 \r ( L ( 1 $ $ M
0026240 A C R O - E N V I R O N M E N T
0026260 0 $ $ M A C R O - F O R M )
0026300 ) \0 205 004 \0 \0 002 @ 002 \t \0 \0 021 1 003
0026320 @ 271 H 001 272 H 002 001 273 g \0 \0 g \0 \0 g
0026340 \0 \0 g \0 \0 J K h 032 032 032 g \0 \0 g \0
0026360 \0 J h 032 032 g \0 \0 g \0 \0 J h 032 032 h
0026400 032 032 o \0 \0 \0 032 032 032 h 032 032 032 h 032 032
0026420 g \0 \0 o \0 \0 \0 g \0 \0 g \0 \0 g \0 \0
0026440 g \0 \0 J h 032 032 o \0 \0 \0 g \0 \0 I h
0026460 032 032 h 032 032 032 032 h 032 032 032 h 032 032 032 g
0026500 \0 \0 J h 032 032 h 032 032 032 032 020 \0 ( 4
0026520 R E M O V E - C O M M E N T S )
0026540 \r ( 1 7 1 Q Q U O T E 1 4 5
0026560 Q Q U O T E 1 3 2 Q Q U O
0026600 T E 1 2 7 Q \ D E F I N E -
0026620 T Y P E - S A V E - D E F N 1
0026640 2 4 Q F I L E P K G F L G 1
0026660 2 1 Q A N D 1 1 2 Q E V A
0026700 L - W H E N 6 2 Q C O N S T
0026720 A N T 5 7 Q Q U O T E 5 0
0026740 Q Q U O T E 4 5 Q P U T H
0026760 A S H 3 4 Q S E T Q 3 1 Q
0027000 P R O G N 2 6 Q W I T H O
0027020 U T - F I L E P K G 2 3 Q P
0027040 R O G N ) \r ( 1 4 2 Q ( Q U
0027060 O T E V A R I A B L E S ) 1
0027100 1 6 Q ( C L : E V A L ) 7 5
0027120 Q ( C O M P V A R M A C R O H
0027140 A S H ) ) \r ( S E T F - M A C R
0027160 O - F U N C T I O N ( Q U O T
0027200 E D E F C O N S T A N T ) (
0027220 Q U O T E e x p a n d - D E F
0027240 C O N S T A N T ) ) \r ( A D D T
0027260 O V A R P R E T T Y P R I N T
0027300 M A C R O S ( D E F C O N S T
0027320 A N T . P P R I N T - D E F
0027340 I N E R ) ) \r e x p a n d - D E
0027360 F G L O B A L V A R D 1 \r ( L
0027400 ( 1 $ $ M A C R O - E N V I
0027420 R O N M E N T 0 $ $ M A C R
0027440 O - F O R M ) ) \0 232 006 \0 \0 002 @
0027460 002 \t \0 \0 021 Q 005 @ 271 H 001 272 H 002 [ d
0027500 220 001 274 K 241 h 200 i 275 g \0 \0 g \0 \0 g
0027520 \0 \0 g \0 \0 g \0 \0 g \0 \0 J h 032 032 h
0027540 032 032 h 032 032 M 264 ! g \0 \0 g \0 \0 g \0
0027560 \0 J h 032 032 h 032 032 g \0 \0 J L h 032 032
0027600 032 h 032 032 032 h 032 032 032 h 032 032 g \0 \0 o
0027620 \0 \0 \0 g \0 \0 g \0 \0 g \0 \0 g \0 \0 J
0027640 h 032 032 o \0 \0 \0 g \0 \0 I h 032 032 h 032
0027660 032 032 032 h 032 032 032 h 032 032 032 g \0 \0 J h
0027700 032 032 h 032 032 032 032 020 \0 ( 4 R E M O
0027720 V E - C O M M E N T S ) \r ( 2 1
0027740 6 Q Q U O T E 1 7 2 Q Q U
0027760 O T E 1 5 7 Q Q U O T E 1
0030000 5 4 Q \ D E F I N E - T Y P E
0030020 - S A V E - D E F N 1 5 1 Q
0030040 F I L E P K G F L G 1 4 6 Q
0030060 A N D 1 3 7 Q E V A L - W H
0030100 E N 1 1 3 Q S E T Q 1 0 1
0030120 Q Q U O T E 7 6 Q B O U N
0030140 D P 7 3 Q O R 5 3 Q G L
0030160 O B A L 5 0 Q Q U O T E 4
0030200 5 Q P R O C L A I M 4 2 Q
0030220 P R O G N 3 7 Q W I T H O U
0030240 T - F I L E P K G 3 4 Q P R
0030260 O G N ) \r ( 1 6 7 Q ( Q U O
0030300 T E V A R I A B L E S ) 1 4
0030320 3 Q ( C L : E V A L ) ) \r ( S
0030340 E T F - M A C R O - F U N C T I
0030360 O N ( Q U O T E D E F G L O
0030400 B A L V A R ) ( Q U O T E e
0030420 x p a n d - D E F G L O B A L V
0030440 A R ) ) \r ( A D D T O V A R P
0030460 R E T T Y P R I N T M A C R O S
0030500 ( D E F G L O B A L V A R .
0030520 P P R I N T - D E F I N E R )
0030540 ) \r e x p a n d - D E F G L O B
0030560 A L P A R A M E T E R D 1 \r (
0030600 L ( 1 $ $ M A C R O - E N V
0030620 I R O N M E N T 0 $ $ M A C
0030640 R O - F O R M ) ) \0 z 004 \0 \0 002
0030660 @ 002 \t \0 \0 021 1 003 @ 271 H 001 272 H 002 001
0030700 273 g \0 \0 g \0 \0 g \0 \0 g \0 \0 g \0 \0
0030720 g \0 \0 J h 032 032 h 032 032 h 032 032 g \0 \0
0030740 J K h 032 032 032 h 032 032 032 h 032 032 g \0 \0
0030760 o \0 \0 \0 g \0 \0 g \0 \0 g \0 \0 g \0 \0
0031000 J h 032 032 o \0 \0 \0 g \0 \0 I h 032 032 h
0031020 032 032 032 032 h 032 032 032 h 032 032 032 g \0 \0 J
0031040 h 032 032 h 032 032 032 032 020 \0 ( 4 R E M
0031060 O V E - C O M M E N T S ) \r ( 1
0031100 5 6 Q Q U O T E 1 3 2 Q Q
0031120 U O T E 1 1 7 Q Q U O T E
0031140 1 1 4 Q \ D E F I N E - T Y P
0031160 E - S A V E - D E F N 1 1 1 Q
0031200 F I L E P K G F L G 1 0 6 Q
0031220 A N D 7 7 Q E V A L - W H
0031240 E N 5 7 Q S E T Q 4 2 Q
0031260 G L O B A L 3 7 Q Q U O T E
0031300 3 4 Q P R O C L A I M 3 1
0031320 Q P R O G N 2 6 Q W I T H
0031340 O U T - F I L E P K G 2 3 Q
0031360 P R O G N ) \r ( 1 2 7 Q ( Q
0031400 U O T E V A R I A B L E S )
0031420 1 0 3 Q ( C L : E V A L ) ) \r
0031440 ( S E T F - M A C R O - F U N C
0031460 T I O N ( Q U O T E D E F G
0031500 L O B A L P A R A M E T E R )
0031520 ( Q U O T E e x p a n d - D E
0031540 F G L O B A L P A R A M E T E R
0031560 ) ) \r ( A D D T O V A R P R E
0031600 T T Y P R I N T M A C R O S (
0031620 D E F G L O B A L P A R A M E T
0031640 E R . P P R I N T - D E F I
0031660 N E R ) ) \r ( P U T P R O P S
0031700 M A C R O - F N P R O P T Y P
0031720 E F U N C T I O N S ) \r ( P U
0031740 T P R O P S C M L D E F F E R
0031760 F I L E T Y P E C O M P I L
0032000 E - F I L E ) \r ( P U T P R O P
0032020 S C M L D E F F E R C O P Y
0032040 R I G H T ( " X e r o x C o
0032060 r p o r a t i o n " 1 9 8 6
0032100 1 9 0 0 ) ) \r N I L \r
0032113