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