$ od -c -N 50000 [eris]<LispCore>SOURCES>CMLDEFFER.DCOM!25
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 (
0000100 F I L E C R E A T E D " 2 6 -
0000120 O c t - 8 6 0 1 : 1 8 : 4 6 "
0000140 ( " c o m p i l e d o n "
0000160 { E R I S } < L I S P C O R E
0000200 > S O U R C E S > C M L D E F F
0000220 E R . ; 2 5 ) \r " 2 1 - O c t
0000240 - 8 6 0 4 : 1 3 : 0 1 " " C
0000260 O M P I L E - F I L E d " i n
0000300 " X e r o x L i s p 2 1 -
0000320 O c t - 8 6 . . . " d a t e
0000340 d " 2 1 - O c t - 8 6 0 4 :
0000360 4 8 : 4 3 " ) \r ( F I L E C R E
0000400 A T E D " 2 6 - O c t - 8 6
0000420 0 1 : 1 8 : 2 8 " { E R I S }
0000440 < L I S P C O R E > S O U R C E
0000460 S > C M L D E F F E R . ; 2 5
0000500 1 7 7 0 2 c h a n g e s t o
0000520 % : ( F U N C T I O N S \r \
0000540 D E F I N E - T Y P E - S A V E
0000560 - D E F N ) p r e v i o u s
0000600 d a t e % : " 2 5 - O c t - 8
0000620 6 2 3 : 1 3 : 1 9 " { E R I
0000640 S } < L I S P C O R E > S O U R
0000660 C E S > C M L D E F F E R . ; 2
0000700 4 ) \r ( R P A Q Q C M L D E F
0000720 F E R C O M S ( ( * ; ; ;
0000740 \r " D E F - D E F I N E - T Y P
0000760 E a n d D E F D E F I N E R
0001000 - - P r o v i d e s c u s
0001020 t o m i z e d F i l e M a n
0001040 a g e r f a c i l i t i e s .
0001060 " ) ( * ; ; \r " B E V E
0001100 R Y C A R E F U L C H A N G
0001120 I N G A N Y T H I N G I N
0001140 T H I S F I L E ! ! ! I t
0001160 i s s e l f - r e f e r e n
0001200 t i a l a n d h a s m a n
0001220 y b o o t s t r a p p i n g
0001240 p r o b l e m s . E v e n
0001260 t r i v i a l c h a n g e s
0001300 a r e v e r y t r i c k y
0001320 t o m a k e w i t h o u t
0001340 b l o w i n g y o u r s e l
0001360 f o u t o f t h e w a t
0001400 e r . . . " \r ) ( C O M S (
0001420 I N I T V A R S ( F I L E P K
0001440 G F L G ) ) ( C O M S ( F N
0001460 S P P R I N T - D E F I N E R
0001500 \ D E F I N E - T Y P E - G E
0001520 T D E F \ D E F I N E - T Y P
0001540 E - D E L D E F \r R E M O V E
0001560 - C O M M E N T S ) ( F U N C
0001600 T I O N S \ D E F I N E - T Y
0001620 P E - S A V E - D E F N ) ) )
0001640 ( V A R I A B L E S * D E F I
0001660 N I T I O N - H A S H - T A B L
0001700 E * ) ( \r D E F I N E - T Y P
0001720 E S D E F I N E - T Y P E S
0001740 F U N C T I O N S V A R I A B
0001760 L E S ) ( F U N C T I O N S
0002000 D E F D E F I N E R D E F - D
0002020 E F I N E - T Y P E W I T H O
0002040 U T - F I L E P K G ) \r ( F U
0002060 N C T I O N S C L : D E F U N
0002100 D E F I N L I N E D E F M A
0002120 C R O ) ( F U N C T I O N S
0002140 C L : D E F V A R C L : D E F
0002160 P A R A M E T E R C L : D E F
0002200 C O N S T A N T \r D E F G L O
0002220 B A L V A R D E F G L O B A L
0002240 P A R A M E T E R ) ( * ; ;
0002260 " 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 \r M A C R O - F N ) ( * ; ;
0002400 " 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
0002620 E F I N E D P 0 D E F I N
0002640 E R I 0 D E F I N E - E X
0002660 P R E S S I O N F 4 P R E
0002700 T T Y C O M F O N T F 5 D
0002720 E F A U L T F O N T F 6 C
0002740 O M M E N T F L G ) \0 311 004 003 \0
0002760 001 @ 001 @ 002 b \0 001 @ 002 b \0 277 \b \0 \0
0003000 021 023 003 o \0 \0 \0 \t \0 \0 277 H \t \0 \0 277
0003020 k \t \0 \0 I 003 262 0 o \0 \0 \0 \t \0 \0 277
0003040 T \t \0 \0 277 I 001 \t \0 \0 277 U \t \0 \0 277
0003060 k \t \0 \0 277 I 002 i d d \f \0 \0 277 o \0
0003100 \0 \0 \t \0 \0 215 T \t \0 \0 277 I \t \0 \0 277
0003120 U \t \0 \0 277 @ d 001 003 262 025 277 k \t \0 \0
0003140 277 @ 001 @ 002 b \0 277 i \n \0 \0 277 @ 001 005
0003160 \a 251 @ d 001 003 001 V 360 262 026 277 k \t \0 \0
0003200 277 @ 001 @ 002 b \0 277 i d \v \0 \0 277 @ i
0003220 d \v \0 \0 253 \b \0 \0 277 J \t \0 \0 277 l 003
0003240 200 k \t \0 \0 277 @ i d d \f \0 \0 o \0 \0
0003260 \0 \t \0 \0 h \t \0 \0 020 \0 ( 1 9 8 T
0003300 E R P R I 1 9 4 P R I N 1
0003320 1 8 7 P R I N T D E F 1 7 9
0003340 S P A C E S 1 7 1 D S P X
0003360 P O S I T I O N 1 6 6 T E R
0003400 P R I 1 6 2 F I T P 1 5 5
0003420 P R I N T D E F 1 4 2 S P
0003440 A C E S 1 2 2 P R I N T D E
0003460 F 1 1 0 S P A C E S 9 8
0003500 C H A N G E F O N T 9 3 P R
0003520 I N 2 8 8 C H A N G E F O N
0003540 T 8 3 P R I N 1 7 5 P R
0003560 I N T D E F 6 6 S P A C E S
0003600 6 1 C H A N G E F O N T 5
0003620 6 P R I N 2 5 0 C H A N G
0003640 E F O N T 4 5 P R I N 1 3
0003660 4 S P A C E S 2 9 P R I N
0003700 2 2 4 P R I N 1 1 4 D S
0003720 P X P O S I T I O N ) \r N I L \r
0003740 ( 1 9 1 " ) " 8 0 " ) "
0003760 4 2 " ( " 2 1 " ( " ) \r
0004000 \ D E F I N E - T Y P E - G E T
0004020 D E F D 1 \r ( P 0 C L : H
0004040 A S H - T A B L E I 2 O P
0004060 T I O N S I 1 T Y P E I
0004100 0 N A M E ) \0 024 001 \0 \0 003 A
0004120 ` \0 \0 \n \0 \0 021 001 \0 H 264 \a @ H \n \0
0004140 \0 020 \0 ( 1 7 C L : G E T H A S
0004160 H 6 C L : G E T H A S H ) \r
0004200 ( 3 * D E F I N I T I O N - H
0004220 A S H - T A B L E * ) \r ( ) \r \
0004240 D E F I N E - T Y P E - D E L D
0004260 E F D 1 \r ( P 1 F N P
0004300 0 H T I 1 T Y P E I
0004320 0 N A M E ) \0 - 002 \0 \0 002 A `
0004340 \0 \0 \n \0 \0 021 001 \0 H 225 @ H \n \0 \0 277
0004360 A 301 002 311 \0 g \0 \0 ' 212 d 001 021 001 001 @
0004400 k I 016 023 002 003 265 364 h 020 \0 ( 1 6 R
0004420 E M H A S H 6 C L : G E T H
0004440 A S H ) \r ( 2 5 U N D E F I N
0004460 E R S 3 * D E F I N I T I O
0004500 N - H A S H - T A B L E * ) \r (
0004520 ) \r R E M O V E - C O M M E N T
0004540 S D 1 \r ( I 0 X F 2
0004560 C O M M E N T F L G ) \0 2 002 001
0004600 \0 001 @ 003 265 004 @ 020 001 003 001 R 360 225 @ 002
0004620 b \0 260 361 @ 001 \t \0 \0 @ 002 \t \0 \0 021 002
0004640 001 H d @ 001 360 230 277 I @ 002 360 221 @ 020 H
0004660 I 032 020 \0 ( 2 7 R E M O V E - C
0004700 O M M E N T S 2 2 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 A 0 0 0 1 D
0005000 1 \r ( L ( 2 A 1 3 8 2 1
0005020 A 1 3 8 1 0 A 1 3 8 4 ) F
0005040 0 A 1 3 8 5 ) \0 024 \0 001 \0 003
0005060 P @ A B h 032 032 032 032 \t \0 \0 A B @ \v
0005100 \0 \0 020 \0 ( 1 7 C L : : P U T H
0005120 A S H 1 1 U N D O S A V E )
0005140 \r N I L \r ( ) \r \ D E F I N E -
0005160 T Y P E - S A V E - D E F N D
0005200 1 \r ( L ( 2 D E F I N I T I
0005220 O N 1 T Y P E 0 N A M E
0005240 ) P 7 A 1 3 8 5 ) \0 g \b
0005260 \0 \0 003 A ` \0 \0 \n \0 \0 021 a 006 H 263 -
0005300 o \0 \0 \0 A \n \0 \0 277 A 273 ` \0 \0 272 g
0005320 \0 \0 g \0 \0 g \0 \0 l 2 g \0 \0 l 2 \r
0005340 006 \0 \0 271 K J I \v \0 \0 270 @ 276 H 275 B
0005360 274 021 020 \a g \0 \0 _ 016 N M \n \0 \0 N M
0005400 h 032 032 032 032 \t \0 \0 023 N M L \v \0 \0 023
0005420 @ A g \0 \0 \v \0 \0 020 \0 ( 1 0 0 M
0005440 A R K A S C H A N G E D 9 1
0005460 C L : : P U T H A S H 8 4 U
0005500 N D O S A V E 7 4 C L : G E
0005520 T H A S H 5 4 C L : : P U T
0005540 H A S H 4 7 C L : M A K E -
0005560 H A S H - T A B L E 2 0 C L
0005600 : W A R N 6 C L : G E T H A
0005620 S H ) \r ( 9 7 C H A N G E D
0005640 6 7 \ D E F I N E - T Y P E -
0005660 S A V E - D E F N A 0 0 0 1 4
0005700 1 : R E H A S H - S I Z E 3
0005720 6 : S I Z E 3 3 C L : E Q
0005740 U A L 3 0 : T E S T 2 6
0005760 * D E F I N I T I O N - H A S H
0006000 - T A B L E * 3 * D E F I N
0006020 I T I O N - H A S H - T A B L E
0006040 * ) \r ( 1 6 " C o u l d n '
0006060 t f i n d a h a s h - t a
0006100 b l e f o r ~ S d e f i n
0006120 i t i o n s . ~ % % O n e w i
0006140 l l b e c r e a t e d . " )
0006160 \r ( C L : P R O C L A I M ( Q
0006200 U O T E ( G L O B A L * D E
0006220 F I N I T I O N - H A S H - T A
0006240 B L E * ) ) ) \r ( O R ( B O U
0006260 N D P ( Q U O T E * D E F I
0006300 N I T I O N - H A S H - T A B L
0006320 E * ) ) ( S E T Q * D E F I
0006340 N I T I O N - H A S H - T A B L
0006360 E * ( H A S H A R R A Y 2 0
0006400 ) ) ) \r ( A D D T O V A R P R
0006420 E T T Y D E F M A C R O S ( D
0006440 E F I N E - T Y P E S X ( P
0006460 * ( M A P C A R ( Q U O T
0006500 E X ) ( F U N C T I O N (
0006520 L A M B D A ( I T E M ) ( C
0006540 L : D O ( ( D E F \r ( G E T
0006560 D E F I T E M ( Q U O T E
0006600 D E F I N E - T Y P E S ) ) ) )
0006620 ( D E F D E F ) ( C L : C
0006640 E R R O R " R e - f e t c h
0006660 t h e d e f i n i t i o n "
0006700 \r " N o ~ S d e f i n i t i
0006720 o n f o r ~ S " ( Q U O T
0006740 E D E F I N E - T Y P E S )
0006760 I T E M ) ) ) ) ) ) ) ) \r ( A D
0007000 D T O V A R P R E T T Y T Y P
0007020 E L S T ( C H A N G E D D E F
0007040 I N E - T Y P E S L S T D E F
0007060 I N E - T Y P E S " D e f i n
0007100 i t i o n t y p e " ) ) \r ( C
0007120 O N D ( ( N O T ( C L : G E
0007140 T H A S H ( Q U O T E D E F
0007160 I N E - T Y P E S ) * D E F I
0007200 N I T I O N - H A S H - T A B L
0007220 E * ) ) ( L E T * ( ( A 1 2
0007240 5 2 ( Q U O T E \r D E F I N
0007260 E - T Y P E S ) ) ( A 1 2 5 3
0007300 * D E F I N I T I O N - H A S
0007320 H - T A B L E * ) ( A 1 2 5 5
0007340 ( C L : M A K E - H A S H - T
0007360 A B L E ( Q U O T E : T E S
0007400 T ) ( Q U O T E C L : E Q U
0007420 A L \r ) ( Q U O T E : S I Z
0007440 E ) 5 0 ( Q U O T E : R E
0007460 H A S H - S I Z E ) 5 0 ) ) )
0007500 ( C L : : P U T H A S H A 1
0007520 2 5 2 A 1 2 5 3 A 1 2 5 5 )
0007540 ) ) ) \r ( A D D T O V A R F I
0007560 L E P K G T Y P E S D E F I N
0007600 E - T Y P E S ) \r ( P U T P R O
0007620 P S D E F I N E - T Y P E S
0007640 G E T D E F \ D E F I N E - T
0007660 Y P E - G E T D E F ) \r ( P U T
0007700 P R O P S D E F I N E - T Y P
0007720 E S F I L E P K G C O N T E N
0007740 T S N I L L ) \r ( P U T P R O
0007760 P S D E F I N E - T Y P E S
0010000 P R O P T Y P E D E F I N E -
0010020 T Y P E S ) \r ( A D D T O V A R
0010040 P R E T T Y D E F M A C R O S
0010060 ( F U N C T I O N S X ( P
0010100 * ( M A P C A R ( Q U O T
0010120 E X ) ( F U N C T I O N (
0010140 L A M B D A ( I T E M ) ( C
0010160 L : D O ( ( D E F ( \r G E T
0010200 D E F I T E M ( Q U O T E
0010220 F U N C T I O N S ) ) ) ) ( D
0010240 E F D E F ) ( C L : C E R R
0010260 O R " R e - f e t c h t h e
0010300 d e f i n i t i o n " \r " N
0010320 o ~ S d e f i n i t i o n
0010340 f o r ~ S " ( Q U O T E F
0010360 U N C T I O N S ) I T E M ) )
0010400 ) ) ) ) ) ) \r ( A D D T O V A R
0010420 P R E T T Y T Y P E L S T (
0010440 C H A N G E D F U N C T I O N S
0010460 L S T F U N C T I O N S " C
0010500 o m m o n L i s p f u n c t
0010520 i o n s " ) ) \r ( C O N D ( (
0010540 N O T ( C L : G E T H A S H
0010560 ( Q U O T E F U N C T I O N S
0010600 ) * D E F I N I T I O N - H A
0010620 S H - T A B L E * ) ) ( L E T
0010640 * ( ( A 1 2 5 6 ( Q U O T E
0010660 F U N C T I O N S ) ) ( \r A
0010700 1 2 5 7 * D E F I N I T I O N
0010720 - H A S H - T A B L E * ) ( A
0010740 1 2 5 9 ( C L : M A K E - H A
0010760 S H - T A B L E ( Q U O T E
0011000 : T E S T ) ( Q U O T E C L
0011020 : E Q U A L ) ( Q U O T E :
0011040 S I Z E ) \r 5 0 ( Q U O T E
0011060 : R E H A S H - S I Z E ) 5
0011100 0 ) ) ) ( C L : : P U T H A S
0011120 H A 1 2 5 6 A 1 2 5 7 A 1
0011140 2 5 9 ) ) ) ) \r ( A D D T O V A
0011160 R F I L E P K G T Y P E S F
0011200 U N C T I O N S ) \r ( P U T P R
0011220 O P S F U N C T I O N S G E
0011240 T D E F \ D E F I N E - T Y P
0011260 E - G E T D E F ) \r ( P U T P R
0011300 O P S F U N C T I O N S F I
0011320 L E P K G C O N T E N T S N I
0011340 L L ) \r ( P U T P R O P S F U
0011360 N C T I O N S P R O P T Y P E
0011400 F U N C T I O N S ) \r ( A D D
0011420 T O V A R P R E T T Y D E F M
0011440 A C R O S ( V A R I A B L E S
0011460 X ( P * ( M A P C A R
0011500 ( Q U O T E X ) ( F U N C T
0011520 I O N ( L A M B D A ( I T E
0011540 M ) ( C L : D O ( ( D E F
0011560 ( \r G E T D E F I T E M ( Q
0011600 U O T E V A R I A B L E S ) )
0011620 ) ) ( D E F D E F ) ( C L
0011640 : C E R R O R " R e - f e t c
0011660 h t h e d e f i n i t i o n
0011700 " \r " N o ~ S d e f i n i
0011720 t i o n f o r ~ S " ( Q U
0011740 O T E V A R I A B L E S ) I
0011760 T E M ) ) ) ) ) ) ) ) \r ( A D D
0012000 T O V A R P R E T T Y T Y P E
0012020 L S T ( C H A N G E D V A R I
0012040 A B L E S L S T V A R I A B L
0012060 E S " C o m m o n L i s p
0012100 v a r i a b l e s " ) ) \r ( C O
0012120 N D ( ( N O T ( C L : G E T
0012140 H A S H ( Q U O T E V A R I
0012160 A B L E S ) * D E F I N I T I
0012200 O N - H A S H - T A B L E * ) )
0012220 ( L E T * ( ( A 1 2 6 0 (
0012240 Q U O T E V A R I A B L E S )
0012260 ) ( \r A 1 2 6 1 * D E F I N
0012300 I T I O N - H A S H - T A B L E
0012320 * ) ( A 1 2 6 3 ( C L : M A
0012340 K E - H A S H - T A B L E ( Q
0012360 U O T E : T E S T ) ( Q U O
0012400 T E C L : E Q U A L ) ( Q U
0012420 O T E : S I Z E ) \r 5 0 (
0012440 Q U O T E : R E H A S H - S I
0012460 Z E ) 5 0 ) ) ) ( C L : : P
0012500 U T H A S H A 1 2 6 0 A 1 2
0012520 6 1 A 1 2 6 3 ) ) ) ) \r ( A D
0012540 D T O V A R F I L E P K G T Y
0012560 P E S V A R I A B L E S ) \r (
0012600 P U T P R O P S V A R I A B L
0012620 E S G E T D E F \ D E F I N
0012640 E - T Y P E - G E T D E F ) \r (
0012660 P U T P R O P S V A R I A B L
0012700 E S F I L E P K G C O N T E N
0012720 T S N I L L ) \r ( P U T P R O
0012740 P S V A R I A B L E S P R O
0012760 P T Y P E V A R I A B L E S )
0013000 \r e x p a n d - D E F D E F I N
0013020 E R D 1 \r ( L ( 1 $ $ M A
0013040 C R O - E N V I R O N M E N T
0013060 0 $ $ M A C R O - F O R M ) )
0013100 001 o \v \0 \0 002 @ 002 \t \0 \0 021 241 \n @
0013120 271 H 001 272 H 002 [ 001 274 K 002 ] 001 276 M 002
0013140 A i \v \0 \0 \t \0 \0 _ 016 001 _ 020 277 O 016
0013160 002 001 _ 022 277 O 016 002 002 001 _ 024 277 g \0 \0
0013200 g \0 \0 g \0 \0 g \0 \0 g \0 \0 g \0 \0 J
0013220 h 032 032 o \0 \0 \0 032 032 g \0 \0 L h 032 032
0013240 h 032 032 032 g \0 \0 g \0 \0 J h 032 032 g \0
0013260 \0 g \0 \0 L h 032 032 o \0 \0 \0 032 032 h 032
0013300 032 032 g \0 \0 J g \0 \0 g \0 \0 N 032 032 O
0013320 022 g \0 \0 g \0 \0 g \0 \0 g \0 \0 g \0 \0
0013340 O 020 032 h 032 032 h 032 032 g \0 \0 o \0 \0 \0
0013360 g \0 \0 g \0 \0 g \0 \0 o \0 \0 \0 g \0 \0
0013400 g \0 \0 g \0 \0 L h 032 032 h 032 032 h 032 032
0013420 o \0 \0 \0 032 032 032 h 032 032 032 h 032 032 032 o
0013440 \0 \0 \0 032 032 032 h 032 032 h 032 \n \0 \0 032 032
0013460 032 g \0 \0 g \0 \0 g \0 \0 J g \0 \0 032 h
0013500 032 032 032 h 032 032 O 024 264 035 g \0 \0 g \0 \0
0013520 g \0 \0 J h 032 032 o \0 \0 \0 032 032 O 024 h
0013540 032 032 032 h 032 g \0 \0 J h 032 032 h 032 \n \0
0013560 \0 032 032 032 032 032 h 032 032 g \0 \0 o \0 \0 \0
0013600 g \0 \0 g \0 \0 g \0 \0 g \0 \0 J h 032 032
0013620 o \0 \0 \0 g \0 \0 I h 032 032 h 032 032 032 032
0013640 h 032 032 032 h 032 032 032 g \0 \0 J h 032 032 h
0013660 032 032 032 032 020 \0 ( 2 9 7 \ A P P E
0013700 N D 2 2 3 0 \ A P P E N D 2
0013720 3 2 \ M V L I S T 2 9 P
0013740 A R S E - B O D Y 4 R E M O
0013760 V E - C O M M E N T S ) \r ( 3 5
0014000 5 Q U O T E 3 3 5 Q U O T
0014020 E 3 2 4 Q U O T E 3 2 1
0014040 \ D E F I N E - T Y P E - S A V
0014060 E - D E F N 3 1 8 F I L E P
0014100 K G F L G 3 1 5 A N D 3 0
0014120 8 C L : E V A L - W H E N 2
0014140 8 8 Q U O T E 2 6 7 Q U O
0014160 T E 2 6 4 C L : D O C U M E
0014200 N T A T I O N 2 6 1 C L : S
0014220 E T F 2 4 6 P P R I N T - D
0014240 E F I N E R 2 4 2 P R E T T
0014260 Y P R I N T M A C R O S 2 3 9
0014300 A D D T O V A R 2 3 6 W I
0014320 T H O U T - F I L E P K G 1 9
0014340 0 Q U O T E 1 8 7 \ , 1
0014360 8 4 Q U O T E 1 7 7 \ D E
0014400 F I N E - T Y P E - S A V E - D
0014420 E F N 1 7 4 F I L E P K G F
0014440 L G 1 7 1 A N D 1 6 4 C
0014460 L : E V A L - W H E N 1 5 2
0014500 P R O G N 1 4 9 \ , 1 4 6
0014520 W I T H O U T - F I L E P K G
0014540 1 4 3 P R O G N 1 4 0 B
0014560 Q U O T E 1 3 2 % % O R I G
0014600 I N A L - D E F I N I T I O N
0014620 1 2 9 & W H O L E 1 2 5 D
0014640 E F M A C R O 1 0 8 Q U O T
0014660 E 1 0 5 G E T 9 8 Q U O
0014700 T E 9 5 C L : P U S H N E W
0014720 8 4 Q U O T E 7 1 Q U O
0014740 T E 6 8 G E T 6 5 C L :
0014760 S E T F 6 2 P R O G N 5 9
0015000 W I T H O U T - F I L E P K G
0015020 5 6 P R O G N ) \r ( 3 3 2
0015040 ( Q U O T E F U N C T I O N
0015060 S ) 3 1 2 ( C L : E V A L )
0015100 2 7 5 ( ( Q U O T E C L :
0015120 F U N C T I O N ) ) 2 1 9 (
0015140 ( Q U O T E ( \ , N A M E )
0015160 ) ) 2 0 4 ( ( Q U O T E (
0015200 \ , % % O R I G I N A L - D E
0015220 F I N I T I O N ) ) ) \r 1 8 1
0015240 ( Q U O T E ( \ , N A M E
0015260 ) ) 1 6 8 ( C L : E V A L )
0015300 1 1 6 ( ( Q U O T E D E F
0015320 I N E D - B Y ) ) 7 9 ( ( Q
0015340 U O T E D E F I N E R - F O R
0015360 ) ) ) \r ( S E T F - M A C R O -
0015400 F U N C T I O N ( Q U O T E
0015420 D E F D E F I N E R ) ( Q U O
0015440 T E e x p a n d - D E F D E F
0015460 I N E R ) ) \r ( A D D T O V A R
0015500 P R E T T Y P R I N T M A C R
0015520 O S ( D E F D E F I N E R .
0015540 P P R I N T - D E F I N E R )
0015560 ) \r ( L E T * ( ( A 1 2 6 9
0015600 ( Q U O T E D E F - D E F I N
0015620 E - T Y P E ) ) ( A 1 2 7 0
0015640 ( Q U O T E D E F I N E R - F
0015660 O R ) ) ( A 1 2 7 2 ( Q U O
0015700 T E D E F I N E - T Y P E S )
0015720 ) ) ( \r P U T P R O P A 1 2
0015740 6 9 A 1 2 7 0 A 1 2 7 2 ) )
0015760 \r ( L E T * ( ( A 1 2 7 3 (
0016000 Q U O T E D E F I N E - T Y P
0016020 E S ) ) ( A 1 2 7 4 ( Q U O
0016040 T E D E F I N E D - B Y ) )
0016060 ( A 1 2 7 6 ( C L : A D J O I
0016100 N ( Q U O T E \r D E F - D E
0016120 F I N E - T Y P E ) ( G E T
0016140 A 1 2 7 3 A 1 2 7 4 ) ) ) )
0016160 ( P U T P R O P A 1 2 7 3 A
0016200 1 2 7 4 A 1 2 7 6 ) ) \r e x p
0016220 a n d - D E F - D E F I N E - T
0016240 Y P E D 1 \r ( L ( 1 $ $ M
0016260 A C R O - E N V I R O N M E N T
0016300 0 $ $ M A C R O - F O R M )
0016320 ) 001 334 \a \0 \0 002 @ 002 \t \0 \0 021 a 006
0016340 @ 271 H 001 272 H 002 [ 001 274 K 002 275 g \0 \0
0016360 M \n \0 \0 277 \b \0 \0 276 M o \0 \0 \0 \n \0
0016400 \0 g \0 \0 g \0 \0 g \0 \0 g \0 \0 g \0 \0
0016420 g \0 \0 J h 032 032 o \0 \0 \0 032 032 g \0 \0
0016440 L h 032 032 h 032 032 032 g \0 \0 g \0 \0 J g
0016460 \0 \0 g \0 \0 g \0 \0 g \0 \0 o \0 \0 \0 g
0016500 \0 \0 g \0 \0 o \0 \0 \0 g \0 \0 g \0 \0 g
0016520 \0 \0 g \0 \0 g \0 \0 J h 032 032 h 032 032 032
0016540 h 032 032 h 032 o \0 \0 \0 g \0 \0 o \0 \0 \0
0016560 o \0 \0 \0 g \0 \0 J h 032 032 o \0 \0 \0 032
0016600 032 032 032 h 032 032 032 032 h 032 032 032 h 032 032 h
0016620 032 032 032 h 032 032 032 h 032 032 032 h 032 032 o \0
0016640 \0 \0 032 032 g \0 \0 g \0 \0 N J L h 032 032
0016660 032 h 032 032 o \0 \0 \0 032 032 g \0 \0 N o \0
0016700 \0 \0 032 032 g \0 \0 g \0 \0 g \0 \0 J h 032
0016720 032 o \0 \0 \0 032 032 g \0 \0 g \0 \0 g \0 \0
0016740 J h 032 032 o \0 \0 \0 032 032 o \0 \0 \0 032 032
0016760 h 032 032 032 g \0 \0 g \0 \0 J h 032 032 o \0
0017000 \0 \0 032 032 g \0 \0 g \0 \0 g \0 \0 J h 032
0017020 032 o \0 \0 \0 032 032 o \0 \0 \0 032 032 g \0 \0
0017040 g \0 \0 g \0 \0 J h 032 032 o \0 \0 \0 032 032
0017060 o \0 \0 \0 032 032 g \0 \0 g \0 \0 g \0 \0 J
0017100 h 032 032 o \0 \0 \0 032 032 o \0 \0 \0 032 032 g
0017120 \0 \0 g \0 \0 g \0 \0 J h 032 032 o \0 \0 \0
0017140 032 032 o \0 \0 \0 032 032 h 032 032 032 032 032 032 032
0017160 032 032 032 032 h 032 032 g \0 \0 o \0 \0 \0 g \0
0017200 \0 g \0 \0 g \0 \0 g \0 \0 J h 032 032 o \0
0017220 \0 \0 g \0 \0 I h 032 032 h 032 032 032 032 h 032
0017240 032 032 h 032 032 032 g \0 \0 J h 032 032 h 032 032
0017260 032 032 020 \0 ( 4 0 K E Y W O R D -
0017300 T E S T 3 1 G E N S Y M 2
0017320 7 F I N D - K E Y W O R D 4
0017340 R E M O V E - C O M M E N T S
0017360 ) \r ( 4 6 4 Q U O T E 4 4 4
0017400 Q U O T E 4 3 3 Q U O T E
0017420 4 3 0 \ D E F I N E - T Y P
0017440 E - S A V E - D E F N 4 2 7
0017460 F I L E P K G F L G 4 2 4 A
0017500 N D 4 1 7 C L : E V A L - W
0017520 H E N 3 8 3 Q U O T E 3 8
0017540 0 G E T 3 7 7 C L : S E T
0017560 F 3 5 8 Q U O T E 3 5 5
0017600 G E T 3 5 2 C L : S E T F
0017620 3 3 3 Q U O T E 3 3 0 G E
0017640 T 3 2 7 C L : S E T F 3 0
0017660 8 Q U O T E 3 0 5 G E T
0017700 3 0 2 C L : S E T F 2 8 9
0017720 Q U O T E 2 8 6 C L : P U S
0017740 H N E W 2 6 3 Q U O T E 2
0017760 6 0 C L : G E T H A S H 2 5
0020000 7 C L : S E T F 2 4 4 Q U
0020020 O T E 2 4 1 C L : G E T H A
0020040 S H 2 3 8 C L : U N L E S S
0020060 2 2 8 D E F G L O B A L V A
0020100 R 2 0 9 Q U O T E 2 0 6
0020120 C L : P U S H 1 5 8 Q U O T
0020140 E 1 4 7 C L : C E R R O R
0020160 1 2 7 Q U O T E 1 2 4 I T
0020200 E M 1 2 1 G E T D E F 1 1
0020220 8 D E F 1 1 5 C L : D O
0020240 1 0 8 L A M B D A 1 0 5 F
0020260 U N C T I O N 9 8 M A P C A
0020300 R 9 5 * 9 2 P 8 9 X
0020320 8 5 Q U O T E 8 2 C L :
0020340 P U S H 7 1 Q U O T E 5 8
0020360 Q U O T E 5 5 C L : D O C
0020400 U M E N T A T I O N 5 2 C L
0020420 : S E T F 4 9 P R O G N 4
0020440 6 W I T H O U T - F I L E P K
0020460 G 4 3 P R O G N 2 3 : U
0020500 N D E F I N E R ) \r ( 4 4 1
0020520 ( Q U O T E D E F I N E - T Y
0020540 P E S ) 4 2 1 ( C L : E V A
0020560 L ) 3 9 7 ( ( Q U O T E U
0020600 N D E F I N E R ) ) 3 9 1 (
0020620 ( Q U O T E U N D E F I N E R
0020640 S ) ) 3 7 2 ( ( Q U O T E
0020660 N I L L ) ) \r 3 6 6 ( ( Q U
0020700 O T E F I L E P K G C O N T E
0020720 N T S ) ) 3 4 7 ( ( Q U O T
0020740 E \ D E F I N E - T Y P E - D
0020760 E L D E F ) ) 3 4 1 ( ( Q U
0021000 O T E D E L D E F ) ) 3 2 2
0021020 ( ( Q U O T E \ D E F I N E
0021040 - T Y P E - G E T D E F ) ) \r
0021060 3 1 6 ( ( Q U O T E G E T D
0021100 E F ) ) 2 9 7 ( F I L E P K
0021120 G T Y P E S ) 2 7 7 ( ( C L
0021140 : M A K E - H A S H - T A B L E
0021160 : T E S T ( Q U O T E C L
0021200 : E Q U A L ) : S I Z E 5 0
0021220 : R E H A S H - S I Z E 5 0
0021240 ) ) \r 2 7 1 ( * D E F I N I
0021260 T I O N - H A S H - T A B L E *
0021300 ) 2 5 2 ( * D E F I N I T I
0021320 O N - H A S H - T A B L E * )
0021340 2 3 3 ( N I L ) 2 2 3 ( P
0021360 R E T T Y T Y P E L S T ) 2 0
0021400 1 ( P R E T T Y D E F M A C R
0021420 O S ) \r 1 6 6 ( I T E M )
0021440 1 5 5 " N o ~ S d e f i n
0021460 i t i o n f o r ~ S " 1 5
0021500 1 " R e - f e t c h t h e
0021520 d e f i n i t i o n " 1 4 4
0021540 ( D E F D E F ) 1 1 2 ( I
0021560 T E M ) 1 0 2 ( Q U O T E
0021600 X ) \r 6 6 ( ( Q U O T E D
0021620 E F I N E - T Y P E S ) ) 3 7
0021640 ( : U N D E F I N E R ) ) \r (
0021660 S E T F - M A C R O - F U N C T
0021700 I O N ( Q U O T E D E F - D
0021720 E F I N E - T Y P E ) ( Q U O
0021740 T E e x p a n d - D E F - D E
0021760 F I N E - T Y P E ) ) \r ( A D D
0022000 T O V A R P R E T T Y P R I N
0022020 T M A C R O S ( D E F - D E F
0022040 I N E - T Y P E . P P R I N
0022060 T - D E F I N E R ) ) \r ( L E T
0022100 * ( ( A 1 2 8 2 ( Q U O T E
0022120 D E F - D E F I N E - T Y P E
0022140 ) ) ( A 1 2 8 3 ( Q U O T E
0022160 C L : F U N C T I O N ) ) (
0022200 A 1 2 8 4 \r " D e f i n e N
0022220 A M E a s a n e w d e f
0022240 i n i t i o n t y p e " ) )
0022260 ( S E T - D O C U M E N T A T I
0022300 O N A 1 2 8 2 A 1 2 8 3 A
0022320 1 2 8 4 ) ) \r e x p a n d - W I
0022340 T H O U T - F I L E P K G D 1
0022360 \r ( L ( 1 $ $ M A C R O - E
0022400 N V I R O N M E N T 0 $ $ M
0022420 A C R O - F O R M ) ) \0 = 001 \0
0022440 \0 002 @ 002 021 001 \0 g \0 \0 g \0 \0 o \0 \0
0022460 \0 H 032 032 g \0 \0 o \0 \0 \0 g \0 \0 o \0
0022500 \0 \0 g \0 \0 o \0 \0 \0 o \0 \0 \0 H 032 032
0022520 032 h 032 032 032 h 032 032 032 h 032 032 032 020 \0 N
0022540 I L \r ( 3 4 L E T 2 7 A N
0022560 D 2 0 C L : E V A L - W H E
0022600 N 1 0 C L : E V A L - W H E
0022620 N 7 P R O G N ) \r ( 4 2
0022640 ( D E C L A R E ( C L : S P E
0022660 C I A L F I L E P K G F L G
0022700 D F N F L G ) ) 3 8 ( F I L
0022720 E P K G F L G ( D F N F L G
0022740 T ) ) 3 1 ( N E Q D F N F
0022760 L G ( Q U O T E P R O P ) )
0023000 2 4 \r ( C L : E V A L ) 1
0023020 4 ( C L : L O A D ) ) \r ( S E
0023040 T F - M A C R O - F U N C T I O
0023060 N ( Q U O T E W I T H O U T
0023100 - F I L E P K G ) ( Q U O T E
0023120 e x p a n d - W I T H O U T -
0023140 F I L E P K G ) ) \r ( L E T *
0023160 ( ( A 1 2 8 6 ( Q U O T E C
0023200 L : D E F U N ) ) ( A 1 2 8 7
0023220 ( Q U O T E D E F I N E R -
0023240 F O R ) ) ( A 1 2 8 9 ( Q U
0023260 O T E F U N C T I O N S ) ) )
0023300 ( P U T P R O P A 1 2 8 6
0023320 \r A 1 2 8 7 A 1 2 8 9 ) ) \r (
0023340 L E T * ( ( A 1 2 9 0 ( Q U
0023360 O T E F U N C T I O N S ) )
0023400 ( A 1 2 9 1 ( Q U O T E D E
0023420 F I N E D - B Y ) ) ( A 1 2 9
0023440 3 ( C L : A D J O I N ( Q U
0023460 O T E C L : D E F U N ) ( G
0023500 E T \r A 1 2 9 0 A 1 2 9 1 )
0023520 ) ) ) ( P U T P R O P A 1 2
0023540 9 0 A 1 2 9 1 A 1 2 9 3 ) )
0023560 \r C L : : e x p a n d - D E F U
0023600 N D 1 \r ( L ( 1 $ $ M A C
0023620 R O - E N V I R O N M E N T 0
0023640 $ $ M A C R O - F O R M ) )
0023660 \0 304 \t \0 \0 002 @ 002 \t \0 \0 021 201 \b @ 271
0023700 H 001 272 H 002 [ 001 274 K 002 A i \v \0 \0 \t
0023720 \0 \0 ] 001 276 M 002 001 _ 016 277 M 002 002 001 _
0023740 020 277 g \0 \0 g \0 \0 g \0 \0 g \0 \0 g \0
0023760 \0 g \0 \0 J h 032 032 h 032 032 g \0 \0 g \0
0024000 \0 L O 016 g \0 \0 J N 032 032 h 032 \n \0 \0
0024020 032 032 h 032 032 h 032 032 032 O 020 264 035 g \0 \0
0024040 g \0 \0 g \0 \0 J h 032 032 o \0 \0 \0 032 032
0024060 O 020 h 032 032 032 h 032 032 032 h 032 032 g \0 \0
0024100 o \0 \0 \0 g \0 \0 g \0 \0 g \0 \0 g \0 \0
0024120 J h 032 032 o \0 \0 \0 g \0 \0 I h 032 032 h
0024140 032 032 032 032 h 032 032 032 h 032 032 032 g \0 \0 J
0024160 h 032 032 h 032 032 032 032 020 \0 ( 8 9 \ A
0024200 P P E N D 2 2 7 \ M V L I S
0024220 T 2 4 P A R S E - B O D Y
0024240 4 R E M O V E - C O M M E N T
0024260 S ) \r ( 1 8 4 Q U O T E 1 6
0024300 4 Q U O T E 1 5 3 Q U O T
0024320 E 1 5 0 \ D E F I N E - T Y
0024340 P E - S A V E - D E F N 1 4 7
0024360 F I L E P K G F L G 1 4 4
0024400 A N D 1 3 7 C L : E V A L -
0024420 W H E N 1 1 1 Q U O T E 1
0024440 0 8 C L : D O C U M E N T A T
0024460 I O N 1 0 5 C L : S E T F
0024500 8 0 C L : B L O C K 7 4 C
0024520 L : L A M B D A 7 1 F U N C
0024540 T I O N 6 1 Q U O T E 5 8
0024560 C L : S Y M B O L - F U N C T
0024600 I O N 5 5 C L : S E T F 5
0024620 2 P R O G N 4 9 W I T H O
0024640 U T - F I L E P K G 4 6 P R
0024660 O G N ) \r ( 1 6 1 ( Q U O T
0024700 E F U N C T I O N S ) 1 4 1
0024720 ( C L : E V A L ) 1 1 9 (
0024740 ( Q U O T E C L : F U N C T I
0024760 O N ) ) ) \r ( S E T F - M A C R
0025000 O - F U N C T I O N ( Q U O T
0025020 E C L : D E F U N ) ( Q U O
0025040 T E C L : : e x p a n d - D E
0025060 F U N ) ) \r ( A D D T O V A R
0025100 P R E T T Y P R I N T M A C R O
0025120 S ( C L : D E F U N . P P
0025140 R I N T - D E F I N E R ) ) \r (
0025160 L E T * ( ( A 1 3 0 0 ( Q U
0025200 O T E D E F I N L I N E ) )
0025220 ( A 1 3 0 1 ( Q U O T E D E
0025240 F I N E R - F O R ) ) ( A 1 3
0025260 0 3 ( Q U O T E F U N C T I
0025300 O N S ) ) ) ( P U T P R O P
0025320 A 1 3 0 0 \r A 1 3 0 1 A 1 3
0025340 0 3 ) ) \r ( L E T * ( ( A 1 3
0025360 0 4 ( Q U O T E F U N C T I
0025400 O N S ) ) ( A 1 3 0 5 ( Q U
0025420 O T E D E F I N E D - B Y ) )
0025440 ( A 1 3 0 7 ( C L : A D J O
0025460 I N ( Q U O T E D E F I N L
0025500 I N E ) ( G E T \r A 1 3 0 4
0025520 A 1 3 0 5 ) ) ) ) ( P U T P
0025540 R O P A 1 3 0 4 A 1 3 0 5
0025560 A 1 3 0 7 ) ) \r e x p a n d - D
0025600 E F I N L I N E D 1 \r ( L (
0025620 1 $ $ M A C R O - E N V I R O
0025640 N M E N T 0 $ $ M A C R O -
0025660 F O R M ) ) \0 311 \v \0 \0 002 @ 002 \t
0025700 \0 \0 021 241 \n @ 271 H 001 272 H 002 [ 001 274 K
0025720 002 275 A 276 g \0 \0 g \0 \0 M N i \v \0 \0
0025740 \t \0 \0 _ 024 001 _ 022 277 O 024 002 001 _ 020 277
0025760 g \0 \0 L O 020 g \0 \0 J O 022 032 032 h 032
0026000 \n \0 \0 032 032 _ 016 277 g \0 \0 g \0 \0 J L
0026020 M 032 032 032 g \0 \0 J o \0 \0 \0 J h 032 032
0026040 J \t \0 \0 \n \0 \0 o \0 \0 \0 g \0 \0 g \0
0026060 \0 O 016 h 032 032 o \0 \0 \0 032 032 h 032 032 032
0026100 032 032 h 032 032 032 h 032 032 g \0 \0 o \0 \0 \0
0026120 g \0 \0 g \0 \0 g \0 \0 g \0 \0 J h 032 032
0026140 o \0 \0 \0 g \0 \0 I h 032 032 h 032 032 032 032
0026160 h 032 032 032 h 032 032 032 g \0 \0 J h 032 032 h
0026200 032 032 032 032 020 \0 ( 1 0 5 X C L : P
0026220 A C K 1 0 2 C L : S Y M B O
0026240 L - P A C K A G E 6 9 \ A P
0026260 P E N D 2 3 7 \ M V L I S T
0026300 3 4 P A R S E - B O D Y 4
0026320 R E M O V E - C O M M E N T S
0026340 ) \r ( 1 8 9 Q U O T E 1 6 9
0026360 Q U O T E 1 5 8 Q U O T E
0026400 1 5 5 \ D E F I N E - T Y P
0026420 E - S A V E - D E F N 1 5 2
0026440 F I L E P K G F L G 1 4 9 A
0026460 N D 1 4 2 C L : E V A L - W
0026500 H E N 1 1 5 Q U O T E 1 1
0026520 2 C O N S 8 9 D E F O P T
0026540 I M I Z E R 8 0 C L : D E F
0026560 U N 7 7 P R O G N 5 9 C
0026600 L : B L O C K 5 3 C L : L A
0026620 M B D A 2 8 W I T H O U T -
0026640 F I L E P K G 2 5 P R O G N
0026660 ) \r ( 1 6 6 ( Q U O T E F
0026700 U N C T I O N S ) 1 4 6 ( C
0026720 L : E V A L ) 1 2 4 ( A R G
0026740 S ) 1 0 9 ( & R E S T A R
0026760 G S ) 9 4 " d e f i n l i n
0027000 e - " ) \r ( S E T F - M A C R O
0027020 - F U N C T I O N ( Q U O T E
0027040 D E F I N L I N E ) ( Q U O
0027060 T E e x p a n d - D E F I N L
0027100 I N E ) ) \r ( A D D T O V A R
0027120 P R E T T Y P R I N T M A C R O
0027140 S ( D E F I N L I N E . P
0027160 P R I N T - D E F I N E R ) ) \r
0027200 ( L E T * ( ( A 1 3 1 1 ( Q
0027220 U O T E D E F M A C R O ) )
0027240 ( A 1 3 1 2 ( Q U O T E D E
0027260 F I N E R - F O R ) ) ( A 1 3
0027300 1 4 ( Q U O T E F U N C T I
0027320 O N S ) ) ) ( P U T P R O P
0027340 A 1 3 1 1 \r A 1 3 1 2 A 1 3
0027360 1 4 ) ) \r ( L E T * ( ( A 1 3
0027400 1 5 ( Q U O T E F U N C T I
0027420 O N S ) ) ( A 1 3 1 6 ( Q U
0027440 O T E D E F I N E D - B Y ) )
0027460 ( A 1 3 1 8 ( C L : A D J O
0027500 I N ( Q U O T E D E F M A C
0027520 R O ) ( G E T \r A 1 3 1 5
0027540 A 1 3 1 6 ) ) ) ) ( P U T P R
0027560 O P A 1 3 1 5 A 1 3 1 6 A
0027600 1 3 1 8 ) ) \r C L : : e x p a n
0027620 d - D E F M A C R O D 1 \r ( L
0027640 ( 1 $ $ M A C R O - E N V I
0027660 R O N M E N T 0 $ $ M A C R
0027700 O - F O R M ) ) 001 037 \f \0 \0 002 @
0027720 002 \t \0 \0 021 261 \v @ 271 H 001 272 H 002 [ 001
0027740 274 K 002 275 g \0 \0 g \0 \0 J 225 J 004 l 004
0027760 360 250 o \0 \0 \0 J \n \0 \0 277 o \0 \0 \0 J
0030000 h 032 032 J \t \0 \0 \n \0 \0 _ 026 277 L g \0
0030020 \0 M J h g \0 \0 g \0 \0 \r \a \0 \0 \t \0
0030040 \0 _ 024 001 _ 022 277 O 024 002 _ 020 001 _ 016 277
0030060 O 020 002 001 276 g \0 \0 o \0 \0 \0 g \0 \0 g
0030100 \0 \0 g \0 \0 O 026 h 032 032 h 032 032 g \0 \0
0030120 g \0 \0 o \0 \0 \0 O 016 g \0 \0 J O 022 h
0030140 032 032 032 h 032 \n \0 \0 032 032 h 032 032 h 032 032
0030160 032 g \0 \0 g \0 \0 g \0 \0 J h 032 032 h 032
0030200 032 g \0 \0 O 026 h 032 032 h 032 032 032 N 264 034
0030220 g \0 \0 g \0 \0 g \0 \0 J h 032 032 o \0 \0
0030240 \0 032 032 N h 032 032 032 h 032 032 032 032 032 h 032
0030260 032 g \0 \0 o \0 \0 \0 g \0 \0 g \0 \0 g \0
0030300 \0 g \0 \0 J h 032 032 o \0 \0 \0 g \0 \0 I
0030320 h 032 032 h 032 032 032 032 h 032 032 032 h 032 032 032
0030340 g \0 \0 J h 032 032 h 032 032 032 032 020 \0 ( 1
0030360 5 2 \ A P P E N D 2 8 1 \
0030400 M V L I S T 7 8 P A R S E -
0030420 D E F M A C R O 5 8 X C L :
0030440 P A C K 5 5 C L : S Y M B O
0030460 L - P A C K A G E 4 2 C L :
0030500 E R R O R 4 R E M O V E - C
0030520 O M M E N T S ) \r ( 2 7 5 Q U
0030540 O T E 2 5 5 Q U O T E 2 4
0030560 4 Q U O T E 2 4 1 \ D E F
0030600 I N E - T Y P E - S A V E - D E
0030620 F N 2 3 8 F I L E P K G F L
0030640 G 2 3 5 A N D 2 2 8 C L
0030660 : E V A L - W H E N 2 0 1 Q
0030700 U O T E 1 9 8 C L : D O C U
0030720 M E N T A T I O N 1 9 5 C L
0030740 : S E T F 1 8 0 Q U O T E
0030760 1 7 0 Q U O T E 1 6 7 C L
0031000 : M A C R O - F U N C T I O N
0031020 1 6 4 C L : S E T F 1 4 0
0031040 C L : B L O C K 1 3 1 C L :
0031060 L A M B D A 1 2 8 F U N C T
0031100 I O N 1 1 7 Q U O T E 1 1
0031120 4 C L : S Y M B O L - F U N C
0031140 T I O N 1 1 1 C L : S E T F
0031160 1 0 4 C L : E V A L - W H E
0031200 N 7 4 $ $ M A C R O - E N V
0031220 I R O N M E N T 7 1 : E N V
0031240 I R O N M E N T 6 5 $ $ M A
0031260 C R O - F O R M 2 6 W I T H
0031300 O U T - F I L E P K G 2 3 P
0031320 R O G N ) \r ( 2 5 2 ( Q U O
0031340 T E F U N C T I O N S ) 2 3
0031360 2 ( C L : E V A L ) 2 0 9
0031400 ( ( Q U O T E C L : F U N C T
0031420 I O N ) ) 1 3 5 ( $ $ M A C
0031440 R O - F O R M $ $ M A C R O -
0031460 E N V I R O N M E N T ) \r 1 0
0031500 8 ( C L : E V A L C L : C O
0031520 M P I L E C L : L O A D ) 4
0031540 7 " e x p a n d - " 3 8 "
0031560 I l l e g a l n a m e u s e
0031600 d i n D E F M A C R O : ~
0031620 S " ) \r ( S E T F - M A C R O -
0031640 F U N C T I O N ( Q U O T E
0031660 D E F M A C R O ) ( Q U O T E
0031700 C L : : e x p a n d - D E F M
0031720 A C R O ) ) \r ( A D D T O V A R
0031740 P R E T T Y P R I N T M A C R
0031760 O S ( D E F M A C R O . P
0032000 P R I N T - D E F I N E R ) ) \r
0032020 ( L E T * ( ( A 1 3 2 2 ( Q
0032040 U O T E C L : D E F V A R ) )
0032060 ( A 1 3 2 3 ( Q U O T E D
0032100 E F I N E R - F O R ) ) ( A 1
0032120 3 2 5 ( Q U O T E V A R I A
0032140 B L E S ) ) ) ( P U T P R O P
0032160 A 1 3 2 2 \r A 1 3 2 3 A 1
0032200 3 2 5 ) ) \r ( L E T * ( ( A 1
0032220 3 2 6 ( Q U O T E V A R I A
0032240 B L E S ) ) ( A 1 3 2 7 ( Q
0032260 U O T E D E F I N E D - B Y )
0032300 ) ( A 1 3 2 9 ( C L : A D J
0032320 O I N ( Q U O T E C L : D E
0032340 F V A R ) ( G E T \r A 1 3 2
0032360 6 A 1 3 2 7 ) ) ) ) ( P U T
0032400 P R O P A 1 3 2 6 A 1 3 2 7
0032420 A 1 3 2 9 ) ) \r C L : : e x p
0032440 a n d - D E F V A R D 1 \r ( L
0032460 ( 1 $ $ M A C R O - E N V I
0032500 R O N M E N T 0 $ $ M A C R
0032520 O - F O R M ) ) \0 302 \a \0 \0 002 @
0032540 002 \t \0 \0 021 a 006 @ 271 H 001 272 H 002 [ d
0032560 220 001 274 K h 360 h 360 275 K 002 264 005 K 002 001
0032600 276 g \0 \0 g \0 \0 g \0 \0 g \0 \0 g \0 \0
0032620 g \0 \0 J h 032 032 h 032 032 h 032 032 M 264 !
0032640 g \0 \0 g \0 \0 g \0 \0 J h 032 032 h 032 032
0032660 g \0 \0 J L h 032 032 032 h 032 032 032 h 032 N
0032700 264 034 g \0 \0 g \0 \0 g \0 \0 J h 032 032 o
0032720 \0 \0 \0 032 032 N h 032 032 032 h 032 \n \0 \0 032
0032740 032 h 032 032 g \0 \0 o \0 \0 \0 g \0 \0 g \0
0032760 \0 g \0 \0 g \0 \0 J h 032 032 o \0 \0 \0 g
0033000 \0 \0 I h 032 032 h 032 032 032 032 h 032 032 032 h
0033020 032 032 032 g \0 \0 J h 032 032 h 032 032 032 032 020
0033040 \0 ( 1 2 7 \ A P P E N D 2 4
0033060 R E M O V E - C O M M E N T S
0033100 ) \r ( 1 8 2 Q U O T E 1 6 2
0033120 Q U O T E 1 5 1 Q U O T E
0033140 1 4 8 \ D E F I N E - T Y P
0033160 E - S A V E - D E F N 1 4 5
0033200 F I L E P K G F L G 1 4 2 A
0033220 N D 1 3 5 C L : E V A L - W
0033240 H E N 1 0 7 Q U O T E 1 0
0033260 4 C L : D O C U M E N T A T I
0033300 O N 1 0 1 C L : S E T F 8
0033320 3 S E T Q 7 3 Q U O T E
0033340 7 0 B O U N D P 6 7 O R
0033360 5 1 C L : S P E C I A L 4 8
0033400 Q U O T E 4 5 C L : P R O
0033420 C L A I M 4 2 P R O G N 3
0033440 9 W I T H O U T - F I L E P K
0033460 G 3 6 P R O G N ) \r ( 1 5
0033500 9 ( Q U O T E V A R I A B L
0033520 E S ) 1 3 9 ( C L : E V A L
0033540 ) 1 1 5 ( ( Q U O T E V A
0033560 R I A B L E ) ) ) \r ( S E T F -
0033600 M A C R O - F U N C T I O N (
0033620 Q U O T E C L : D E F V A R )
0033640 ( Q U O T E C L : : e x p a
0033660 n d - D E F V A R ) ) \r ( A D D
0033700 T O V A R P R E T T Y P R I N
0033720 T M A C R O S ( C L : D E F V
0033740 A R . P P R I N T - D E F I
0033760 N E R ) ) \r ( L E T * ( ( A 1
0034000 3 3 4 ( Q U O T E C L : D E
0034020 F P A R A M E T E R ) ) ( A 1
0034040 3 3 5 ( Q U O T E D E F I N
0034060 E R - F O R ) ) ( A 1 3 3 7
0034100 ( Q U O T E V A R I A B L E S
0034120 ) ) ) ( P U T P R O P \r A 1
0034140 3 3 4 A 1 3 3 5 A 1 3 3 7 )
0034160 ) \r ( L E T * ( ( A 1 3 3 8
0034200 ( Q U O T E V A R I A B L E S
0034220 ) ) ( A 1 3 3 9 ( Q U O T E
0034240 D E F I N E D - B Y ) ) ( A
0034260 1 3 4 1 ( C L : A D J O I N
0034300 ( Q U O T E C L : D E F P A R
0034320 A M E T E R ) \r ( G E T A 1
0034340 3 3 8 A 1 3 3 9 ) ) ) ) ( P
0034360 U T P R O P A 1 3 3 8 A 1 3
0034400 3 9 A 1 3 4 1 ) ) \r C L : : e
0034420 x p a n d - D E F P A R A M E T
0034440 E R D 1 \r ( L ( 1 $ $ M A
0034460 C R O - E N V I R O N M E N T
0034500 0 $ $ M A C R O - F O R M ) )
0034520 \0 235 006 \0 \0 002 @ 002 \t \0 \0 021 Q 005 @
0034540 271 H 001 272 H 002 [ 001 274 K 002 d 220 001 275 g
0034560 \0 \0 g \0 \0 g \0 \0 g \0 \0 g \0 \0 g \0
0034600 \0 J h 032 032 h 032 032 h 032 032 g \0 \0 J L
0034620 h 032 032 032 M 264 034 g \0 \0 g \0 \0 g \0 \0
0034640 J h 032 032 o \0 \0 \0 032 032 M h 032 032 032 h
0034660 032 032 032 032 h 032 032 g \0 \0 o \0 \0 \0 g \0
0034700 \0 g \0 \0 g \0 \0 g \0 \0 J h 032 032 o \0
0034720 \0 \0 g \0 \0 I h 032 032 h 032 032 032 032 h 032
0034740 032 032 h 032 032 032 g \0 \0 J h 032 032 h 032 032
0034760 032 032 020 \0 ( 4 R E M O V E - C O
0035000 M M E N T S ) \r ( 1 4 5 Q U O
0035020 T E 1 2 5 Q U O T E 1 1 4
0035040 Q U O T E 1 1 1 \ D E F I
0035060 N E - T Y P E - S A V E - D E F
0035100 N 1 0 8 F I L E P K G F L G
0035120 1 0 5 A N D 9 8 C L : E
0035140 V A L - W H E N 7 2 Q U O T
0035160 E 6 9 C L : D O C U M E N T
0035200 A T I O N 6 6 C L : S E T F
0035220 5 4 S E T Q 4 1 C L : S
0035240 P E C I A L 3 8 Q U O T E
0035260 3 5 C L : P R O C L A I M 3
0035300 2 P R O G N 2 9 W I T H O
0035320 U T - F I L E P K G 2 6 P R
0035340 O G N ) \r ( 1 2 2 ( Q U O T
0035360 E V A R I A B L E S ) 1 0 2
0035400 ( C L : E V A L ) 8 0 ( (
0035420 Q U O T E V A R I A B L E ) )
0035440 ) \r ( S E T F - M A C R O - F U
0035460 N C T I O N ( Q U O T E C L
0035500 : D E F P A R A M E T E R ) (
0035520 Q U O T E C L : : e x p a n d
0035540 - D E F P A R A M E T E R ) ) \r
0035560 ( A D D T O V A R P R E T T Y
0035600 P R I N T M A C R O S ( C L :
0035620 D E F P A R A M E T E R . P
0035640 P R I N T - D E F I N E R ) ) \r
0035660 ( L E T * ( ( A 1 3 4 5 ( Q
0035700 U O T E C L : D E F C O N S T
0035720 A N T ) ) ( A 1 3 4 6 ( Q U
0035740 O T E D E F I N E R - F O R )
0035760 ) ( A 1 3 4 8 ( Q U O T E
0036000 V A R I A B L E S ) ) ) ( P U
0036020 T P R O P \r A 1 3 4 5 A 1 3
0036040 4 6 A 1 3 4 8 ) ) \r ( L E T *
0036060 ( ( A 1 3 4 9 ( Q U O T E
0036100 V A R I A B L E S ) ) ( A 1 3
0036120 5 0 ( Q U O T E D E F I N E
0036140 D - B Y ) ) ( A 1 3 5 2 ( C
0036160 L : A D J O I N ( Q U O T E
0036200 C L : D E F C O N S T A N T )
0036220 ( \r G E T A 1 3 4 9 A 1 3 5
0036240 0 ) ) ) ) ( P U T P R O P A
0036260 1 3 4 9 A 1 3 5 0 A 1 3 5 2
0036300 ) ) \r C L : : e x p a n d - D E
0036320 F C O N S T A N T D 1 \r ( L
0036340 ( 1 $ $ M A C R O - E N V I R
0036360 O N M E N T 0 $ $ M A C R O
0036400 - F O R M ) ) \0 250 006 \0 \0 002 @ 002
0036420 \t \0 \0 021 Q 005 @ 271 H 001 272 H 002 [ 001 274
0036440 K 002 d 220 001 275 g \0 \0 g \0 \0 g \0 \0 g
0036460 \0 \0 J L h 032 032 032 g \0 \0 g \0 \0 J h
0036500 032 032 g \0 \0 g \0 \0 J h 032 032 h 032 032 o
0036520 \0 \0 \0 032 032 032 M 264 034 g \0 \0 g \0 \0 g
0036540 \0 \0 J h 032 032 o \0 \0 \0 032 032 M h 032 032
0036560 032 h 032 032 032 032 h 032 032 g \0 \0 o \0 \0 \0
0036600 g \0 \0 g \0 \0 g \0 \0 g \0 \0 J h 032 032
0036620 o \0 \0 \0 g \0 \0 I h 032 032 h 032 032 032 032
0036640 h 032 032 032 h 032 032 032 g \0 \0 J h 032 032 h
0036660 032 032 032 032 020 \0 ( 4 R E M O V E -
0036700 C O M M E N T S ) \r ( 1 5 6 Q
0036720 U O T E 1 3 6 Q U O T E 1
0036740 2 5 Q U O T E 1 2 2 \ D E
0036760 F I N E - T Y P E - S A V E - D
0037000 E F N 1 1 9 F I L E P K G F
0037020 L G 1 1 6 A N D 1 0 9 C
0037040 L : E V A L - W H E N 8 3 Q
0037060 U O T E 8 0 C L : D O C U M
0037100 E N T A T I O N 7 7 C L : S
0037120 E T F 5 7 C O N S T A N T
0037140 5 4 Q U O T E 4 7 Q U O T
0037160 E 4 4 P U T H A S H 3 5
0037200 S E T Q 3 2 P R O G N 2 9
0037220 W I T H O U T - F I L E P K G
0037240 2 6 P R O G N ) \r ( 1 3 3
0037260 ( Q U O T E V A R I A B L E
0037300 S ) 1 1 3 ( C L : E V A L )
0037320 9 1 ( ( Q U O T E V A R I
0037340 A B L E ) ) 6 8 ( C O M P V
0037360 A R M A C R O H A S H ) ) \r ( S
0037400 E T F - M A C R O - F U N C T I
0037420 O N ( Q U O T E C L : D E F
0037440 C O N S T A N T ) ( Q U O T E
0037460 C L : : e x p a n d - D E F C
0037500 O N S T A N T ) ) \r ( A D D T O
0037520 V A R P R E T T Y P R I N T M
0037540 A C R O S ( C L : D E F C O N
0037560 S T A N T . P P R I N T - D
0037600 E F I N E R ) ) \r ( L E T * (
0037620 ( A 1 3 5 6 ( Q U O T E D E
0037640 F G L O B A L V A R ) ) ( A 1
0037660 3 5 7 ( Q U O T E D E F I N
0037700 E R - F O R ) ) ( A 1 3 5 9
0037720 ( Q U O T E V A R I A B L E S
0037740 ) ) ) ( P U T P R O P \r A 1
0037760 3 5 6 A 1 3 5 7 A 1 3 5 9 )
0040000 ) \r ( L E T * ( ( A 1 3 6 0
0040020 ( Q U O T E V A R I A B L E S
0040040 ) ) ( A 1 3 6 1 ( Q U O T E
0040060 D E F I N E D - B Y ) ) ( A
0040100 1 3 6 3 ( C L : A D J O I N
0040120 ( Q U O T E D E F G L O B A L
0040140 V A R ) ( \r G E T A 1 3 6 0
0040160 A 1 3 6 1 ) ) ) ) ( P U T P
0040200 R O P A 1 3 6 0 A 1 3 6 1
0040220 A 1 3 6 3 ) ) \r e x p a n d - D
0040240 E F G L O B A L V A R D 1 \r (
0040260 L ( 1 $ $ M A C R O - E N V
0040300 I R O N M E N T 0 $ $ M A C
0040320 R O - F O R M ) ) \0 302 \a \0 \0 002
0040340 @ 002 \t \0 \0 021 a 006 @ 271 H 001 272 H 002 [
0040360 d 220 001 274 K h 360 h 360 275 K 002 264 005 K 002
0040400 001 276 g \0 \0 g \0 \0 g \0 \0 g \0 \0 g \0
0040420 \0 g \0 \0 J h 032 032 h 032 032 h 032 032 M 264
0040440 ! g \0 \0 g \0 \0 g \0 \0 J h 032 032 h 032
0040460 032 g \0 \0 J L h 032 032 032 h 032 032 032 h 032
0040500 N 264 034 g \0 \0 g \0 \0 g \0 \0 J h 032 032
0040520 o \0 \0 \0 032 032 N h 032 032 032 h 032 \n \0 \0
0040540 032 032 h 032 032 g \0 \0 o \0 \0 \0 g \0 \0 g
0040560 \0 \0 g \0 \0 g \0 \0 J h 032 032 o \0 \0 \0
0040600 g \0 \0 I h 032 032 h 032 032 032 032 h 032 032 032
0040620 h 032 032 032 g \0 \0 J h 032 032 h 032 032 032 032
0040640 020 \0 ( 1 2 7 \ A P P E N D 2
0040660 4 R E M O V E - C O M M E N T
0040700 S ) \r ( 1 8 2 Q U O T E 1 6
0040720 2 Q U O T E 1 5 1 Q U O T
0040740 E 1 4 8 \ D E F I N E - T Y
0040760 P E - S A V E - D E F N 1 4 5
0041000 F I L E P K G F L G 1 4 2
0041020 A N D 1 3 5 C L : E V A L -
0041040 W H E N 1 0 7 Q U O T E 1
0041060 0 4 C L : D O C U M E N T A T
0041100 I O N 1 0 1 C L : S E T F
0041120 8 3 S E T Q 7 3 Q U O T E
0041140 7 0 B O U N D P 6 7 O R
0041160 5 1 G L O B A L 4 8 Q U
0041200 O T E 4 5 C L : P R O C L A
0041220 I M 4 2 P R O G N 3 9 W
0041240 I T H O U T - F I L E P K G 3
0041260 6 P R O G N ) \r ( 1 5 9 (
0041300 Q U O T E V A R I A B L E S )
0041320 1 3 9 ( C L : E V A L ) 1
0041340 1 5 ( ( Q U O T E V A R I A
0041360 B L E ) ) ) \r ( S E T F - M A C
0041400 R O - F U N C T I O N ( Q U O
0041420 T E D E F G L O B A L V A R )
0041440 ( Q U O T E e x p a n d - D
0041460 E F G L O B A L V A R ) ) \r ( A
0041500 D D T O V A R P R E T T Y P R
0041520 I N T M A C R O S ( D E F G L
0041540 O B A L V A R . P P R I N T
0041560 - D E F I N E R ) ) \r ( L E T *
0041600 ( ( A 1 3 6 6 ( Q U O T E
0041620 D E F G L O B A L P A R A M E T
0041640 E R ) ) ( A 1 3 6 7 ( Q U O
0041660 T E D E F I N E R - F O R ) )
0041700 ( A 1 3 6 9 ( Q U O T E V
0041720 A R I A B L E S ) ) ) ( \r P U
0041740 T P R O P A 1 3 6 6 A 1 3 6
0041760 7 A 1 3 6 9 ) ) \r ( L E T *
0042000 ( ( A 1 3 7 0 ( Q U O T E V
0042020 A R I A B L E S ) ) ( A 1 3 7
0042040 1 ( Q U O T E D E F I N E D
0042060 - B Y ) ) ( A 1 3 7 3 ( C L
0042100 : A D J O I N ( Q U O T E \r
0042120 D E F G L O B A L P A R A M E T
0042140 E R ) ( G E T A 1 3 7 0 A
0042160 1 3 7 1 ) ) ) ) ( P U T P R O
0042200 P A 1 3 7 0 A 1 3 7 1 A 1
0042220 3 7 3 ) ) \r e x p a n d - D E F
0042240 G L O B A L P A R A M E T E R
0042260 D 1 \r ( L ( 1 $ $ M A C R O
0042300 - E N V I R O N M E N T 0 $
0042320 $ M A C R O - F O R M ) ) \0 235
0042340 006 \0 \0 002 @ 002 \t \0 \0 021 Q 005 @ 271 H 001
0042360 272 H 002 [ 001 274 K 002 d 220 001 275 g \0 \0 g
0042400 \0 \0 g \0 \0 g \0 \0 g \0 \0 g \0 \0 J h
0042420 032 032 h 032 032 h 032 032 g \0 \0 J L h 032 032
0042440 032 M 264 034 g \0 \0 g \0 \0 g \0 \0 J h 032
0042460 032 o \0 \0 \0 032 032 M h 032 032 032 h 032 032 032
0042500 032 h 032 032 g \0 \0 o \0 \0 \0 g \0 \0 g \0
0042520 \0 g \0 \0 g \0 \0 J h 032 032 o \0 \0 \0 g
0042540 \0 \0 I h 032 032 h 032 032 032 032 h 032 032 032 h
0042560 032 032 032 g \0 \0 J h 032 032 h 032 032 032 032 020
0042600 \0 ( 4 R E M O V E - C O M M E
0042620 N T S ) \r ( 1 4 5 Q U O T E
0042640 1 2 5 Q U O T E 1 1 4 Q U
0042660 O T E 1 1 1 \ D E F I N E -
0042700 T Y P E - S A V E - D E F N 1
0042720 0 8 F I L E P K G F L G 1 0
0042740 5 A N D 9 8 C L : E V A L
0042760 - W H E N 7 2 Q U O T E 6
0043000 9 C L : D O C U M E N T A T I
0043020 O N 6 6 C L : S E T F 5 4
0043040 S E T Q 4 1 G L O B A L
0043060 3 8 Q U O T E 3 5 C L : P
0043100 R O C L A I M 3 2 P R O G N
0043120 2 9 W I T H O U T - F I L E
0043140 P K G 2 6 P R O G N ) \r (
0043160 1 2 2 ( Q U O T E V A R I A
0043200 B L E S ) 1 0 2 ( C L : E V
0043220 A L ) 8 0 ( ( Q U O T E V
0043240 A R I A B L E ) ) ) \r ( S E T F
0043260 - M A C R O - F U N C T I O N
0043300 ( Q U O T E D E F G L O B A L
0043320 P A R A M E T E R ) ( Q U O T
0043340 E e x p a n d - D E F G L O B
0043360 A L P A R A M E T E R ) ) \r ( A
0043400 D D T O V A R P R E T T Y P R
0043420 I N T M A C R O S ( D E F G L
0043440 O B A L P A R A M E T E R .
0043460 P P R I N T - D E F I N E R ) )
0043500 \r ( P U T P R O P S M A C R O
0043520 - F N P R O P T Y P E F U N
0043540 C T I O N S ) \r ( P U T P R O P
0043560 S C M L D E F F E R F I L E
0043600 T Y P E C L : C O M P I L E -
0043620 F I L E ) \r ( P U T P R O P S
0043640 C M L D E F F E R C O P Y R I
0043660 G H T ( " X e r o x C o r p
0043700 o r a t i o n " 1 9 8 6 1 9
0043720 0 0 ) ) \r N I L \r
0043731