$ od -c -N 50000 [eris]<LispCore>SOURCES>CMLDEFFER.DCOM!31
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 " X C
0000040 L " 247 P A C K A G E " I N T
0000060 E R L I S P " ) \r ( F I L E C R
0000100 E A T E D " 3 0 - O c t - 8 6
0000120 0 2 : 5 7 : 1 8 " ( " c o m
0000140 p i l e d o n " { E R I S
0000160 } < L I S P C O R E > S O U R C
0000200 E S > C M L D E F F E R . \ ; 3
0000220 2 ) \r " 2 9 - O c t - 8 6 0
0000240 1 : 0 3 : 5 8 " " C O M P I L
0000260 E - F I L E d " | i n | " X
0000300 e r o x L i s p 2 9 - O c t
0000320 - 8 6 . . . " | d a t e d |
0000340 " 2 9 - O c t - 8 6 0 1 : 5
0000360 5 : 5 2 " ) \r ( F I L E C R E A
0000400 T E D " 3 0 - O c t - 8 6 0
0000420 2 : 5 6 : 0 7 " { E R I S } <
0000440 L I S P C O R E > S O U R C E S
0000460 > C M L D E F F E R . \ ; 3 2
0000500 2 7 6 5 1 | c h a n g e s |
0000520 | t o : | ( \r F U N C T I O N
0000540 S \ \ D E F I N E - T Y P E -
0000560 S A V E - D E F N ) | p r e v
0000600 i o u s | | d a t e : | " 3
0000620 0 - O c t - 8 6 0 1 : 0 7 : 4
0000640 7 " \r { E R I S } < L I S P C
0000660 O R E > S O U R C E S > C M L D
0000700 E F F E R . \ ; 3 1 ) \r ( R P A
0000720 Q Q C M L D E F F E R C O M S
0000740 ( ( * | ; ; ; | \r " D E F
0000760 - D E F I N E - T Y P E a n d
0001000 D E F D E F I N E R - - Y
0001020 o u r O n e - S t o p P r o
0001040 v i d e r s o f C u s t o m
0001060 i z e d F i l e M a n a g e
0001100 r F a c i l i t i e s . " )
0001120 ( * \r | ; ; | \r " B E V E
0001140 R Y C A R E F U L C H A N G
0001160 I N G A N Y T H I N G I N
0001200 T H I S F I L E ! ! ! I t
0001220 i s h e a v i l y s e l f
0001240 - r e f e r e n t i a l a n d
0001260 t h i c k w i t h b o o t
0001300 s t r a p p i n g p r o b l e
0001320 m s . A l l b u t t h e
0001340 m o s t t r i v i a l c h
0001360 a n g e s ( a n d s o m e
0001400 o f t h o s e ) a r e v e
0001420 r y t r i c k y t o m a k
0001440 e w i t h o u t b l o w i n
0001460 g y o u r s e l f o u t o
0001500 f t h e w a t e r . . .
0001520 Y o u h a v e b e e n w a
0001540 r n e d . " \r ) ( I N I T V A
0001560 R S ( F I L E P K G F L G N
0001600 I L ) ) ( * | ; ; | " T h
0001620 e d e f i n e r d a t a s
0001640 t r u c t u r e s a n d m a
0001660 n i p u l a t i o n f u n c t
0001700 i o n s " ) ( \r V A R I A B L
0001720 E S * D E F I N I T I O N - H
0001740 A S H - T A B L E * ) ( F U N
0001760 C T I O N S P P R I N T - D E
0002000 F I N E R R E M O V E - C O M
0002020 M E N T S ) ( V A R I A B L E
0002040 S \r * R E M O V E - I N T E R
0002060 L I S P - C O M M E N T S * )
0002100 ( F U N C T I O N S \ \ D E F
0002120 I N E - T Y P E - D E L D E F
0002140 \ \ D E F I N E - T Y P E - G E
0002160 T D E F \r \ \ D E F I N E - T
0002200 Y P E - S A V E - D E F N ) (
0002220 * | ; ; | " T h e g r o u
0002240 n d w o r k f o r b o o t s
0002260 t r a p p i n g " ) ( D E F I
0002300 N E - T Y P E S D E F I N E -
0002320 T Y P E S \r F U N C T I O N S
0002340 V A R I A B L E S ) ( * |
0002360 ; ; | " P r o t o t y p e d
0002400 e f i n i t i o n f a c i l i
0002420 t y " ) ( V A R I A B L E S
0002440 X C L : : * D E F I N I T I O N
0002460 - P R O T O T Y P E S * ) \r (
0002500 F U N C T I O N S X C L : : A
0002520 D D - P R O T O T Y P E - F N
0002540 X C L : : P R O T O T Y P E - D
0002560 E F N - T Y P E S X C L : : P
0002600 R O T O T Y P E - D E F I N E R
0002620 S - F O R - T Y P E \r X C L :
0002640 : M A K E - P R O T O T Y P E )
0002660 ( * | ; ; | " D e f D e f
0002700 i n e r i t s e l f a n d
0002720 f r i e n d s " ) ( F U N C T
0002740 I O N S S I : : E X P A N S I
0002760 O N - F U N C T I O N \r S I :
0003000 : M A C R O - F U N C A L L )
0003020 ( F U N C T I O N S D E F D E
0003040 F I N E R \ \ D E L E T E - D
0003060 E F I N E R D E F - D E F I N
0003100 E - T Y P E W I T H O U T - F
0003120 I L E P K G ) ( * | ; ; |
0003140 \r " T h e m o s t c o m m o
0003160 n l y - u s e d d e f i n e r
0003200 s " ) ( F U N C T I O N S C
0003220 L : D E F U N D E F I N L I N
0003240 E D E F M A C R O ) ( F U N
0003260 C T I O N S C L : D E F V A R
0003300 \r C L : D E F P A R A M E T E
0003320 R C L : D E F C O N S T A N T
0003340 D E F G L O B A L V A R D E
0003360 F G L O B A L P A R A M E T E R
0003400 ) ( * | ; ; | \r " D o n '
0003420 t n o t e c h a n g e s t
0003440 o t h e s e p r o p e r t i
0003460 e s / v a r i a b l e s " ) (
0003500 P R O P P R O P T Y P E M A
0003520 C R O - F N U N D E F I N E R
0003540 S D E F I N E R - F O R \r D
0003560 E F I N E D - B Y ) ( * | ;
0003600 ; | " A r r a n g e f o r
0003620 t h e c o r r e c t c o m p
0003640 i l e r t o b e u s e d .
0003660 " ) ( P R O P F I L E T Y P
0003700 E C M L D E F F E R ) ) ) \r (
0003720 R P A Q ? F I L E P K G F L G
0003740 N I L ) \r ( C L : P R O C L A
0003760 I M ( Q U O T E ( G L O B A
0004000 L * D E F I N I T I O N - H A
0004020 S H - T A B L E * ) ) ) \r ( O R
0004040 ( B O U N D P ( Q U O T E
0004060 * D E F I N I T I O N - H A S H
0004100 - T A B L E * ) ) ( S E T Q
0004120 * D E F I N I T I O N - H A S H
0004140 - T A B L E * ( H A S H A R R
0004160 A Y 2 0 ) ) ) \r P P R I N T -
0004200 D E F I N E R D 1 \r ( L ( 0
0004220 D E F I N E - E X P R E S S I
0004240 O N ) P 3 \ # R P A R S
0004260 F 4 P R E T T Y C O M F O N
0004300 T F 5 D E F A U L T F O N
0004320 T F 6 C O M M E N T F L G
0004340 ) \0 370 004 003 \0 001 @ d 002 003 263 , 277 o
0004360 \0 \0 \0 \t \0 \0 277 @ 001 \t \0 \0 @ 002 237 o
0004400 \0 \0 \0 \t \0 \0 277 @ 002 i d \v \0 \0 277 o
0004420 \0 \0 \0 \t \0 \0 h 020 001 @ 002 b \0 001 @ 002
0004440 b \0 277 \b \0 \0 021 023 003 o \0 \0 \0 \t \0 \0
0004460 277 H \t \0 \0 277 k \t \0 \0 I 003 262 0 o \0
0004500 \0 \0 \t \0 \0 277 T \t \0 \0 277 I 001 \t \0 \0
0004520 277 U \t \0 \0 277 k \t \0 \0 277 I 002 i d d
0004540 \f \0 \0 277 o \0 \0 \0 \t \0 \0 215 T \t \0 \0
0004560 277 I \t \0 \0 277 U \t \0 \0 277 @ d 001 003 262
0004600 025 277 k \t \0 \0 277 @ 001 @ 002 b \0 277 i \n
0004620 \0 \0 277 @ 001 005 \a 251 @ d 001 003 001 V 360 262
0004640 026 277 k \t \0 \0 277 @ 001 @ 002 b \0 277 i d
0004660 \v \0 \0 277 @ i d \v \0 \0 253 \b \0 \0 277 J
0004700 \t \0 \0 277 l 003 200 k \t \0 \0 277 @ i d d
0004720 \f \0 \0 o \0 \0 \0 \t \0 \0 h \t \0 \0 020 \0
0004740 ( 2 4 5 T E R P R I 2 4 1
0004760 P R I N 1 2 3 4 P R I N T D
0005000 E F 2 2 6 S P A C E S 2 1
0005020 8 D S P X P O S I T I O N 2
0005040 1 3 T E R P R I 2 0 9 F I
0005060 T P 2 0 2 P R I N T D E F
0005100 1 8 9 S P A C E S 1 6 9 P
0005120 R I N T D E F 1 5 7 S P A C
0005140 E S 1 4 5 C H A N G E F O N
0005160 T 1 4 0 P R I N 2 1 3 5
0005200 C H A N G E F O N T 1 3 0 P
0005220 R I N 1 1 2 2 P R I N T D E
0005240 F 1 1 3 S P A C E S 1 0 8
0005260 C H A N G E F O N T 1 0 3
0005300 P R I N 2 9 7 C H A N G E F
0005320 O N T 9 2 P R I N 1 8 1
0005340 S P A C E S 7 6 P R I N 2
0005360 7 1 P R I N 1 6 1 D S P X
0005400 P O S I T I O N 4 5 P R I N
0005420 1 3 7 P R I N T D E F 2 9
0005440 P R I N 1 1 9 P R I N 2
0005460 1 3 P R I N 1 ) \r N I L \r (
0005500 2 3 8 " ) " 1 2 7 " ) "
0005520 8 9 " ( " 6 8 " ( " 4 2
0005540 " ) " 2 6 " . " 1 0
0005560 " ( " ) \r R E M O V E - C O M
0005600 M E N T S D 1 \r ( L ( 0 X
0005620 ) F 2 * R E M O V E - I N
0005640 T E R L I S P - C O M M E N T S
0005660 * ) \0 e 002 001 \0 001 @ 003 265 004 @ 020 001
0005700 001 g \0 \0 360 262 3 @ 001 002 001 d g \0 \0 360
0005720 253 d g \0 \0 360 245 d g \0 \0 360 222 277 i 201
0005740 277 h 263 1 R i 360 263 , R g \0 \0 360 230 o
0005760 \0 \0 \0 @ \n \0 \0 277 @ 001 \t \0 \0 @ 002 \t
0006000 \0 \0 021 002 001 H d @ 001 360 236 277 I @ 002 360
0006020 227 @ 020 @ 002 b \0 260 243 H I 032 020 \0 ( 7
0006040 2 R E M O V E - C O M M E N T
0006060 S 6 7 R E M O V E - C O M M
0006100 E N T S 6 1 C L : W A R N )
0006120 \r ( 5 1 : W A R N 3 3 | ;
0006140 ; ; | 2 7 | ; ; | 2 1 \
0006160 ; 1 0 * ) \r ( 5 7 " P o
0006200 s s i b l e c o m m e n t n
0006220 o t s t r i p p e d ~ S " )
0006240 \r ( C L : P R O C L A I M ( Q
0006260 U O T E ( C L : S P E C I A L
0006300 * R E M O V E - I N T E R L I
0006320 S P - C O M M E N T S * ) ) ) \r
0006340 ( O R ( B O U N D P ( Q U O
0006360 T E * R E M O V E - I N T E R
0006400 L I S P - C O M M E N T S * ) )
0006420 ( S E T Q * R E M O V E - I
0006440 N T E R L I S P - C O M M E N T
0006460 S * ( Q U O T E : W A R N )
0006500 ) ) \r ( L E T * ( ( A 0 2 7 1
0006520 ( Q U O T E * R E M O V E -
0006540 I N T E R L I S P - C O M M E N
0006560 T S * ) ) ( A 0 2 7 2 ( Q U
0006600 O T E C L : : V A R I A B L E
0006620 ) ) ( A 0 2 7 3 \r " E i t h
0006640 e r N I L ( d o n ' t ) T
0006660 ( a l w a y s d o ) o r
0006700 : W A R N ( d o n ' t a n d
0006720 w a r n ) " ) ) ( S E T - D
0006740 O C U M E N T A T I O N A 0 2
0006760 7 1 A 0 2 7 2 A 0 2 7 3 ) )
0007000 \r \ \ D E F I N E - T Y P E - D
0007020 E L D E F D 1 \r ( L ( 1 T
0007040 Y P E 0 N A M E ) ) \0 + 002
0007060 \0 \0 002 A ` \0 \0 \n \0 \0 021 021 001 H 225 @
0007100 H \n \0 \0 277 A 301 002 311 \0 g \0 \0 ' 210 d
0007120 001 271 @ k I 016 277 002 003 265 366 @ 020 \0 ( 1
0007140 6 R E M H A S H 6 C L : G
0007160 E T H A S H ) \r ( 2 5 U N D E
0007200 F I N E R S 3 * D E F I N I
0007220 T I O N - H A S H - T A B L E *
0007240 ) \r ( ) \r \ \ D E F I N E - T Y
0007260 P E - G E T D E F D 1 \r ( L
0007300 ( 2 O P T I O N S 1 T Y P
0007320 E 0 N A M E ) ) \0 * 002 \0 \0
0007340 003 A ` \0 \0 \n \0 \0 021 021 001 H 264 \a @ H
0007360 \n \0 \0 271 B g \0 \0 360 250 B 003 232 g \0 \0
0007400 B 034 224 I \t \0 \0 020 I 020 \0 ( 3 7 C
0007420 L : C O P Y - T R E E 1 7 C
0007440 L : G E T H A S H 6 C L : G
0007460 E T H A S H ) \r ( 3 0 E D I T
0007500 2 2 E D I T 3 * D E F I
0007520 N I T I O N - H A S H - T A B L
0007540 E * ) \r ( ) \r \ \ D E F I N E -
0007560 T Y P E - S A V E - D E F N D
0007600 1 \r ( L ( 2 D E F I N I T I
0007620 O N 1 T Y P E 0 N A M E
0007640 ) F 8 D F N F L G F 9
0007660 * T E R M I N A L - I O * )
0007700 \0 { \b 002 \0 003 A ` \0 \0 \n \0 \0 021 q \a
0007720 H 263 - o \0 \0 \0 A \n \0 \0 277 A 273 ` \0
0007740 \0 272 g \0 \0 g \0 \0 g \0 \0 l 2 g \0 \0
0007760 l 2 \r 006 \0 \0 271 K J I \v \0 \0 270 @ H
0010000 \n \0 \0 274 B L \n \0 \0 263 5 L 262 023 W 020
0010020 i 360 253 W 022 o \0 \0 \0 A @ \f \0 \0 277 @
0010040 _ 016 277 H 276 B 275 O 016 N M \v \0 \0 277 @
0010060 A L 223 g \0 \0 202 g \0 \0 \v \0 \0 020 h 020
0010100 \0 ( 1 1 8 M A R K A S C H A N
0010120 G E D 1 0 3 C L : : P U T H
0010140 A S H 8 7 F O R M A T 6 6
0010160 C L : E Q U A L 6 0 C L :
0010200 G E T H A S H 5 4 C L : : P
0010220 U T H A S H 4 7 C L : M A K
0010240 E - H A S H - T A B L E 2 0
0010260 C L : W A R N 6 C L : G E T
0010300 H A S H ) \r ( 1 1 5 D E F I N
0010320 E D 1 1 1 C H A N G E D 4
0010340 1 : R E H A S H - S I Z E 3
0010360 6 : S I Z E 3 3 C L : E Q
0010400 U A L 3 0 : T E S T 2 6
0010420 * D E F I N I T I O N - H A S H
0010440 - T A B L E * 3 * D E F I N
0010460 I T I O N - H A S H - T A B L E
0010500 * ) \r ( 8 2 " ~ & N e w ~
0010520 A d e f i n i t i o n f o r
0010540 ~ S " 1 6 " C o u l d n '
0010560 t f i n d a h a s h - t a
0010600 b l e f o r ~ S d e f i n
0010620 i t i o n s . ~ % O n e w i l
0010640 l b e c r e a t e d . " ) \r
0010660 ( L E T * ( ( A 0 2 7 4 ( Q
0010700 U O T E D E F I N E - T Y P E
0010720 S ) ) ( A 0 2 7 5 ( Q U O T
0010740 E D E F I N E - T Y P E S ) )
0010760 ( A 0 2 7 6 ( Q U O T E "
0011000 D e f i n i t i o n t y p e "
0011020 ) ) ) ( \r S E T - D O C U M E
0011040 N T A T I O N A 0 2 7 4 A 0
0011060 2 7 5 A 0 2 7 6 ) ) \r ( S E T
0011100 Q P R E T T Y D E F M A C R O
0011120 S ( C L : A D J O I N ( Q U
0011140 O T E ( D E F I N E - T Y P E
0011160 S X ( P * ( M A P C A R
0011200 ( Q U O T E X ) ( F U N C
0011220 T I O N ( L A M B D A ( I T
0011240 E M \r ) ( C L : D O ( ( D E
0011260 F ( G E T D E F I T E M (
0011300 Q U O T E D E F I N E - T Y P
0011320 E S ) ) ) ) ( D E F D E F )
0011340 ( C L : C E R R O R " R e -
0011360 f e t c h t h e d e f i n i
0011400 t i o n " \r " N o ~ S d e
0011420 f i n i t i o n f o r ~ S "
0011440 ( Q U O T E D E F I N E - T
0011460 Y P E S ) I T E M ) ) ) ) ) )
0011500 ) ) P R E T T Y D E F M A C R
0011520 O S : T E S T ( Q U O T E
0011540 C L : E Q U A L ) ) ) \r ( S E T
0011560 Q P R E T T Y T Y P E L S T
0011600 ( C L : A D J O I N ( Q U O T
0011620 E ( C H A N G E D D E F I N E
0011640 - T Y P E S L S T D E F I N E
0011660 - T Y P E S " D e f i n i t i
0011700 o n t y p e " ) ) \r P R E T
0011720 T Y T Y P E L S T : T E S T
0011740 ( Q U O T E C L : E Q U A L )
0011760 ) ) \r ( C L : P R O C L A I M
0012000 ( Q U O T E ( G L O B A L C
0012020 H A N G E D D E F I N E - T Y P
0012040 E S L S T ) ) ) \r ( O R ( B O
0012060 U N D P ( Q U O T E C H A N
0012100 G E D D E F I N E - T Y P E S L
0012120 S T ) ) ( S E T Q C H A N G
0012140 E D D E F I N E - T Y P E S L S
0012160 T N I L ) ) \r ( C O N D ( (
0012200 N O T ( C L : G E T H A S H
0012220 ( Q U O T E D E F I N E - T Y
0012240 P E S ) * D E F I N I T I O N
0012260 - H A S H - T A B L E * ) ) (
0012300 L E T * ( ( A 0 2 7 7 ( Q U
0012320 O T E \r D E F I N E - T Y P E
0012340 S ) ) ( A 0 2 7 8 * D E F I
0012360 N I T I O N - H A S H - T A B L
0012400 E * ) ( A 0 2 8 0 ( C L : M
0012420 A K E - H A S H - T A B L E :
0012440 T E S T ( Q U O T E C L : E
0012460 Q U A L ) : S I Z E \r 5 0
0012500 : R E H A S H - S I Z E 5 0 )
0012520 ) ) ( C L : : P U T H A S H
0012540 A 0 2 7 7 A 0 2 7 8 A 0 2 8
0012560 0 ) ) ) ) \r ( S E T Q F I L E
0012600 P K G T Y P E S ( C L : A D J
0012620 O I N ( Q U O T E D E F I N
0012640 E - T Y P E S ) F I L E P K G
0012660 T Y P E S ) ) \r ( L E T * ( (
0012700 A 0 2 8 1 ( Q U O T E D E F
0012720 I N E - T Y P E S ) ) ( A 0 2
0012740 8 2 ( Q U O T E G E T D E F
0012760 ) ) ( A 0 2 8 4 ( Q U O T E
0013000 \ \ D E F I N E - T Y P E - G
0013020 E T D E F ) ) ) ( \r P U T P R
0013040 O P A 0 2 8 1 A 0 2 8 2 A
0013060 0 2 8 4 ) ) \r ( L E T * ( ( A
0013100 0 2 8 5 ( Q U O T E D E F I
0013120 N E - T Y P E S ) ) ( A 0 2 8
0013140 6 ( Q U O T E D E L D E F )
0013160 ) ( A 0 2 8 8 ( Q U O T E
0013200 \ \ D E F I N E - T Y P E - D E
0013220 L D E F ) ) ) ( \r P U T P R O
0013240 P A 0 2 8 5 A 0 2 8 6 A 0
0013260 2 8 8 ) ) \r ( L E T * ( ( A 0
0013300 2 8 9 ( Q U O T E D E F I N
0013320 E - T Y P E S ) ) ( A 0 2 9 0
0013340 ( Q U O T E F I L E P K G C
0013360 O N T E N T S ) ) ( A 0 2 9 2
0013400 ( Q U O T E N I L L ) ) )
0013420 ( P U T P R O P \r A 0 2 8 9
0013440 A 0 2 9 0 A 0 2 9 2 ) ) \r ( L
0013460 E T * ( ( A 0 2 9 3 ( Q U O
0013500 T E F U N C T I O N S ) ) (
0013520 A 0 2 9 4 ( Q U O T E D E F
0013540 I N E - T Y P E S ) ) ( A 0 2
0013560 9 5 ( Q U O T E " f u n c t
0013600 i o n s o r m a c r o s " )
0013620 ) ) ( \r S E T - D O C U M E N
0013640 T A T I O N A 0 2 9 3 A 0 2
0013660 9 4 A 0 2 9 5 ) ) \r ( S E T Q
0013700 P R E T T Y D E F M A C R O S
0013720 ( C L : A D J O I N ( Q U O
0013740 T E ( F U N C T I O N S X
0013760 ( P * ( M A P C A R ( Q U
0014000 O T E X ) ( F U N C T I O N
0014020 ( L A M B D A ( I T E M )
0014040 ( \r C L : D O ( ( D E F ( G
0014060 E T D E F I T E M ( Q U O T
0014100 E F U N C T I O N S ) ) ) )
0014120 ( D E F D E F ) ( C L : C E
0014140 R R O R " R e - f e t c h t
0014160 h e d e f i n i t i o n " \r
0014200 " N o ~ S d e f i n i t i o
0014220 n f o r ~ S " ( Q U O T E
0014240 F U N C T I O N S ) I T E M
0014260 ) ) ) ) ) ) ) ) P R E T T Y D
0014300 E F M A C R O S : T E S T (
0014320 Q U O T E C L : E Q U A L ) )
0014340 ) \r ( S E T Q P R E T T Y T Y
0014360 P E L S T ( C L : A D J O I N
0014400 ( Q U O T E ( C H A N G E D
0014420 F U N C T I O N S L S T F U N
0014440 C T I O N S " f u n c t i o n
0014460 s o r m a c r o s " ) ) \r
0014500 P R E T T Y T Y P E L S T : T
0014520 E S T ( Q U O T E C L : E Q
0014540 U A L ) ) ) \r ( C L : P R O C L
0014560 A I M ( Q U O T E ( G L O B
0014600 A L C H A N G E D F U N C T I
0014620 O N S L S T ) ) ) \r ( O R ( B
0014640 O U N D P ( Q U O T E C H A
0014660 N G E D F U N C T I O N S L S T
0014700 ) ) ( S E T Q C H A N G E D
0014720 F U N C T I O N S L S T N I L
0014740 ) ) \r ( C O N D ( ( N O T (
0014760 C L : G E T H A S H ( Q U O T
0015000 E F U N C T I O N S ) * D E
0015020 F I N I T I O N - H A S H - T A
0015040 B L E * ) ) ( L E T * ( ( A
0015060 0 2 9 6 ( Q U O T E F U N C
0015100 T I O N S ) ) ( \r A 0 2 9 7
0015120 * D E F I N I T I O N - H A S H
0015140 - T A B L E * ) ( A 0 2 9 9
0015160 ( C L : M A K E - H A S H - T A
0015200 B L E : T E S T ( Q U O T E
0015220 C L : E Q U A L ) : S I Z E
0015240 5 0 : R E H A S H - S I Z E
0015260 \r 5 0 ) ) ) ( C L : : P U T
0015300 H A S H A 0 2 9 6 A 0 2 9 7
0015320 A 0 2 9 9 ) ) ) ) \r ( S E T Q
0015340 F I L E P K G T Y P E S ( C
0015360 L : A D J O I N ( Q U O T E
0015400 F U N C T I O N S ) F I L E P
0015420 K G T Y P E S ) ) \r ( L E T *
0015440 ( ( A 0 3 0 0 ( Q U O T E F
0015460 U N C T I O N S ) ) ( A 0 3 0
0015500 1 ( Q U O T E G E T D E F )
0015520 ) ( A 0 3 0 3 ( Q U O T E
0015540 \ \ D E F I N E - T Y P E - G E
0015560 T D E F ) ) ) ( P U T P R O P
0015600 \r A 0 3 0 0 A 0 3 0 1 A 0
0015620 3 0 3 ) ) \r ( L E T * ( ( A 0
0015640 3 0 4 ( Q U O T E F U N C T
0015660 I O N S ) ) ( A 0 3 0 5 ( Q
0015700 U O T E D E L D E F ) ) ( A
0015720 0 3 0 7 ( Q U O T E \ \ D E
0015740 F I N E - T Y P E - D E L D E F
0015760 ) ) ) ( P U T P R O P \r A 0
0016000 3 0 4 A 0 3 0 5 A 0 3 0 7 )
0016020 ) \r ( L E T * ( ( A 0 3 0 8
0016040 ( Q U O T E F U N C T I O N S
0016060 ) ) ( A 0 3 0 9 ( Q U O T E
0016100 F I L E P K G C O N T E N T S
0016120 ) ) ( A 0 3 1 1 ( Q U O T E
0016140 N I L L ) ) ) ( P U T P R O
0016160 P A 0 3 0 8 \r A 0 3 0 9 A
0016200 0 3 1 1 ) ) \r ( L E T * ( ( A
0016220 0 3 1 2 ( Q U O T E F U N C
0016240 T I O N S ) ) ( A 0 3 1 3 (
0016260 Q U O T E U N D E F I N E R S
0016300 ) ) ( A 0 3 1 5 ( C L : A D
0016320 J O I N ( Q U O T E C L : F
0016340 M A K U N B O U N D ) ( \r G E
0016360 T A 0 3 1 2 A 0 3 1 3 ) ) )
0016400 ) ( P U T P R O P A 0 3 1 2
0016420 A 0 3 1 3 A 0 3 1 5 ) ) \r (
0016440 L E T * ( ( A 0 3 1 6 ( Q U
0016460 O T E V A R I A B L E S ) )
0016500 ( A 0 3 1 7 ( Q U O T E D E
0016520 F I N E - T Y P E S ) ) ( A 0
0016540 3 1 8 ( Q U O T E " C o m m
0016560 o n L i s p v a r i a b l e
0016600 s " ) ) ) \r ( S E T - D O C U
0016620 M E N T A T I O N A 0 3 1 6
0016640 A 0 3 1 7 A 0 3 1 8 ) ) \r ( S
0016660 E T Q P R E T T Y D E F M A C
0016700 R O S ( C L : A D J O I N (
0016720 Q U O T E ( V A R I A B L E S
0016740 X ( P * ( M A P C A R
0016760 ( Q U O T E X ) ( F U N C T
0017000 I O N ( L A M B D A ( I T E
0017020 M ) ( \r C L : D O ( ( D E F
0017040 ( G E T D E F I T E M ( Q
0017060 U O T E V A R I A B L E S ) )
0017100 ) ) ( D E F D E F ) ( C L
0017120 : C E R R O R " R e - f e t c
0017140 h t h e d e f i n i t i o n
0017160 " \r " N o ~ S d e f i n i
0017200 t i o n f o r ~ S " ( Q U
0017220 O T E V A R I A B L E S ) I
0017240 T E M ) ) ) ) ) ) ) ) P R E T
0017260 T Y D E F M A C R O S : T E S
0017300 T ( Q U O T E C L : E Q U A
0017320 L ) ) ) \r ( S E T Q P R E T T
0017340 Y T Y P E L S T ( C L : A D J
0017360 O I N ( Q U O T E ( C H A N
0017400 G E D V A R I A B L E S L S T
0017420 V A R I A B L E S " C o m m o
0017440 n L i s p v a r i a b l e s
0017460 " ) ) \r P R E T T Y T Y P E L
0017500 S T : T E S T ( Q U O T E
0017520 C L : E Q U A L ) ) ) \r ( C L :
0017540 P R O C L A I M ( Q U O T E
0017560 ( G L O B A L C H A N G E D V
0017600 A R I A B L E S L S T ) ) ) \r (
0017620 O R ( B O U N D P ( Q U O T
0017640 E C H A N G E D V A R I A B L
0017660 E S L S T ) ) ( S E T Q C H
0017700 A N G E D V A R I A B L E S L S
0017720 T N I L ) ) \r ( C O N D ( (
0017740 N O T ( C L : G E T H A S H
0017760 ( Q U O T E V A R I A B L E S
0020000 ) * D E F I N I T I O N - H A
0020020 S H - T A B L E * ) ) ( L E T
0020040 * ( ( A 0 3 1 9 ( Q U O T E
0020060 V A R I A B L E S ) ) ( \r A
0020100 0 3 2 0 * D E F I N I T I O N
0020120 - H A S H - T A B L E * ) ( A
0020140 0 3 2 2 ( C L : M A K E - H A
0020160 S H - T A B L E : T E S T (
0020200 Q U O T E C L : E Q U A L )
0020220 : S I Z E 5 0 : R E H A S H
0020240 - S I Z E \r 5 0 ) ) ) ( C L
0020260 : : P U T H A S H A 0 3 1 9
0020300 A 0 3 2 0 A 0 3 2 2 ) ) ) ) \r
0020320 ( S E T Q F I L E P K G T Y P
0020340 E S ( C L : A D J O I N ( Q
0020360 U O T E V A R I A B L E S )
0020400 F I L E P K G T Y P E S ) ) \r (
0020420 L E T * ( ( A 0 3 2 3 ( Q U
0020440 O T E V A R I A B L E S ) )
0020460 ( A 0 3 2 4 ( Q U O T E G E
0020500 T D E F ) ) ( A 0 3 2 6 ( Q
0020520 U O T E \ \ D E F I N E - T Y
0020540 P E - G E T D E F ) ) ) ( P U
0020560 T P R O P \r A 0 3 2 3 A 0 3
0020600 2 4 A 0 3 2 6 ) ) \r ( L E T *
0020620 ( ( A 0 3 2 7 ( Q U O T E
0020640 V A R I A B L E S ) ) ( A 0 3
0020660 2 8 ( Q U O T E D E L D E F
0020700 ) ) ( A 0 3 3 0 ( Q U O T E
0020720 \ \ D E F I N E - T Y P E - D
0020740 E L D E F ) ) ) ( P U T P R O
0020760 P \r A 0 3 2 7 A 0 3 2 8 A
0021000 0 3 3 0 ) ) \r ( L E T * ( ( A
0021020 0 3 3 1 ( Q U O T E V A R I
0021040 A B L E S ) ) ( A 0 3 3 2 (
0021060 Q U O T E F I L E P K G C O N
0021100 T E N T S ) ) ( A 0 3 3 4 (
0021120 Q U O T E N I L L ) ) ) ( P
0021140 U T P R O P A 0 3 3 1 \r A 0
0021160 3 3 2 A 0 3 3 4 ) ) \r ( C L :
0021200 P R O C L A I M ( Q U O T E
0021220 ( G L O B A L X C L : : * D E
0021240 F I N I T I O N - P R O T O T Y
0021260 P E S * ) ) ) \r ( O R ( B O U
0021300 N D P ( Q U O T E X C L : :
0021320 * D E F I N I T I O N - P R O T
0021340 O T Y P E S * ) ) ( S E T Q
0021360 X C L : : * D E F I N I T I O N
0021400 - P R O T O T Y P E S * N I L
0021420 ) ) \r X C L : : | e x p a n d -
0021440 A D D - P R O T O T Y P E - F N
0021460 | D 1 \r ( L ( 1 S I : : $
0021500 $ M A C R O - E N V I R O N M E
0021520 N T 0 S I : : $ $ M A C R O
0021540 - F O R M ) ) \0 2 005 \0 \0 002 @ 002
0021560 021 A 004 H 001 271 H 002 Z 001 273 J 002 001 274 g
0021600 \0 \0 g \0 \0 d g \0 \0 g \0 \0 I h 032 032
0021620 h 032 032 032 K h 032 032 032 L h 032 032 032 020 \0
0021640 N I L \r ( 2 9 Q U O T E 2 6
0021660 X C L : : * D E F I N I T I O
0021700 N - P R O T O T Y P E S * 2 2
0021720 C L : G E T F 1 9 C L : S
0021740 E T F ) \r ( ) \r ( S E T F - M A
0021760 C R O - F U N C T I O N ( Q U
0022000 O T E X C L : : A D D - P R O
0022020 T O T Y P E - F N ) ( Q U O T
0022040 E X C L : : | e x p a n d - A
0022060 D D - P R O T O T Y P E - F N |
0022100 ) ) \r X C L : : P R O T O T Y P
0022120 E - D E F N - T Y P E S D 1 \r
0022140 N I L \0 % 005 \0 \0 \0 ` \0 \0 021 A 004
0022160 H \ 003 265 004 I 020 002 001 232 L 001 273 J 265 \v
0022200 K h 032 Z 271 L 002 260 352 K & 272 260 371 \0 N
0022220 I L \r ( 2 X C L : : * D E F I
0022240 N I T I O N - P R O T O T Y P E
0022260 S * ) \r ( ) \r X C L : : P R O T
0022300 O T Y P E - D E F I N E R S - F
0022320 O R - T Y P E D 1 \r ( L ( 0
0022340 T Y P E ) ) \0 ( 005 \0 \0 001 ` \0
0022360 \0 @ ' 021 A 004 H \ 003 265 004 I 020 002 001 232
0022400 L 001 273 J 265 \f K h 032 Z 271 L 002 002 260 351
0022420 K & 272 260 370 \0 N I L \r ( 2 X C L
0022440 : : * D E F I N I T I O N - P R
0022460 O T O T Y P E S * ) \r ( ) \r X C
0022500 L : : M A K E - P R O T O T Y P
0022520 E D 1 \r ( L ( 2 C L : : D
0022540 E F I N E R 1 T Y P E 0
0022560 C L : : N A M E ) ) \0 026 001 \0 \0
0022600 003 ` \0 \0 A ' B ' 021 001 \0 H 264 \t @ A
0022620 B l 003 H 016 020 \0 N I L \r ( 2 X C
0022640 L : : * D E F I N I T I O N - P
0022660 R O T O T Y P E S * ) \r ( ) \r S
0022700 I : : E X P A N S I O N - F U N
0022720 C T I O N D 1 \r ( L ( 2 S
0022740 I : : B O D Y 1 S I : : A R
0022760 G - L I S T 0 S I : : N A M
0023000 E ) ) \0 A 005 \0 \0 003 A g \0 \0 B @
0023020 h g \0 \0 g \0 \0 \r \a \0 \0 \t \0 \0 021 A
0023040 004 H 001 271 H 002 Z 001 273 J 002 001 274 g \0 \0
0023060 o \0 \0 \0 K g \0 \0 @ I h 032 032 032 h 032
0023100 \n \0 \0 032 032 L \n \0 \0 020 \0 ( 6 2 C
0023120 L : V A L U E S 5 6 \ \ A P
0023140 P E N D 2 1 9 \ \ M V L I S
0023160 T 1 6 P A R S E - D E F M A
0023200 C R O ) \r ( 4 5 C L : B L O C
0023220 K 3 7 C L : L A M B D A 1
0023240 2 S I : : $ $ M A C R O - E N
0023260 V I R O N M E N T 9 : E N V
0023300 I R O N M E N T 3 S I : : $
0023320 $ M A C R O - F O R M ) \r ( 4
0023340 1 ( S I : : $ $ M A C R O - F
0023360 O R M S I : : $ $ M A C R O -
0023400 E N V I R O N M E N T ) ) \r S I
0023420 : : | e x p a n d - M A C R O -
0023440 F U N C A L L | D 1 \r ( L (
0023460 1 S I : : $ $ M A C R O - E N
0023500 V I R O N M E N T 0 S I : :
0023520 $ $ M A C R O - F O R M ) ) \0
0023540 031 005 \0 \0 002 @ 002 021 A 004 H 001 271 H 002 Z
0023560 001 273 J 002 001 274 K L l 002 I 016 020 \0 N I
0023600 L \r N I L \r ( ) \r ( S E T F - M
0023620 A C R O - F U N C T I O N ( Q
0023640 U O T E S I : : M A C R O - F
0023660 U N C A L L ) ( Q U O T E S
0023700 I : : | e x p a n d - M A C R O
0023720 - F U N C A L L | ) ) \r ( L E T
0023740 * ( ( A 0 3 4 5 ( Q U O T E
0023760 D E F D E F I N E R ) ) ( A
0024000 0 3 4 6 ( Q U O T E D E F I
0024020 N E R - F O R ) ) ( A 0 3 4 8
0024040 ( Q U O T E F U N C T I O N
0024060 S ) ) ) ( P U T P R O P \r A
0024100 0 3 4 5 A 0 3 4 6 A 0 3 4 8
0024120 ) ) \r ( L E T * ( ( A 0 3 4 9
0024140 ( Q U O T E F U N C T I O N
0024160 S ) ) ( A 0 3 5 0 ( Q U O T
0024200 E D E F I N E D - B Y ) ) (
0024220 A 0 3 5 2 ( C L : A D J O I N
0024240 ( Q U O T E D E F D E F I N
0024260 E R ) ( G E T \r A 0 3 4 9
0024300 A 0 3 5 0 ) ) ) ) ( P U T P R
0024320 O P A 0 3 4 9 A 0 3 5 0 A
0024340 0 3 5 2 ) ) \r | e x p a n d - D
0024360 E F D E F I N E R A 0 0 0 1 |
0024400 D 1 \r ( L ( 1 S I : : $ $ M
0024420 A C R O - E N V I R O N M E N T
0024440 0 S I : : $ $ M A C R O - F
0024460 O R M ) ) 001 321 020 \0 \0 002 @ 002 021 361
0024500 017 H 001 271 H 002 Z 001 273 J 002 \ 001 275 L 002
0024520 276 I 003 264 \a I 002 I 001 271 _ 016 277 g \0 \0
0024540 _ 020 277 h _ 022 _ 024 277 O 016 260 J d 001 _
0024560 030 001 _ 026 d g \0 \0 360 230 277 O 030 002 001 _
0024600 022 260 2 g \0 \0 360 227 O 030 002 001 _ 020 260 %
0024620 O 026 d g \0 \0 360 230 277 O 030 002 001 _ 024 260
0024640 024 g \0 \0 360 235 o \0 \0 \0 o \0 \0 \0 O 030
0024660 \v \0 \0 277 002 003 265 267 I M N \v \0 \0 \t \0
0024700 \0 _ 032 001 _ 034 277 O 032 002 001 _ 036 277 g \0
0024720 \0 g \0 \0 g \0 \0 g \0 \0 I h 032 032 o \0
0024740 \0 \0 032 032 g \0 \0 K h 032 032 h 032 032 032 g
0024760 \0 \0 g \0 \0 I h 032 032 g \0 \0 g \0 \0 K
0025000 h 032 032 o \0 \0 \0 032 032 h 032 032 032 g \0 \0
0025020 I o \0 \0 \0 g \0 \0 o \0 \0 \0 g \0 \0 O
0025040 020 o \0 \0 \0 032 h 032 032 h 032 032 g \0 \0 g
0025060 \0 \0 g \0 \0 g \0 \0 g \0 \0 g \0 \0 O 034
0025100 h 032 032 h 032 032 o \0 \0 \0 032 032 h 032 032 g
0025120 \0 \0 o \0 \0 \0 g \0 \0 o \0 \0 \0 g \0 \0
0025140 o \0 \0 \0 g \0 \0 g \0 \0 g \0 \0 K h 032
0025160 032 h 032 032 h 032 032 o \0 \0 \0 032 032 032 h 032
0025200 032 032 h 032 032 032 o \0 \0 \0 032 032 032 h 032 032
0025220 h 032 032 032 h 032 032 032 032 O 022 264 # g \0 \0
0025240 g \0 \0 O 022 h 032 032 g \0 \0 g \0 \0 I h
0025260 032 032 o \0 \0 \0 032 032 h 032 032 032 h 032 O 024
0025300 264 " g \0 \0 g \0 \0 K h 032 032 g \0 \0 I
0025320 h 032 032 g \0 \0 O 024 h 032 032 h 032 032 032 032
0025340 h 032 O 036 264 035 g \0 \0 g \0 \0 g \0 \0 I
0025360 h 032 032 o \0 \0 \0 032 032 O 036 h 032 032 032 h
0025400 032 \n \0 \0 \n \0 \0 032 032 032 032 020 \0 ( 4 5
0025420 8 \ \ A P P E N D 2 4 5 5
0025440 \ \ A P P E N D 2 1 3 2 \ \
0025460 M V L I S T 1 2 9 S I : : E
0025500 X P A N S I O N - F U N C T I O
0025520 N 1 1 8 C L : C E R R O R )
0025540 \r ( 4 3 4 Q U O T E 4 3 1
0025560 C L : D O C U M E N T A T I O N
0025600 4 2 8 C L : S E T F 4 0 9
0025620 C L : F U N C T I O N 4 0 2
0025640 Q U O T E 3 9 5 Q U O T E
0025660 3 9 2 X C L : : A D D - P R
0025700 O T O T Y P E - F N 3 6 9 Q
0025720 U O T E 3 6 6 G E T 3 5 8
0025740 Q U O T E 3 5 5 C L : P U
0025760 S H N E W 3 0 4 Q U O T E
0026000 3 0 1 \ \ \ , 2 9 8 Q U O
0026020 T E 2 9 1 \ \ D E F I N E -
0026040 T Y P E - S A V E - D E F N 2
0026060 8 4 C L : U N L E S S 2 7 7
0026100 C L : E V A L - W H E N 2 5
0026120 7 C L : F U N C T I O N 2 5
0026140 4 \ \ \ , 2 5 1 S I : : M
0026160 A C R O - F U N C A L L 2 4 8
0026200 W I T H O U T - F I L E P K G
0026220 2 4 5 P R O G N 2 4 2 B
0026240 Q U O T E 2 2 6 C L : : D E
0026260 F I N E D - O B J E C T - N A M
0026300 E 2 1 9 L E T * 2 1 1 D
0026320 E F M A C R O 1 9 4 Q U O T
0026340 E 1 9 1 G E T 1 8 4 Q U
0026360 O T E 1 8 1 C L : P U S H N
0026400 E W 1 7 0 Q U O T E 1 5 7
0026420 Q U O T E 1 5 4 G E T 1
0026440 5 1 C L : S E T F 1 4 8 P
0026460 R O G N 1 0 3 C L : O T H E
0026500 R W I S E 8 9 : P R O T O T
0026520 Y P E 7 3 : N A M E 5 9
0026540 : U N D E F I N E R 3 5 C L
0026560 : S E C O N D ) \r ( 4 4 2 (
0026600 ( Q U O T E C L : F U N C T I
0026620 O N ) ) 3 7 7 ( ( Q U O T E
0026640 U N D E F I N E R S ) ) 3 3
0026660 3 ( ( Q U O T E ( \ \ \ ,
0026700 C L : : D E F I N E D - O B J E
0026720 C T - N A M E ) ) ) 3 1 8 (
0026740 ( Q U O T E ( \ \ \ , C L :
0026760 : O R I G I N A L - M A C R O -
0027000 C A L L ) ) ) \r 2 9 5 ( Q U
0027020 O T E ( \ \ \ , C L : : D E
0027040 F I N E D - O B J E C T - N A M
0027060 E ) ) 2 8 8 ( N U L L F I
0027100 L E P K G F L G ) 2 8 1 ( C
0027120 L : E V A L ) 2 6 9 ( ( \ \
0027140 \ , C L : : M A C R O - C A L
0027160 L - W I T H O U T - C O M M E N
0027200 T S ) ( \ \ \ , C L : : E N
0027220 V ) ) \r 2 3 2 ( C L : : M A
0027240 C R O - C A L L - W I T H O U T
0027260 - C O M M E N T S ) 2 2 3 (
0027300 C L : : M A C R O - C A L L - W
0027320 I T H O U T - C O M M E N T S
0027340 ( R E M O V E - C O M M E N T S
0027360 C L : : O R I G I N A L - M A
0027400 C R O - C A L L ) ) \r 2 1 6
0027420 ( & W H O L E C L : : O R I G
0027440 I N A L - M A C R O - C A L L
0027460 & E N V I R O N M E N T C L :
0027500 : E N V ) 2 0 2 ( ( Q U O T
0027520 E D E F I N E D - B Y ) ) 1
0027540 6 5 ( ( Q U O T E D E F I N
0027560 E R - F O R ) ) \r 1 1 3 " U
0027600 n r e c o g n i z e d o p t i
0027620 o n t o D e f D e f i n e r
0027640 : ~ S " 1 0 9 " I g n o r
0027660 e t h e b o g u s o p t i
0027700 o n " ) \r | e x p a n d - D E F
0027720 D E F I N E R | D 1 \r ( L (
0027740 1 S I : : $ $ M A C R O - E N
0027760 V I R O N M E N T 0 S I : :
0030000 $ $ M A C R O - F O R M ) ) \0
0030020 f 004 \0 \0 002 @ 021 1 003 A 271 H \t \0 \0 Z
0030040 002 001 d 003 220 001 273 g \0 \0 g \0 \0 g \0 \0
0030060 g \0 \0 J I h 032 032 032 032 h 032 032 g \0 \0
0030100 o \0 \0 \0 g \0 \0 o \0 \0 \0 g \0 \0 g \0
0030120 \0 K h 032 032 o \0 \0 \0 g \0 \0 H h 032 032
0030140 h 032 032 032 032 h 032 032 032 h 032 032 032 g \0 \0
0030160 K h 032 032 h 032 032 032 032 020 \0 ( 9 R E
0030200 M O V E - C O M M E N T S ) \r (
0030220 9 0 Q U O T E 7 0 Q U O T
0030240 E 5 9 Q U O T E 5 6 \ \
0030260 D E F I N E - T Y P E - S A V E
0030300 - D E F N 4 9 C L : U N L E
0030320 S S 4 2 C L : E V A L - W H
0030340 E N 2 9 | e x p a n d - D E
0030360 F D E F I N E R A 0 0 0 1 | 2
0030400 6 S I : : M A C R O - F U N C
0030420 A L L 2 3 W I T H O U T - F
0030440 I L E P K G 2 0 P R O G N )
0030460 \r ( 6 7 ( Q U O T E F U N
0030500 C T I O N S ) 5 3 ( N U L L
0030520 F I L E P K G F L G ) 4 6
0030540 ( C L : E V A L ) ) \r ( S E T F
0030560 - M A C R O - F U N C T I O N
0030600 ( Q U O T E D E F D E F I N E
0030620 R ) ( Q U O T E | e x p a n
0030640 d - D E F D E F I N E R | ) ) \r
0030660 ( L E T * ( ( A 0 3 5 4 ( Q
0030700 U O T E D E F D E F I N E R )
0030720 ) ( A 0 3 5 5 ( Q U O T E
0030740 U N D E F I N E R S ) ) ( A 0
0030760 3 5 7 ( C L : A D J O I N (
0031000 Q U O T E \r C L : : \ \ D E L
0031020 E T E - D E F I N E R ) ( G E
0031040 T A 0 3 5 4 A 0 3 5 5 ) ) )
0031060 ) ( P U T P R O P A 0 3 5 4
0031100 A 0 3 5 5 A 0 3 5 7 ) ) \r (
0031120 L E T * ( ( A 0 3 5 8 X C L
0031140 : : * D E F I N I T I O N - P R
0031160 O T O T Y P E S * ) ( A 0 3 6
0031200 0 ( Q U O T E ( Q U O T E
0031220 F U N C T I O N S ) ) ) ( A 0
0031240 3 5 9 ( C L : G E T F A 0 3
0031260 5 8 \r A 0 3 6 0 ) ) ( A 0 3
0031300 6 3 ( Q U O T E D E F D E F
0031320 I N E R ) ) ( A 0 3 6 2 ( C
0031340 L : F U N C T I O N ( C L : L
0031360 A M B D A ( C L : : N A M E )
0031400 ( A N D ( C L : S Y M B O L
0031420 P C L : : N A M E \r ) ( L I
0031440 S T * ( Q U O T E D E F D E
0031460 F I N E R ) C L : : N A M E
0031500 ( Q U O T E ( " T y p e " (
0031520 " A r g - l i s t " ) " B o d
0031540 y " ) ) ) ) ) ) ) ) ( C O N D
0031560 ( ( N U L L A 0 3 5 9 ) (
0031600 \r L E T * ( ( A 0 3 5 8 X C
0031620 L : : * D E F I N I T I O N - P
0031640 R O T O T Y P E S * ) ( A 0 3
0031660 6 0 ( Q U O T E ( Q U O T E
0031700 F U N C T I O N S ) ) ) ( A
0031720 0 3 5 9 ( L I S T A 0 3 6 3
0031740 A 0 3 6 2 ) \r ) ) ( C O N D
0031760 ( ( N U L L A 0 3 5 8 ) (
0032000 L E T * ( ( A 0 3 5 8 ( L I
0032020 S T A 0 3 6 0 A 0 3 5 9 ) )
0032040 ) ( C L : S E T Q X C L : :
0032060 * D E F I N I T I O N - P R O T
0032100 O T Y P E S * A 0 3 5 8 ) \r )
0032120 A 0 3 5 9 ) ( T ( L I S T
0032140 P U T A 0 3 5 8 A 0 3 6 0
0032160 A 0 3 5 9 ) ) ) ) A 0 3 6 2 )
0032200 ( T ( L I S T P U T A 0 3
0032220 5 9 A 0 3 6 3 A 0 3 6 2 ) )
0032240 ) ) \r \ \ D E L E T E - D E F I
0032260 N E R D 1 \r ( L ( 0 N A M
0032300 E ) ) \0 3 001 \0 \0 001 @ 004 l 004 360 264
0032320 , @ 301 002 311 \0 g \0 \0 ' 021 001 \0 @ g \0
0032340 \0 \n \0 \0 H d 262 025 g \0 \0 @ H 301 002 311
0032360 \0 g \0 \0 ' \n \0 \0 \v \0 \0 020 \0 ( 4 8
0032400 / P U T P R O P 4 5 R E M
0032420 O V E 2 5 / R E M P R O P )
0032440 \r ( 4 1 D E F I N E D - B Y
0032460 3 2 D E F I N E D - B Y 2 2
0032500 D E F I N E R - F O R 1 4
0032520 D E F I N E R - F O R ) \r ( ) \r
0032540 ( L E T * ( ( A 0 3 7 3 ( Q
0032560 U O T E D E F - D E F I N E -
0032600 T Y P E ) ) ( A 0 3 7 4 ( Q
0032620 U O T E D E F I N E R - F O R
0032640 ) ) ( A 0 3 7 6 ( Q U O T E
0032660 D E F I N E - T Y P E S ) ) )
0032700 ( \r P U T P R O P A 0 3 7 3
0032720 A 0 3 7 4 A 0 3 7 6 ) ) \r (
0032740 L E T * ( ( A 0 3 7 7 ( Q U
0032760 O T E D E F I N E - T Y P E S
0033000 ) ) ( A 0 3 7 8 ( Q U O T E
0033020 D E F I N E D - B Y ) ) ( A
0033040 0 3 8 0 ( C L : A D J O I N
0033060 ( Q U O T E \r D E F - D E F I
0033100 N E - T Y P E ) ( G E T A 0
0033120 3 7 7 A 0 3 7 8 ) ) ) ) ( P
0033140 U T P R O P A 0 3 7 7 A 0 3
0033160 7 8 A 0 3 8 0 ) ) \r | e x p a
0033200 n d - D E F - D E F I N E - T Y
0033220 P E A 0 0 0 1 | D 1 \r ( L (
0033240 1 S I : : $ $ M A C R O - E N
0033260 V I R O N M E N T 0 S I : :
0033300 $ $ M A C R O - F O R M ) ) 001
0033320 264 \a \0 \0 002 @ 002 021 a 006 H 001 271 H 002 Z
0033340 001 273 J 002 274 g \0 \0 L \n \0 \0 d 220 001 275
0033360 g \0 \0 o \0 \0 \0 I \t \0 \0 o \0 \0 \0 \f
0033400 \0 \0 I \t \0 \0 \n \0 \0 276 L o \0 \0 \0 \n
0033420 \0 \0 g \0 \0 g \0 \0 g \0 \0 g \0 \0 I h
0033440 032 032 o \0 \0 \0 032 032 g \0 \0 K h 032 032 h
0033460 032 032 032 g \0 \0 g \0 \0 I g \0 \0 g \0 \0
0033500 g \0 \0 g \0 \0 o \0 \0 \0 g \0 \0 g \0 \0
0033520 o \0 \0 \0 g \0 \0 g \0 \0 g \0 \0 g \0 \0
0033540 g \0 \0 I h 032 032 h 032 032 032 h 032 032 h 032
0033560 o \0 \0 \0 g \0 \0 o \0 \0 \0 o \0 \0 \0 g
0033600 \0 \0 I h 032 032 o \0 \0 \0 032 032 032 032 h 032
0033620 032 032 032 h 032 032 032 h 032 032 h 032 032 032 h 032
0033640 032 032 h 032 032 032 h 032 032 o \0 \0 \0 032 032 g
0033660 \0 \0 g \0 \0 N I K h 032 032 032 h 032 032 o
0033700 \0 \0 \0 032 032 g \0 \0 N o \0 \0 \0 032 032 g
0033720 \0 \0 g \0 \0 g \0 \0 I h 032 032 o \0 \0 \0
0033740 032 032 g \0 \0 g \0 \0 g \0 \0 I h 032 032 o
0033760 \0 \0 \0 032 032 o \0 \0 \0 032 032 h 032 032 032 g
0034000 \0 \0 g \0 \0 I h 032 032 o \0 \0 \0 032 032 g
0034020 \0 \0 g \0 \0 g \0 \0 I h 032 032 o \0 \0 \0
0034040 032 032 o \0 \0 \0 032 032 g \0 \0 g \0 \0 g \0
0034060 \0 I h 032 032 o \0 \0 \0 032 032 o \0 \0 \0 032
0034100 032 g \0 \0 g \0 \0 g \0 \0 I h 032 032 o \0
0034120 \0 \0 032 032 o \0 \0 \0 032 032 M 264 " g \0 \0
0034140 g \0 \0 M h 032 032 g \0 \0 g \0 \0 I h 032
0034160 032 o \0 \0 \0 032 032 h 032 032 032 h 032 032 032 032
0034200 032 032 032 032 032 032 032 020 \0 ( 6 0 K E Y
0034220 W O R D - T E S T 5 1 C L :
0034240 I N T E R N 4 8 C L : S Y M
0034260 B O L - P A C K A G E 4 4 C
0034300 L : C O N C A T E N A T E 3 7
0034320 S T R I N G 2 2 F I N D -
0034340 K E Y W O R D ) \r ( 4 0 7 Q U
0034360 O T E 4 0 4 G E T 3 9 7
0034400 Q U O T E 3 9 4 C L : P U S
0034420 H N E W 3 7 2 Q U O T E 3
0034440 6 9 G E T 3 6 6 C L : S E
0034460 T F 3 4 7 Q U O T E 3 4 4
0034500 G E T 3 4 1 C L : S E T F
0034520 3 2 2 Q U O T E 3 1 9 G
0034540 E T 3 1 6 C L : S E T F 3
0034560 0 3 Q U O T E 3 0 0 C L :
0034600 P U S H N E W 2 7 7 Q U O T
0034620 E 2 7 4 C L : G E T H A S H
0034640 2 7 1 C L : S E T F 2 5 8
0034660 Q U O T E 2 5 5 C L : G E
0034700 T H A S H 2 5 2 C L : U N L
0034720 E S S 2 4 2 D E F G L O B A
0034740 L V A R 2 2 3 Q U O T E 2
0034760 2 0 C L : P U S H N E W 1 7
0035000 2 Q U O T E 1 6 1 C L : C
0035020 E R R O R 1 4 1 Q U O T E
0035040 1 3 8 I T E M 1 3 5 G E T
0035060 D E F 1 3 2 D E F 1 2 9
0035100 C L : D O 1 2 2 L A M B D A
0035120 1 1 9 F U N C T I O N 1 1
0035140 2 M A P C A R 1 0 9 * 1
0035160 0 6 P 1 0 3 X 9 9 Q U
0035200 O T E 9 6 C L : P U S H N E
0035220 W 8 5 Q U O T E 7 2 Q U
0035240 O T E 6 9 C L : D O C U M E
0035260 N T A T I O N 6 6 C L : S E
0035300 T F 6 3 P R O G N 2 9 S
0035320 T R I N G 1 8 : U N D E F I
0035340 N E R ) \r ( 4 1 5 ( ( Q U O
0035360 T E U N D E F I N E R S ) )
0035400 3 8 6 ( ( Q U O T E N I L L
0035420 ) ) 3 8 0 ( ( Q U O T E F
0035440 I L E P K G C O N T E N T S ) )
0035460 3 6 1 ( ( Q U O T E \ \ D
0035500 E F I N E - T Y P E - D E L D E
0035520 F ) ) \r 3 5 5 ( ( Q U O T E
0035540 D E L D E F ) ) 3 3 6 ( (
0035560 Q U O T E \ \ D E F I N E - T
0035600 Y P E - G E T D E F ) ) 3 3 0
0035620 ( ( Q U O T E G E T D E F )
0035640 ) 3 1 1 ( F I L E P K G T Y
0035660 P E S ) 2 9 1 ( ( C L : M A
0035700 K E - H A S H - T A B L E : T
0035720 E S T ( Q U O T E C L : E Q
0035740 U A L ) : S I Z E 5 0 : R
0035760 E H A S H - S I Z E 5 0 ) ) \r
0036000 2 8 5 ( * D E F I N I T I O
0036020 N - H A S H - T A B L E * ) 2
0036040 6 6 ( * D E F I N I T I O N -
0036060 H A S H - T A B L E * ) 2 4 7
0036100 ( N I L ) 2 3 7 ( P R E T
0036120 T Y T Y P E L S T : T E S T
0036140 ( Q U O T E C L : E Q U A L )
0036160 ) \r 2 1 5 ( P R E T T Y D E
0036200 F M A C R O S : T E S T ( Q
0036220 U O T E C L : E Q U A L ) )
0036240 1 8 0 ( I T E M ) 1 6 9 "
0036260 N o ~ S d e f i n i t i o n
0036300 f o r ~ S " 1 6 5 " R e
0036320 - f e t c h t h e d e f i n
0036340 i t i o n " \r 1 5 8 ( D E F
0036360 D E F ) 1 2 6 ( I T E M )
0036400 1 1 6 ( Q U O T E X ) 8
0036420 0 ( ( Q U O T E D E F I N E
0036440 - T Y P E S ) ) 5 7 ( : U N
0036460 D E F I N E R ) 4 1 " L S T
0036500 " 3 3 " C H A N G E D " ) \r
0036520 | e x p a n d - D E F - D E F I
0036540 N E - T Y P E | D 1 \r ( L (
0036560 1 S I : : $ $ M A C R O - E N
0036600 V I R O N M E N T 0 S I : :
0036620 $ $ M A C R O - F O R M ) ) \0
0036640 b 004 \0 \0 002 @ 021 1 003 A 271 H \t \0 \0 Z
0036660 002 001 273 g \0 \0 g \0 \0 g \0 \0 g \0 \0 J
0036700 I h 032 032 032 032 h 032 032 g \0 \0 o \0 \0 \0
0036720 g \0 \0 o \0 \0 \0 g \0 \0 g \0 \0 K h 032
0036740 032 o \0 \0 \0 g \0 \0 H h 032 032 h 032 032 032
0036760 032 h 032 032 032 h 032 032 032 g \0 \0 K h 032 032
0037000 h 032 032 032 032 020 \0 ( 9 R E M O V E
0037020 - C O M M E N T S ) \r ( 8 6 Q
0037040 U O T E 6 6 Q U O T E 5 5
0037060 Q U O T E 5 2 \ \ D E F I
0037100 N E - T Y P E - S A V E - D E F
0037120 N 4 5 C L : U N L E S S 3
0037140 8 C L : E V A L - W H E N 2
0037160 5 | e x p a n d - D E F - D E
0037200 F I N E - T Y P E A 0 0 0 1 |
0037220 2 2 S I : : M A C R O - F U N
0037240 C A L L 1 9 W I T H O U T -
0037260 F I L E P K G 1 6 P R O G N
0037300 ) \r ( 6 3 ( Q U O T E D E
0037320 F I N E - T Y P E S ) 4 9 (
0037340 N U L L F I L E P K G F L G )
0037360 4 2 ( C L : E V A L ) ) \r (
0037400 S E T F - M A C R O - F U N C T
0037420 I O N ( Q U O T E D E F - D
0037440 E F I N E - T Y P E ) ( Q U O
0037460 T E | e x p a n d - D E F - D
0037500 E F I N E - T Y P E | ) ) \r ( L
0037520 E T * ( ( A 0 3 8 2 X C L :
0037540 : * D E F I N I T I O N - P R O
0037560 T O T Y P E S * ) ( A 0 3 8 4
0037600 ( Q U O T E ( Q U O T E D
0037620 E F I N E - T Y P E S ) ) ) (
0037640 A 0 3 8 3 ( C L : G E T F A
0037660 0 3 8 2 \r A 0 3 8 4 ) ) ( A
0037700 0 3 8 7 ( Q U O T E D E F -
0037720 D E F I N E - T Y P E ) ) ( A
0037740 0 3 8 6 ( C L : F U N C T I O
0037760 N ( L A M B D A ( N A M E )
0040000 ( A N D ( C L : S Y M B O L
0040020 P N A M E ) ( \r L I S T *
0040040 ( Q U O T E D E F - D E F I N
0040060 E - T Y P E ) N A M E ( Q U
0040100 O T E ( " D e s c r i p t i o
0040120 n s t r i n g " ) ) ) ) ) ) )
0040140 ) ( C O N D ( ( N U L L A
0040160 0 3 8 3 ) ( L E T * ( ( \r A
0040200 0 3 8 2 X C L : : * D E F I N
0040220 I T I O N - P R O T O T Y P E S
0040240 * ) ( A 0 3 8 4 ( Q U O T E
0040260 ( Q U O T E D E F I N E - T
0040300 Y P E S ) ) ) ( A 0 3 8 3 (
0040320 L I S T A 0 3 8 7 A 0 3 8 6
0040340 ) ) ) ( \r C O N D ( ( N U L
0040360 L A 0 3 8 2 ) ( L E T * (
0040400 ( A 0 3 8 2 ( L I S T A 0 3
0040420 8 4 A 0 3 8 3 ) ) ) ( C L :
0040440 S E T Q X C L : : * D E F I N
0040460 I T I O N - P R O T O T Y P E S
0040500 * A 0 3 8 2 ) ) \r A 0 3 8 3
0040520 ) ( T ( L I S T P U T A 0
0040540 3 8 2 A 0 3 8 4 A 0 3 8 3 )
0040560 ) ) ) A 0 3 8 6 ) ( T ( L
0040600 I S T P U T A 0 3 8 3 A 0 3
0040620 8 7 A 0 3 8 6 ) ) ) ) \r ( L E
0040640 T * ( ( A 0 3 8 9 ( Q U O T
0040660 E D E F - D E F I N E - T Y P
0040700 E ) ) ( A 0 3 9 0 ( Q U O T
0040720 E C L : F U N C T I O N ) )
0040740 ( A 0 3 9 1 \r " D e f i n e
0040760 N A M E a s a n e w d e
0041000 f i n i t i o n t y p e " ) )
0041020 ( S E T - D O C U M E N T A T
0041040 I O N A 0 3 8 9 A 0 3 9 0
0041060 A 0 3 9 1 ) ) \r | e x p a n d -
0041100 W I T H O U T - F I L E P K G |
0041120 D 1 \r ( L ( 1 S I : : $ $
0041140 M A C R O - E N V I R O N M E N
0041160 T 0 S I : : $ $ M A C R O -
0041200 F O R M ) ) \0 8 001 \0 \0 002 @ 002 021
0041220 001 \0 g \0 \0 g \0 \0 o \0 \0 \0 H 032 032 g
0041240 \0 \0 o \0 \0 \0 g \0 \0 o \0 \0 \0 g \0 \0
0041260 o \0 \0 \0 H 032 032 h 032 032 032 h 032 032 032 h
0041300 032 032 032 020 \0 N I L \r ( 3 4 L E T
0041320 2 7 C L : U N L E S S 2 0
0041340 C L : E V A L - W H E N 1 0
0041360 C L : E V A L - W H E N 7
0041400 P R O G N ) \r ( 3 8 ( F I L
0041420 E P K G F L G ( D F N F L G
0041440 T ) ) 3 1 ( O R ( E Q D
0041460 F N F L G ( Q U O T E P R O
0041500 P ) ) ( E Q D F N F L G (
0041520 Q U O T E A L L P R O P ) ) )
0041540 2 4 ( C L : E V A L ) \r 1
0041560 4 ( C L : L O A D ) ) \r ( S E
0041600 T F - M A C R O - F U N C T I O
0041620 N ( Q U O T E W I T H O U T
0041640 - F I L E P K G ) ( Q U O T E
0041660 | e x p a n d - W I T H O U T
0041700 - F I L E P K G | ) ) \r ( L E T
0041720 * ( ( A 0 3 9 8 ( Q U O T E
0041740 C L : D E F U N ) ) ( A 0 3
0041760 9 9 ( Q U O T E D E F I N E
0042000 R - F O R ) ) ( A 0 4 0 1 (
0042020 Q U O T E F U N C T I O N S )
0042040 ) ) ( P U T P R O P A 0 3 9
0042060 8 \r A 0 3 9 9 A 0 4 0 1 ) )
0042100 \r ( L E T * ( ( A 0 4 0 2 (
0042120 Q U O T E F U N C T I O N S )
0042140 ) ( A 0 4 0 3 ( Q U O T E
0042160 D E F I N E D - B Y ) ) ( A 0
0042200 4 0 5 ( C L : A D J O I N (
0042220 Q U O T E C L : D E F U N )
0042240 ( G E T \r A 0 4 0 2 A 0 4 0
0042260 3 ) ) ) ) ( P U T P R O P A
0042300 0 4 0 2 A 0 4 0 3 A 0 4 0 5
0042320 ) ) \r C L : : | e x p a n d - D
0042340 E F U N A 0 0 0 1 | D 1 \r ( L
0042360 ( 1 S I : : $ $ M A C R O -
0042400 E N V I R O N M E N T 0 S I
0042420 : : $ $ M A C R O - F O R M ) )
0042440 \0 x \b \0 \0 002 @ 002 021 q \a H 001 271 H
0042460 002 Z 001 273 J 002 A i \v \0 \0 \t \0 \0 \ 001
0042500 275 L 002 001 276 L 002 002 001 _ 016 277 g \0 \0 g
0042520 \0 \0 g \0 \0 g \0 \0 I h 032 032 h 032 032 g
0042540 \0 \0 g \0 \0 K N g \0 \0 I M 032 032 h 032
0042560 \n \0 \0 032 032 h 032 032 h 032 032 032 O 016 264 035
0042600 g \0 \0 g \0 \0 g \0 \0 I h 032 032 o \0 \0
0042620 \0 032 032 O 016 h 032 032 032 h 032 032 032 020 \0 (
0042640 7 5 \ \ A P P E N D 2 2 2
0042660 \ \ M V L I S T 1 9 P A R S
0042700 E - B O D Y ) \r ( 9 7 Q U O T
0042720 E 9 4 C L : D O C U M E N T
0042740 A T I O N 9 1 C L : S E T F
0042760 6 6 C L : B L O C K 6 1
0043000 C L : L A M B D A 5 8 C L :
0043020 F U N C T I O N 4 8 Q U O T
0043040 E 4 5 C L : S Y M B O L - F
0043060 U N C T I O N 4 2 C L : S E
0043100 T F 3 9 P R O G N ) \r ( 1
0043120 0 5 ( ( Q U O T E C L : F U
0043140 N C T I O N ) ) ) \r C L : : | e
0043160 x p a n d - D E F U N | D 1 \r
0043200 ( L ( 1 S I : : $ $ M A C R
0043220 O - E N V I R O N M E N T 0
0043240 S I : : $ $ M A C R O - F O R M
0043260 ) ) \0 b 004 \0 \0 002 @ 021 1 003 A 271 H
0043300 \t \0 \0 Z 002 001 273 g \0 \0 g \0 \0 g \0 \0
0043320 g \0 \0 J I h 032 032 032 032 h 032 032 g \0 \0
0043340 o \0 \0 \0 g \0 \0 o \0 \0 \0 g \0 \0 g \0
0043360 \0 K h 032 032 o \0 \0 \0 g \0 \0 H h 032 032
0043400 h 032 032 032 032 h 032 032 032 h 032 032 032 g \0 \0
0043420 K h 032 032 h 032 032 032 032 020 \0 ( 9 R E
0043440 M O V E - C O M M E N T S ) \r (
0043460 8 6 Q U O T E 6 6 Q U O T
0043500 E 5 5 Q U O T E 5 2 \ \
0043520 D E F I N E - T Y P E - S A V E
0043540 - D E F N 4 5 C L : U N L E
0043560 S S 3 8 C L : E V A L - W H
0043600 E N 2 5 C L : : | e x p a n
0043620 d - D E F U N A 0 0 0 1 | 2 2
0043640 S I : : M A C R O - F U N C A
0043660 L L 1 9 W I T H O U T - F I
0043700 L E P K G 1 6 P R O G N ) \r
0043720 ( 6 3 ( Q U O T E F U N C
0043740 T I O N S ) 4 9 ( N U L L
0043760 F I L E P K G F L G ) 4 2 (
0044000 C L : E V A L ) ) \r ( S E T F -
0044020 M A C R O - F U N C T I O N (
0044040 Q U O T E C L : D E F U N )
0044060 ( Q U O T E C L : : | e x p a
0044100 n d - D E F U N | ) ) \r ( L E T
0044120 * ( ( A 0 4 0 7 X C L : : *
0044140 D E F I N I T I O N - P R O T O
0044160 T Y P E S * ) ( A 0 4 0 9 (
0044200 Q U O T E ( Q U O T E F U N
0044220 C T I O N S ) ) ) ( A 0 4 0 8
0044240 ( C L : G E T F A 0 4 0 7
0044260 \r A 0 4 0 9 ) ) ( A 0 4 1 2
0044300 ( Q U O T E C L : D E F U N )
0044320 ) ( A 0 4 1 1 ( C L : F U N
0044340 C T I O N ( C L : L A M B D A
0044360 ( C L : : N A M E ) ( A N D
0044400 ( C L : S Y M B O L P C L :
0044420 : N A M E ) \r ( L I S T * (
0044440 Q U O T E C L : D E F U N )
0044460 C L : : N A M E ( Q U O T E
0044500 ( ( " A r g L i s t " ) " B
0044520 o d y " ) ) ) ) ) ) ) ) ( C O
0044540 N D ( ( N U L L A 0 4 0 8 )
0044560 ( L E T * ( ( A 0 4 0 7 \r
0044600 X C L : : * D E F I N I T I O N
0044620 - P R O T O T Y P E S * ) ( A
0044640 0 4 0 9 ( Q U O T E ( Q U O
0044660 T E F U N C T I O N S ) ) )
0044700 ( A 0 4 0 8 ( L I S T A 0 4
0044720 1 2 A 0 4 1 1 ) ) ) ( C O N
0044740 D ( ( \r N U L L A 0 4 0 7 )
0044760 ( L E T * ( ( A 0 4 0 7 (
0045000 L I S T A 0 4 0 9 A 0 4 0 8
0045020 ) ) ) ( C L : S E T Q X C L
0045040 : : * D E F I N I T I O N - P R
0045060 O T O T Y P E S * A 0 4 0 7 )
0045100 ) A 0 4 0 8 ) ( T \r ( L I
0045120 S T P U T A 0 4 0 7 A 0 4 0
0045140 9 A 0 4 0 8 ) ) ) ) A 0 4 1
0045160 1 ) ( T ( L I S T P U T A
0045200 0 4 0 8 A 0 4 1 2 A 0 4 1 1
0045220 ) ) ) ) \r ( L E T * ( ( A 0 4
0045240 2 0 ( Q U O T E D E F I N L
0045260 I N E ) ) ( A 0 4 2 1 ( Q U
0045300 O T E D E F I N E R - F O R )
0045320 ) ( A 0 4 2 3 ( Q U O T E
0045340 F U N C T I O N S ) ) ) ( P U
0045360 T P R O P A 0 4 2 0 \r A 0 4
0045400 2 1 A 0 4 2 3 ) ) \r ( L E T *
0045420 ( ( A 0 4 2 4 ( Q U O T E
0045440 F U N C T I O N S ) ) ( A 0 4
0045460 2 5 ( Q U O T E D E F I N E
0045500 D - B Y ) ) ( A 0 4 2 7 ( C
0045520 L : A D J O I N ( Q U O T E
0045540 D E F I N L I N E ) ( G E T
0045560 \r A 0 4 2 4 A 0 4 2 5 ) ) ) )
0045600 ( P U T P R O P A 0 4 2 4
0045620 A 0 4 2 5 A 0 4 2 7 ) ) \r | e
0045640 x p a n d - D E F I N L I N E A
0045660 0 0 0 1 | D 1 \r ( L ( 1 S
0045700 I : : $ $ M A C R O - E N V I R
0045720 O N M E N T 0 S I : : $ $ M
0045740 A C R O - F O R M ) ) \0 ~ \n \0
0045760 \0 002 @ 002 021 221 \t H 001 271 H 002 Z 001 273 J
0046000 002 274 A 275 L M i \v \0 \0 \t \0 \0 ^ 001 _
0046020 016 277 N 002 001 _ 020 277 g \0 \0 K O 020 g \0
0046040 \0 I O 016 032 032 h 032 \n \0 \0 032 032 _ 022 277
0046060 g \0 \0 g \0 \0 I K L 032 032 032 g \0 \0 I
0046100 o \0 \0 \0 I h 032 032 I \t \0 \0 \n \0 \0 o
0046120 \0 \0 \0 g \0 \0 g \0 \0 O 022 h 032 032 o \0
0046140 \0 \0 032 032 h 032 032 032 032 032 h 032 032 032 020 \0
0046160 ( 9 2 X C L : P A C K 8 9
0046200 C L : S Y M B O L - P A C K A G
0046220 E 5 6 \ \ A P P E N D 2 2
0046240 6 \ \ M V L I S T 2 3 P A
0046260 R S E - B O D Y ) \r ( 1 0 2 Q
0046300 U O T E 9 9 C O N S 7 6
0046320 D E F O P T I M I Z E R 6 7
0046340 C L : D E F U N 6 4 P R O G
0046360 N 4 6 C L : B L O C K 4 0
0046400 C L : L A M B D A ) \r ( 1 1
0046420 1 ( A R G S ) 9 6 ( & R E
0046440 S T A R G S ) 8 1 " d e f
0046460 i n l i n e - " ) \r | e x p a n
0046500 d - D E F I N L I N E | D 1 \r
0046520 ( L ( 1 S I : : $ $ M A C R
0046540 O - E N V I R O N M E N T 0
0046560 S I : : $ $ M A C R O - F O R M
0046600 ) ) \0 b 004 \0 \0 002 @ 021 1 003 A 271 H
0046620 \t \0 \0 Z 002 001 273 g \0 \0 g \0 \0 g \0 \0
0046640 g \0 \0 J I h 032 032 032 032 h 032 032 g \0 \0
0046660 o \0 \0 \0 g \0 \0 o \0 \0 \0 g \0 \0 g \0
0046700 \0 K h 032 032 o \0 \0 \0 g \0 \0 H h 032 032
0046720 h 032 032 032 032 h 032 032 032 h 032 032 032 g \0 \0
0046740 K h 032 032 h 032 032 032 032 020 \0 ( 9 R E
0046760 M O V E - C O M M E N T S ) \r (
0047000 8 6 Q U O T E 6 6 Q U O T
0047020 E 5 5 Q U O T E 5 2 \ \
0047040 D E F I N E - T Y P E - S A V E
0047060 - D E F N 4 5 C L : U N L E
0047100 S S 3 8 C L : E V A L - W H
0047120 E N 2 5 | e x p a n d - D E
0047140 F I N L I N E A 0 0 0 1 | 2 2
0047160 S I : : M A C R O - F U N C A
0047200 L L 1 9 W I T H O U T - F I
0047220 L E P K G 1 6 P R O G N ) \r
0047240 ( 6 3 ( Q U O T E F U N C
0047260 T I O N S ) 4 9 ( N U L L
0047300 F I L E P K G F L G ) 4 2 (
0047320 C L : E V A L ) ) \r ( S E T F -
0047340 M A C R O - F U N C T I O N (
0047360 Q U O T E D E F I N L I N E )
0047400 ( Q U O T E | e x p a n d -
0047420 D E F I N L I N E | ) ) \r ( L E
0047440 T * ( ( A 0 4 2 9 X C L : :
0047460 * D E F I N I T I O N - P R O T
0047500 O T Y P E S * ) ( A 0 4 3 1
0047520 ( Q U O T E ( Q U O T E F U
0047540 N C T I O N S ) ) ) ( A 0 4 3
0047560 0 ( C L : G E T F A 0 4 2 9
0047600 \r A 0 4 3 1 ) ) ( A 0 4 3 4
0047620 ( Q U O T E D E F I N L I N
0047640 E ) ) ( A 0 4 3 3 ( C L : F
0047660 U N C T I O N ( L A M B D A
0047700 ( N A M E ) ( A N D ( C L :
0047720 S Y M B O L P N A M E ) ( L
0047740 I S T * ( \r Q U O T E D E F
0047760 I N L I N E ) N A M E ( Q U
0050000 O T E ( ( " A r g L i s t "
0050020 ) " B o d y " ) ) ) ) ) ) ) )
0050040 ( C O N D ( ( N U L L A 0
0050060 4 3 0 ) ( L E T * ( ( A 0 4
0050100 2 9 \r X C L : : * D E F I N I
0050120 T I O N - P R O T O T Y P E S *
0050140 ) ( A 0 4 3 1 ( Q U O T E
0050160 ( Q U O T E F U N C T I O N S
0050200 ) ) ) ( A 0 4 3 0 ( L I S T
0050220 A 0 4 3 4 A 0 4 3 3 ) ) )
0050240 ( C O N D ( ( \r N U L L A 0
0050260 4 2 9 ) ( L E T * ( ( A 0 4
0050300 2 9 ( L I S T A 0 4 3 1 A
0050320 0 4 3 0 ) ) ) ( C L : S E T Q
0050340 X C L : : * D E F I N I T I O
0050360 N - P R O T O T Y P E S * A 0
0050400 4 2 9 ) ) A 0 4 3 0 ) ( T \r
0050420 ( L I S T P U T A 0 4 2 9
0050440 A 0 4 3 1 A 0 4 3 0 ) ) ) )
0050460 A 0 4 3 3 ) ( T ( L I S T P
0050500 U T A 0 4 3 0 A 0 4 3 4 A
0050520 0 4 3 3 ) ) ) ) \r ( L E T * (
0050540 ( A 0 4 4 0 ( Q U O T E D E
0050560 F M A C R O ) ) ( A 0 4 4 1
0050600 ( Q U O T E D E F I N E R - F
0050620 O R ) ) ( A 0 4 4 3 ( Q U O
0050640 T E F U N C T I O N S ) ) )
0050660 ( P U T P R O P A 0 4 4 0 \r
0050700 A 0 4 4 1 A 0 4 4 3 ) ) \r ( L
0050720 E T * ( ( A 0 4 4 4 ( Q U O
0050740 T E F U N C T I O N S ) ) (
0050760 A 0 4 4 5 ( Q U O T E D E F
0051000 I N E D - B Y ) ) ( A 0 4 4 7
0051020 ( C L : A D J O I N ( Q U O
0051040 T E D E F M A C R O ) ( G E
0051060 T \r A 0 4 4 4 A 0 4 4 5 ) )
0051100 ) ) ( P U T P R O P A 0 4 4
0051120 4 A 0 4 4 5 A 0 4 4 7 ) ) \r
0051140 C L : : | e x p a n d - D E F M
0051160 A C R O A 0 0 0 1 | D 1 \r ( L
0051200 ( 1 S I : : $ $ M A C R O -
0051220 E N V I R O N M E N T 0 S I
0051240 : : $ $ M A C R O - F O R M ) )
0051260 \0 250 \t \0 \0 002 @ 002 021 201 \b H 001 271 H
0051300 002 Z 001 273 J 002 274 I 225 I 004 l 004 360 250 o
0051320 \0 \0 \0 I \n \0 \0 277 o \0 \0 \0 I h 032 032
0051340 I \t \0 \0 \n \0 \0 275 I K L \v \0 \0 \t \0
0051360 \0 ^ 001 _ 016 277 N 002 001 _ 020 277 g \0 \0 o
0051400 \0 \0 \0 g \0 \0 g \0 \0 g \0 \0 M h 032 032
0051420 h 032 032 g \0 \0 O 016 h 032 032 h 032 032 032 g
0051440 \0 \0 g \0 \0 g \0 \0 I h 032 032 h 032 032 g
0051460 \0 \0 M h 032 032 h 032 032 032 O 020 264 035 g \0
0051500 \0 g \0 \0 g \0 \0 I h 032 032 o \0 \0 \0 032
0051520 032 O 020 h 032 032 032 h 032 032 032 032 032 020 \0 (
0051540 5 7 \ \ M V L I S T 5 4 S
0051560 I : : E X P A N S I O N - F U N
0051600 C T I O N 4 7 X C L : P A C
0051620 K 4 4 C L : S Y M B O L - P
0051640 A C K A G E 3 1 C L : E R R
0051660 O R ) \r ( 1 4 3 Q U O T E 1
0051700 4 0 C L : D O C U M E N T A T
0051720 I O N 1 3 7 C L : S E T F
0051740 1 2 2 Q U O T E 1 1 2 Q U
0051760 O T E 1 0 9 C L : M A C R O
0052000 - F U N C T I O N 1 0 6 C L
0052020 : S E T F 9 4 C L : F U N C
0052040 T I O N 8 4 Q U O T E 8 1
0052060 C L : S Y M B O L - F U N C T
0052100 I O N 7 8 C L : S E T F 7
0052120 1 C L : E V A L - W H E N ) \r
0052140 ( 1 5 1 ( ( Q U O T E C L
0052160 : F U N C T I O N ) ) 7 5 (
0052200 C L : E V A L C L : C O M P I
0052220 L E C L : L O A D ) 3 6 "
0052240 e x p a n d - " 2 7 " I l l
0052260 e g a l n a m e u s e d i
0052300 n D E F M A C R O : ~ S " )
0052320 \r C L : : | e x p a n d - D E F
0052340 M A C R O | D 1 \r ( L ( 1
0052360 S I : : $ $ M A C R O - E N V I
0052400 R O N M E N T 0 S I : : $ $
0052420 M A C R O - F O R M ) ) \0 b 004
0052440 \0 \0 002 @ 021 1 003 A 271 H \t \0 \0 Z 002 001
0052460 273 g \0 \0 g \0 \0 g \0 \0 g \0 \0 J I h
0052500 032 032 032 032 h 032 032 g \0 \0 o \0 \0 \0 g \0
0052520 \0 o \0 \0 \0 g \0 \0 g \0 \0 K h 032 032 o
0052540 \0 \0 \0 g \0 \0 H h 032 032 h 032 032 032 032 h
0052560 032 032 032 h 032 032 032 g \0 \0 K h 032 032 h 032
0052600 032 032 032 020 \0 ( 9 R E M O V E - C
0052620 O M M E N T S ) \r ( 8 6 Q U O
0052640 T E 6 6 Q U O T E 5 5 Q
0052660 U O T E 5 2 \ \ D E F I N E
0052700 - T Y P E - S A V E - D E F N
0052720 4 5 C L : U N L E S S 3 8
0052740 C L : E V A L - W H E N 2 5
0052760 C L : : | e x p a n d - D E F M
0053000 A C R O A 0 0 0 1 | 2 2 S I
0053020 : : M A C R O - F U N C A L L
0053040 1 9 W I T H O U T - F I L E P
0053060 K G 1 6 P R O G N ) \r ( 6
0053100 3 ( Q U O T E F U N C T I O
0053120 N S ) 4 9 ( N U L L F I L
0053140 E P K G F L G ) 4 2 ( C L :
0053160 E V A L ) ) \r ( S E T F - M A C
0053200 R O - F U N C T I O N ( Q U O
0053220 T E D E F M A C R O ) ( Q U
0053240 O T E C L : : | e x p a n d -
0053260 D E F M A C R O | ) ) \r ( L E T
0053300 * ( ( A 0 4 4 9 X C L : : *
0053320 D E F I N I T I O N - P R O T O
0053340 T Y P E S * ) ( A 0 4 5 1 (
0053360 Q U O T E ( Q U O T E F U N
0053400 C T I O N S ) ) ) ( A 0 4 5 0
0053420 ( C L : G E T F A 0 4 4 9
0053440 \r A 0 4 5 1 ) ) ( A 0 4 5 4
0053460 ( Q U O T E D E F M A C R O )
0053500 ) ( A 0 4 5 3 ( C L : F U N
0053520 C T I O N ( C L : L A M B D A
0053540 ( C L : : N A M E ) ( A N D
0053560 ( C L : S Y M B O L P C L :
0053600 : N A M E ) \r ( L I S T * (
0053620 Q U O T E D E F M A C R O )
0053640 C L : : N A M E ( Q U O T E
0053660 ( ( C L : : A R G - L I S T )
0053700 " B o d y " ) ) ) ) ) ) ) ) (
0053720 C O N D ( ( N U L L A 0 4 5
0053740 0 ) ( L E T * ( ( \r A 0 4 4
0053760 9 X C L : : * D E F I N I T I
0054000 O N - P R O T O T Y P E S * )
0054020 ( A 0 4 5 1 ( Q U O T E ( Q
0054040 U O T E F U N C T I O N S ) )
0054060 ) ( A 0 4 5 0 ( L I S T A
0054100 0 4 5 4 A 0 4 5 3 ) ) ) ( \r
0054120 C O N D ( ( N U L L A 0 4 4
0054140 9 ) ( L E T * ( ( A 0 4 4 9
0054160 ( L I S T A 0 4 5 1 A 0 4
0054200 5 0 ) ) ) ( C L : S E T Q X
0054220 C L : : * D E F I N I T I O N -
0054240 P R O T O T Y P E S * A 0 4 4
0054260 9 ) ) \r A 0 4 5 0 ) ( T (
0054300 L I S T P U T A 0 4 4 9 A 0
0054320 4 5 1 A 0 4 5 0 ) ) ) ) A 0
0054340 4 5 3 ) ( T ( L I S T P U T
0054360 A 0 4 5 0 A 0 4 5 4 A 0 4
0054400 5 3 ) ) ) ) \r ( L E T * ( ( A
0054420 0 4 5 9 ( Q U O T E C L : D
0054440 E F V A R ) ) ( A 0 4 6 0 (
0054460 Q U O T E D E F I N E R - F O
0054500 R ) ) ( A 0 4 6 2 ( Q U O T
0054520 E V A R I A B L E S ) ) ) (
0054540 P U T P R O P A 0 4 5 9 \r A
0054560 0 4 6 0 A 0 4 6 2 ) ) \r ( L E
0054600 T * ( ( A 0 4 6 3 ( Q U O T
0054620 E V A R I A B L E S ) ) ( A
0054640 0 4 6 4 ( Q U O T E D E F I
0054660 N E D - B Y ) ) ( A 0 4 6 6
0054700 ( C L : A D J O I N ( Q U O T
0054720 E C L : D E F V A R ) ( G E
0054740 T \r A 0 4 6 3 A 0 4 6 4 ) )
0054760 ) ) ( P U T P R O P A 0 4 6
0055000 3 A 0 4 6 4 A 0 4 6 6 ) ) \r
0055020 C L : : | e x p a n d - D E F V
0055040 A R A 0 0 0 1 | D 1 \r ( L (
0055060 1 S I : : $ $ M A C R O - E N
0055100 V I R O N M E N T 0 S I : :
0055120 $ $ M A C R O - F O R M ) ) \0
0055140 y 006 \0 \0 002 @ 002 021 Q 005 H 001 271 H 002 Z
0055160 d 220 001 273 J h 360 h 360 274 J 002 264 005 J 002
0055200 001 275 g \0 \0 g \0 \0 g \0 \0 g \0 \0 I h
0055220 032 032 h 032 032 h 032 032 L 264 ! g \0 \0 g \0
0055240 \0 g \0 \0 I h 032 032 h 032 032 g \0 \0 I K
0055260 h 032 032 032 h 032 032 032 h 032 M 264 034 g \0 \0
0055300 g \0 \0 g \0 \0 I h 032 032 o \0 \0 \0 032 032
0055320 M h 032 032 032 h 032 \n \0 \0 032 032 020 \0 ( 1
0055340 1 6 \ \ A P P E N D 2 ) \r ( 9
0055360 6 Q U O T E 9 3 C L : D O
0055400 C U M E N T A T I O N 9 0 C
0055420 L : S E T F 7 2 S E T Q 6
0055440 2 Q U O T E 5 9 B O U N D
0055460 P 5 6 O R 4 0 C L : S P
0055500 E C I A L 3 7 Q U O T E 3
0055520 4 C L : P R O C L A I M 3 1
0055540 P R O G N ) \r ( 1 0 4 ( (
0055560 Q U O T E C L : : V A R I A B
0055600 L E ) ) ) \r C L : : | e x p a n
0055620 d - D E F V A R | D 1 \r ( L
0055640 ( 1 S I : : $ $ M A C R O - E
0055660 N V I R O N M E N T 0 S I :
0055700 : $ $ M A C R O - F O R M ) )
0055720 \0 b 004 \0 \0 002 @ 021 1 003 A 271 H \t \0 \0
0055740 Z 002 001 273 g \0 \0 g \0 \0 g \0 \0 g \0 \0
0055760 J I h 032 032 032 032 h 032 032 g \0 \0 o \0 \0
0056000 \0 g \0 \0 o \0 \0 \0 g \0 \0 g \0 \0 K h
0056020 032 032 o \0 \0 \0 g \0 \0 H h 032 032 h 032 032
0056040 032 032 h 032 032 032 h 032 032 032 g \0 \0 K h 032
0056060 032 h 032 032 032 032 020 \0 ( 9 R E M O V
0056100 E - C O M M E N T S ) \r ( 8 6
0056120 Q U O T E 6 6 Q U O T E 5
0056140 5 Q U O T E 5 2 \ \ D E F
0056160 I N E - T Y P E - S A V E - D E
0056200 F N 4 5 C L : U N L E S S
0056220 3 8 C L : E V A L - W H E N
0056240 2 5 C L : : | e x p a n d - D
0056260 E F V A R A 0 0 0 1 | 2 2 S
0056300 I : : M A C R O - F U N C A L L
0056320 1 9 W I T H O U T - F I L E
0056340 P K G 1 6 P R O G N ) \r (
0056360 6 3 ( Q U O T E V A R I A B
0056400 L E S ) 4 9 ( N U L L F I
0056420 L E P K G F L G ) 4 2 ( C L
0056440 : E V A L ) ) \r ( S E T F - M A
0056460 C R O - F U N C T I O N ( Q U
0056500 O T E C L : D E F V A R ) (
0056520 Q U O T E C L : : | e x p a n
0056540 d - D E F V A R | ) ) \r ( L E T
0056560 * ( ( A 0 4 6 9 X C L : : *
0056600 D E F I N I T I O N - P R O T O
0056620 T Y P E S * ) ( A 0 4 7 1 (
0056640 Q U O T E ( Q U O T E V A R
0056660 I A B L E S ) ) ) ( A 0 4 7 0
0056700 ( C L : G E T F A 0 4 6 9
0056720 \r A 0 4 7 1 ) ) ( A 0 4 7 4
0056740 ( Q U O T E C L : D E F V A R
0056760 ) ) ( A 0 4 7 3 ( C L : F U
0057000 N C T I O N ( C L : L A M B D
0057020 A ( C L : : N A M E ) ( A N
0057040 D ( C L : S Y M B O L P C L
0057060 : : N A M E ) \r ( L I S T (
0057100 Q U O T E C L : D E F V A R )
0057120 C L : : N A M E ) ) ) ) ) )
0057140 ( C O N D ( ( N U L L A 0 4
0057160 7 0 ) ( L E T * ( ( A 0 4 6
0057200 9 X C L : : * D E F I N I T I
0057220 O N - P R O T O T Y P E S * \r )
0057240 ( A 0 4 7 1 ( Q U O T E (
0057260 Q U O T E V A R I A B L E S )
0057300 ) ) ( A 0 4 7 0 ( L I S T
0057320 A 0 4 7 4 A 0 4 7 3 ) ) ) (
0057340 C O N D ( ( N U L L A 0 4 6
0057360 9 ) ( L E T * ( ( A 0 4 6 9
0057400 ( \r L I S T A 0 4 7 1 A 0
0057420 4 7 0 ) ) ) ( C L : S E T Q
0057440 X C L : : * D E F I N I T I O N
0057460 - P R O T O T Y P E S * A 0 4
0057500 6 9 ) ) A 0 4 7 0 ) ( T (
0057520 L I S T P U T A 0 4 6 9 A 0
0057540 4 7 1 A 0 4 7 0 \r ) ) ) ) A
0057560 0 4 7 3 ) ( T ( L I S T P U
0057600 T A 0 4 7 0 A 0 4 7 4 A 0
0057620 4 7 3 ) ) ) ) \r ( L E T * ( (
0057640 A 0 4 8 0 ( Q U O T E C L :
0057660 D E F P A R A M E T E R ) ) (
0057700 A 0 4 8 1 ( Q U O T E D E F
0057720 I N E R - F O R ) ) ( A 0 4 8
0057740 3 ( Q U O T E V A R I A B L
0057760 E S ) ) ) ( P U T P R O P \r
0060000 A 0 4 8 0 A 0 4 8 1 A 0 4 8
0060020 3 ) ) \r ( L E T * ( ( A 0 4 8
0060040 4 ( Q U O T E V A R I A B L
0060060 E S ) ) ( A 0 4 8 5 ( Q U O
0060100 T E D E F I N E D - B Y ) )
0060120 ( A 0 4 8 7 ( C L : A D J O I
0060140 N ( Q U O T E C L : D E F P
0060160 A R A M E T E R ) \r ( G E T
0060200 A 0 4 8 4 A 0 4 8 5 ) ) ) )
0060220 ( P U T P R O P A 0 4 8 4 A
0060240 0 4 8 5 A 0 4 8 7 ) ) \r C L :
0060260 : | e x p a n d - D E F P A R A
0060300 M E T E R A 0 0 0 1 | D 1 \r (
0060320 L ( 1 S I : : $ $ M A C R O
0060340 - E N V I R O N M E N T 0 S
0060360 I : : $ $ M A C R O - F O R M )
0060400 ) \0 T 005 \0 \0 002 @ 002 021 A 004 H 001 271
0060420 H 002 Z 001 273 J 002 d 220 001 274 g \0 \0 g \0
0060440 \0 g \0 \0 g \0 \0 I h 032 032 h 032 032 h 032
0060460 032 g \0 \0 I K h 032 032 032 L 264 034 g \0 \0
0060500 g \0 \0 g \0 \0 I h 032 032 o \0 \0 \0 032 032
0060520 L h 032 032 032 h 032 032 032 032 020 \0 N I L \r
0060540 ( 6 1 Q U O T E 5 8 C L :
0060560 D O C U M E N T A T I O N 5 5
0060600 C L : S E T F 4 3 S E T Q
0060620 3 0 C L : S P E C I A L 2
0060640 7 Q U O T E 2 4 C L : P R
0060660 O C L A I M 2 1 P R O G N )
0060700 \r ( 6 9 ( ( Q U O T E C L
0060720 : : V A R I A B L E ) ) ) \r C L
0060740 : : | e x p a n d - D E F P A R
0060760 A M E T E R | D 1 \r ( L ( 1
0061000 S I : : $ $ M A C R O - E N V
0061020 I R O N M E N T 0 S I : : $
0061040 $ M A C R O - F O R M ) ) \0 b
0061060 004 \0 \0 002 @ 021 1 003 A 271 H \t \0 \0 Z 002
0061100 001 273 g \0 \0 g \0 \0 g \0 \0 g \0 \0 J I
0061120 h 032 032 032 032 h 032 032 g \0 \0 o \0 \0 \0 g
0061140 \0 \0 o \0 \0 \0 g \0 \0 g \0 \0 K h 032 032
0061160 o \0 \0 \0 g \0 \0 H h 032 032 h 032 032 032 032
0061200 h 032 032 032 h 032 032 032 g \0 \0 K h 032 032 h
0061220 032 032 032 032 020 \0 ( 9 R E M O V E -
0061240 C O M M E N T S ) \r ( 8 6 Q U
0061260 O T E 6 6 Q U O T E 5 5
0061300 Q U O T E 5 2 \ \ D E F I N
0061320 E - T Y P E - S A V E - D E F N
0061340 4 5 C L : U N L E S S 3 8
0061360 C L : E V A L - W H E N 2 5
0061400 C L : : | e x p a n d - D E F
0061420 P A R A M E T E R A 0 0 0 1 |
0061440 2 2 S I : : M A C R O - F U N
0061460 C A L L 1 9 W I T H O U T -
0061500 F I L E P K G 1 6 P R O G N
0061520 ) \r ( 6 3 ( Q U O T E V A
0061540 R I A B L E S ) 4 9 ( N U L
0061560 L F I L E P K G F L G ) 4 2
0061600 ( C L : E V A L ) ) \r ( S E T
0061620 F - M A C R O - F U N C T I O N
0061640 ( Q U O T E C L : D E F P A
0061660 R A M E T E R ) ( Q U O T E
0061700 C L : : | e x p a n d - D E F P
0061720 A R A M E T E R | ) ) \r ( L E T
0061740 * ( ( A 0 4 8 9 X C L : : *
0061760 D E F I N I T I O N - P R O T O
0062000 T Y P E S * ) ( A 0 4 9 1 (
0062020 Q U O T E ( Q U O T E V A R
0062040 I A B L E S ) ) ) ( A 0 4 9 0
0062060 ( C L : G E T F A 0 4 8 9
0062100 \r A 0 4 9 1 ) ) ( A 0 4 9 4
0062120 ( Q U O T E C L : D E F P A R
0062140 A M E T E R ) ) ( A 0 4 9 3
0062160 ( C L : F U N C T I O N ( C L
0062200 : L A M B D A ( C L : : N A M
0062220 E ) ( A N D ( C L : S Y M B
0062240 O L P \r C L : : N A M E ) (
0062260 L I S T * ( Q U O T E C L :
0062300 D E F P A R A M E T E R ) C L
0062320 : : N A M E ( Q U O T E ( "
0062340 V a l u e " " D o c u m e n t
0062360 a t i o n s t r i n g " ) ) )
0062400 ) ) ) ) ) ( C O N D \r ( ( N
0062420 U L L A 0 4 9 0 ) ( L E T *
0062440 ( ( A 0 4 8 9 X C L : : * D
0062460 E F I N I T I O N - P R O T O T
0062500 Y P E S * ) ( A 0 4 9 1 ( Q
0062520 U O T E ( Q U O T E V A R I
0062540 A B L E S ) ) ) ( A 0 4 9 0
0062560 ( \r L I S T A 0 4 9 4 A 0 4
0062600 9 3 ) ) ) ( C O N D ( ( N U
0062620 L L A 0 4 8 9 ) ( L E T *
0062640 ( ( A 0 4 8 9 ( L I S T A 0
0062660 4 9 1 A 0 4 9 0 ) ) ) ( C L
0062700 : S E T Q \r X C L : : * D E F
0062720 I N I T I O N - P R O T O T Y P
0062740 E S * A 0 4 8 9 ) ) A 0 4 9
0062760 0 ) ( T ( L I S T P U T A
0063000 0 4 8 9 A 0 4 9 1 A 0 4 9 0
0063020 ) ) ) ) A 0 4 9 3 ) ( T (
0063040 L I S T P U T A 0 4 9 0 \r A
0063060 0 4 9 4 A 0 4 9 3 ) ) ) ) \r (
0063100 L E T * ( ( A 0 5 0 0 ( Q U
0063120 O T E C L : D E F C O N S T A
0063140 N T ) ) ( A 0 5 0 1 ( Q U O
0063160 T E D E F I N E R - F O R ) )
0063200 ( A 0 5 0 3 ( Q U O T E V
0063220 A R I A B L E S ) ) ) ( P U T
0063240 P R O P \r A 0 5 0 0 A 0 5 0
0063260 1 A 0 5 0 3 ) ) \r ( L E T *
0063300 ( ( A 0 5 0 4 ( Q U O T E V
0063320 A R I A B L E S ) ) ( A 0 5 0
0063340 5 ( Q U O T E D E F I N E D
0063360 - B Y ) ) ( A 0 5 0 7 ( C L
0063400 : A D J O I N ( Q U O T E C
0063420 L : D E F C O N S T A N T ) (
0063440 \r G E T A 0 5 0 4 A 0 5 0 5
0063460 ) ) ) ) ( P U T P R O P A 0
0063500 5 0 4 A 0 5 0 5 A 0 5 0 7 )
0063520 ) \r C L : : | e x p a n d - D E
0063540 F C O N S T A N T A 0 0 0 1 |
0063560 D 1 \r ( L ( 1 S I : : $ $ M
0063600 A C R O - E N V I R O N M E N T
0063620 0 S I : : $ $ M A C R O - F
0063640 O R M ) ) \0 _ 005 \0 \0 002 @ 002 021 A
0063660 004 H 001 271 H 002 Z 001 273 J 002 d 220 001 274 g
0063700 \0 \0 g \0 \0 I K h 032 032 032 g \0 \0 g \0
0063720 \0 I h 032 032 g \0 \0 g \0 \0 I h 032 032 h
0063740 032 032 o \0 \0 \0 032 032 032 L 264 034 g \0 \0 g
0063760 \0 \0 g \0 \0 I h 032 032 o \0 \0 \0 032 032 L
0064000 h 032 032 032 h 032 032 032 032 020 \0 N I L \r (
0064020 7 2 Q U O T E 6 9 C L : D
0064040 O C U M E N T A T I O N 6 6
0064060 C L : S E T F 4 6 C O N S T
0064100 A N T 4 3 Q U O T E 3 6
0064120 Q U O T E 3 3 P U T H A S H
0064140 2 4 S E T Q 2 1 P R O G
0064160 N ) \r ( 8 0 ( ( Q U O T E
0064200 C L : : V A R I A B L E ) ) 5
0064220 7 ( C O M P V A R M A C R O H
0064240 A S H ) ) \r C L : : | e x p a n
0064260 d - D E F C O N S T A N T | D
0064300 1 \r ( L ( 1 S I : : $ $ M A
0064320 C R O - E N V I R O N M E N T
0064340 0 S I : : $ $ M A C R O - F O
0064360 R M ) ) \0 b 004 \0 \0 002 @ 021 1 003 A
0064400 271 H \t \0 \0 Z 002 001 273 g \0 \0 g \0 \0 g
0064420 \0 \0 g \0 \0 J I h 032 032 032 032 h 032 032 g
0064440 \0 \0 o \0 \0 \0 g \0 \0 o \0 \0 \0 g \0 \0
0064460 g \0 \0 K h 032 032 o \0 \0 \0 g \0 \0 H h
0064500 032 032 h 032 032 032 032 h 032 032 032 h 032 032 032 g
0064520 \0 \0 K h 032 032 h 032 032 032 032 020 \0 ( 9
0064540 R E M O V E - C O M M E N T S )
0064560 \r ( 8 6 Q U O T E 6 6 Q U
0064600 O T E 5 5 Q U O T E 5 2
0064620 \ \ D E F I N E - T Y P E - S A
0064640 V E - D E F N 4 5 C L : U N
0064660 L E S S 3 8 C L : E V A L -
0064700 W H E N 2 5 C L : : | e x p
0064720 a n d - D E F C O N S T A N T A
0064740 0 0 0 1 | 2 2 S I : : M A C
0064760 R O - F U N C A L L 1 9 W I
0065000 T H O U T - F I L E P K G 1 6
0065020 P R O G N ) \r ( 6 3 ( Q U
0065040 O T E V A R I A B L E S ) 4
0065060 9 ( N U L L F I L E P K G F
0065100 L G ) 4 2 ( C L : E V A L )
0065120 ) \r ( S E T F - M A C R O - F U
0065140 N C T I O N ( Q U O T E C L
0065160 : D E F C O N S T A N T ) ( Q
0065200 U O T E C L : : | e x p a n d
0065220 - D E F C O N S T A N T | ) ) \r
0065240 ( L E T * ( ( A 0 5 0 9 X C
0065260 L : : * D E F I N I T I O N - P
0065300 R O T O T Y P E S * ) ( A 0 5
0065320 1 1 ( Q U O T E ( Q U O T E
0065340 V A R I A B L E S ) ) ) ( A
0065360 0 5 1 0 ( C L : G E T F A 0
0065400 5 0 9 \r A 0 5 1 1 ) ) ( A 0
0065420 5 1 4 ( Q U O T E C L : D E
0065440 F C O N S T A N T ) ) ( A 0 5
0065460 1 3 ( C L : F U N C T I O N
0065500 ( C L : L A M B D A ( C L : :
0065520 N A M E ) ( A N D ( C L : S
0065540 Y M B O L P \r C L : : N A M E
0065560 ) ( L I S T * ( Q U O T E
0065600 C L : D E F C O N S T A N T )
0065620 C L : : N A M E ( Q U O T E
0065640 ( " V a l u e " " D o c u m e
0065660 n t a t i o n s t r i n g " )
0065700 ) ) ) ) ) ) ) ( C O N D \r (
0065720 ( N U L L A 0 5 1 0 ) ( L E
0065740 T * ( ( A 0 5 0 9 X C L : :
0065760 * D E F I N I T I O N - P R O T
0066000 O T Y P E S * ) ( A 0 5 1 1
0066020 ( Q U O T E ( Q U O T E V A
0066040 R I A B L E S ) ) ) ( A 0 5 1
0066060 0 ( \r L I S T A 0 5 1 4 A
0066100 0 5 1 3 ) ) ) ( C O N D ( (
0066120 N U L L A 0 5 0 9 ) ( L E T
0066140 * ( ( A 0 5 0 9 ( L I S T
0066160 A 0 5 1 1 A 0 5 1 0 ) ) ) (
0066200 C L : S E T Q \r X C L : : * D
0066220 E F I N I T I O N - P R O T O T
0066240 Y P E S * A 0 5 0 9 ) ) A 0
0066260 5 1 0 ) ( T ( L I S T P U T
0066300 A 0 5 0 9 A 0 5 1 1 A 0 5
0066320 1 0 ) ) ) ) A 0 5 1 3 ) ( T
0066340 ( L I S T P U T A 0 5 1 0 \r
0066360 A 0 5 1 4 A 0 5 1 3 ) ) ) )
0066400 \r ( L E T * ( ( A 0 5 1 9 (
0066420 Q U O T E D E F G L O B A L V
0066440 A R ) ) ( A 0 5 2 0 ( Q U O
0066460 T E D E F I N E R - F O R ) )
0066500 ( A 0 5 2 2 ( Q U O T E V
0066520 A R I A B L E S ) ) ) ( P U T
0066540 P R O P \r A 0 5 1 9 A 0 5 2
0066560 0 A 0 5 2 2 ) ) \r ( L E T *
0066600 ( ( A 0 5 2 3 ( Q U O T E V
0066620 A R I A B L E S ) ) ( A 0 5 2
0066640 4 ( Q U O T E D E F I N E D
0066660 - B Y ) ) ( A 0 5 2 6 ( C L
0066700 : A D J O I N ( Q U O T E D
0066720 E F G L O B A L V A R ) ( \r G
0066740 E T A 0 5 2 3 A 0 5 2 4 ) )
0066760 ) ) ( P U T P R O P A 0 5 2
0067000 3 A 0 5 2 4 A 0 5 2 6 ) ) \r
0067020 | e x p a n d - D E F G L O B A
0067040 L V A R A 0 0 0 1 | D 1 \r ( L
0067060 ( 1 S I : : $ $ M A C R O -
0067100 E N V I R O N M E N T 0 S I
0067120 : : $ $ M A C R O - F O R M ) )
0067140 \0 y 006 \0 \0 002 @ 002 021 Q 005 H 001 271 H
0067160 002 Z d 220 001 273 J h 360 h 360 274 J 002 264 005
0067200 J 002 001 275 g \0 \0 g \0 \0 g \0 \0 g \0 \0
0067220 I h 032 032 h 032 032 h 032 032 L 264 ! g \0 \0
0067240 g \0 \0 g \0 \0 I h 032 032 h 032 032 g \0 \0
0067260 I K h 032 032 032 h 032 032 032 h 032 M 264 034 g
0067300 \0 \0 g \0 \0 g \0 \0 I h 032 032 o \0 \0 \0
0067320 032 032 M h 032 032 032 h 032 \n \0 \0 032 032 020 \0
0067340 ( 1 1 6 \ \ A P P E N D 2 ) \r
0067360 ( 9 6 Q U O T E 9 3 C L :
0067400 D O C U M E N T A T I O N 9 0
0067420 C L : S E T F 7 2 S E T Q
0067440 6 2 Q U O T E 5 9 B O U
0067460 N D P 5 6 O R 4 0 G L O
0067500 B A L 3 7 Q U O T E 3 4
0067520 C L : P R O C L A I M 3 1 P
0067540 R O G N ) \r ( 1 0 4 ( ( Q U
0067560 O T E C L : : V A R I A B L E
0067600 ) ) ) \r | e x p a n d - D E F G
0067620 L O B A L V A R | D 1 \r ( L
0067640 ( 1 S I : : $ $ M A C R O - E
0067660 N V I R O N M E N T 0 S I :
0067700 : $ $ M A C R O - F O R M ) )
0067720 \0 b 004 \0 \0 002 @ 021 1 003 A 271 H \t \0 \0
0067740 Z 002 001 273 g \0 \0 g \0 \0 g \0 \0 g \0 \0
0067760 J I h 032 032 032 032 h 032 032 g \0 \0 o \0 \0
0070000 \0 g \0 \0 o \0 \0 \0 g \0 \0 g \0 \0 K h
0070020 032 032 o \0 \0 \0 g \0 \0 H h 032 032 h 032 032
0070040 032 032 h 032 032 032 h 032 032 032 g \0 \0 K h 032
0070060 032 h 032 032 032 032 020 \0 ( 9 R E M O V
0070100 E - C O M M E N T S ) \r ( 8 6
0070120 Q U O T E 6 6 Q U O T E 5
0070140 5 Q U O T E 5 2 \ \ D E F
0070160 I N E - T Y P E - S A V E - D E
0070200 F N 4 5 C L : U N L E S S
0070220 3 8 C L : E V A L - W H E N
0070240 2 5 | e x p a n d - D E F G L
0070260 O B A L V A R A 0 0 0 1 | 2 2
0070300 S I : : M A C R O - F U N C A
0070320 L L 1 9 W I T H O U T - F I
0070340 L E P K G 1 6 P R O G N ) \r
0070360 ( 6 3 ( Q U O T E V A R I
0070400 A B L E S ) 4 9 ( N U L L
0070420 F I L E P K G F L G ) 4 2 (
0070440 C L : E V A L ) ) \r ( S E T F -
0070460 M A C R O - F U N C T I O N (
0070500 Q U O T E D E F G L O B A L V
0070520 A R ) ( Q U O T E | e x p a
0070540 n d - D E F G L O B A L V A R |
0070560 ) ) \r ( L E T * ( ( A 0 5 2 8
0070600 X C L : : * D E F I N I T I O
0070620 N - P R O T O T Y P E S * ) (
0070640 A 0 5 3 0 ( Q U O T E ( Q U
0070660 O T E V A R I A B L E S ) ) )
0070700 ( A 0 5 2 9 ( C L : G E T F
0070720 A 0 5 2 8 \r A 0 5 3 0 ) )
0070740 ( A 0 5 3 3 ( Q U O T E D E
0070760 F G L O B A L V A R ) ) ( A 0
0071000 5 3 2 ( C L : F U N C T I O N
0071020 ( C L : L A M B D A ( C L :
0071040 : N A M E ) ( A N D ( C L :
0071060 S Y M B O L P C L : : N A M E
0071100 \r ) ( L I S T ( Q U O T E
0071120 D E F G L O B A L V A R ) C L
0071140 : : N A M E ) ) ) ) ) ) ( C O
0071160 N D ( ( N U L L A 0 5 2 9 )
0071200 ( L E T * ( ( A 0 5 2 8 \r
0071220 X C L : : * D E F I N I T I O N
0071240 - P R O T O T Y P E S * ) ( A
0071260 0 5 3 0 ( Q U O T E ( Q U O
0071300 T E V A R I A B L E S ) ) )
0071320 ( A 0 5 2 9 ( L I S T A 0 5
0071340 3 3 A 0 5 3 2 ) ) ) ( C O N
0071360 D ( ( \r N U L L A 0 5 2 8 )
0071400 ( L E T * ( ( A 0 5 2 8 (
0071420 L I S T A 0 5 3 0 A 0 5 2 9
0071440 ) ) ) ( C L : S E T Q X C L
0071460 : : * D E F I N I T I O N - P R
0071500 O T O T Y P E S * A 0 5 2 8 )
0071520 ) A 0 5 2 9 ) ( T \r ( L I
0071540 S T P U T A 0 5 2 8 A 0 5 3
0071560 0 A 0 5 2 9 ) ) ) ) A 0 5 3
0071600 2 ) ( T ( L I S T P U T A
0071620 0 5 2 9 A 0 5 3 3 A 0 5 3 2
0071640 ) ) ) ) \r ( L E T * ( ( A 0 5
0071660 3 9 ( Q U O T E D E F G L O
0071700 B A L P A R A M E T E R ) ) (
0071720 A 0 5 4 0 ( Q U O T E D E F
0071740 I N E R - F O R ) ) ( A 0 5 4
0071760 2 ( Q U O T E V A R I A B L
0072000 E S ) ) ) ( \r P U T P R O P
0072020 A 0 5 3 9 A 0 5 4 0 A 0 5 4
0072040 2 ) ) \r ( L E T * ( ( A 0 5 4
0072060 3 ( Q U O T E V A R I A B L
0072100 E S ) ) ( A 0 5 4 4 ( Q U O
0072120 T E D E F I N E D - B Y ) )
0072140 ( A 0 5 4 6 ( C L : A D J O I
0072160 N ( Q U O T E \r D E F G L O
0072200 B A L P A R A M E T E R ) ( G
0072220 E T A 0 5 4 3 A 0 5 4 4 ) )
0072240 ) ) ( P U T P R O P A 0 5 4
0072260 3 A 0 5 4 4 A 0 5 4 6 ) ) \r
0072300 | e x p a n d - D E F G L O B A
0072320 L P A R A M E T E R A 0 0 0 1 |
0072340 D 1 \r ( L ( 1 S I : : $ $
0072360 M A C R O - E N V I R O N M E N
0072400 T 0 S I : : $ $ M A C R O -
0072420 F O R M ) ) \0 T 005 \0 \0 002 @ 002 021
0072440 A 004 H 001 271 H 002 Z 001 273 J 002 d 220 001 274
0072460 g \0 \0 g \0 \0 g \0 \0 g \0 \0 I h 032 032
0072500 h 032 032 h 032 032 g \0 \0 I K h 032 032 032 L
0072520 264 034 g \0 \0 g \0 \0 g \0 \0 I h 032 032 o
0072540 \0 \0 \0 032 032 L h 032 032 032 h 032 032 032 032 020
0072560 \0 N I L \r ( 6 1 Q U O T E 5
0072600 8 C L : D O C U M E N T A T I
0072620 O N 5 5 C L : S E T F 4 3
0072640 S E T Q 3 0 G L O B A L
0072660 2 7 Q U O T E 2 4 C L : P
0072700 R O C L A I M 2 1 P R O G N
0072720 ) \r ( 6 9 ( ( Q U O T E C
0072740 L : : V A R I A B L E ) ) ) \r |
0072760 e x p a n d - D E F G L O B A L
0073000 P A R A M E T E R | D 1 \r ( L
0073020 ( 1 S I : : $ $ M A C R O -
0073040 E N V I R O N M E N T 0 S I
0073060 : : $ $ M A C R O - F O R M ) )
0073100 \0 b 004 \0 \0 002 @ 021 1 003 A 271 H \t \0
0073120 \0 Z 002 001 273 g \0 \0 g \0 \0 g \0 \0 g \0
0073140 \0 J I h 032 032 032 032 h 032 032 g \0 \0 o \0
0073160 \0 \0 g \0 \0 o \0 \0 \0 g \0 \0 g \0 \0 K
0073200 h 032 032 o \0 \0 \0 g \0 \0 H h 032 032 h 032
0073220 032 032 032 h 032 032 032 h 032 032 032 g \0 \0 K h
0073240 032 032 h 032 032 032 032 020 \0 ( 9 R E M O
0073260 V E - C O M M E N T S ) \r ( 8 6
0073300 Q U O T E 6 6 Q U O T E
0073320 5 5 Q U O T E 5 2 \ \ D E
0073340 F I N E - T Y P E - S A V E - D
0073360 E F N 4 5 C L : U N L E S S
0073400 3 8 C L : E V A L - W H E N
0073420 2 5 | e x p a n d - D E F G
0073440 L O B A L P A R A M E T E R A 0
0073460 0 0 1 | 2 2 S I : : M A C R
0073500 O - F U N C A L L 1 9 W I T
0073520 H O U T - F I L E P K G 1 6
0073540 P R O G N ) \r ( 6 3 ( Q U O
0073560 T E V A R I A B L E S ) 4 9
0073600 ( N U L L F I L E P K G F L
0073620 G ) 4 2 ( C L : E V A L ) )
0073640 \r ( S E T F - M A C R O - F U N
0073660 C T I O N ( Q U O T E D E F
0073700 G L O B A L P A R A M E T E R )
0073720 ( Q U O T E | e x p a n d -
0073740 D E F G L O B A L P A R A M E T
0073760 E R | ) ) \r ( L E T * ( ( A 0
0074000 5 4 8 X C L : : * D E F I N I
0074020 T I O N - P R O T O T Y P E S *
0074040 ) ( A 0 5 5 0 ( Q U O T E
0074060 ( Q U O T E V A R I A B L E S
0074100 ) ) ) ( A 0 5 4 9 ( C L : G
0074120 E T F A 0 5 4 8 \r A 0 5 5 0
0074140 ) ) ( A 0 5 5 3 ( Q U O T E
0074160 D E F G L O B A L P A R A M E
0074200 T E R ) ) ( A 0 5 5 2 ( C L
0074220 : F U N C T I O N ( C L : L A
0074240 M B D A ( C L : : N A M E )
0074260 ( A N D ( C L : S Y M B O L P
0074300 \r C L : : N A M E ) ( L I S
0074320 T * ( Q U O T E D E F G L O
0074340 B A L P A R A M E T E R ) C L
0074360 : : N A M E ( Q U O T E ( "
0074400 V a l u e " " D o c u m e n t
0074420 a t i o n s t r i n g " ) ) )
0074440 ) ) ) ) ) ( \r C O N D ( ( N
0074460 U L L A 0 5 4 9 ) ( L E T *
0074500 ( ( A 0 5 4 8 X C L : : * D
0074520 E F I N I T I O N - P R O T O T
0074540 Y P E S * ) ( A 0 5 5 0 ( Q
0074560 U O T E ( Q U O T E V A R I
0074600 A B L E S ) ) ) ( \r A 0 5 4 9
0074620 ( L I S T A 0 5 5 3 A 0 5
0074640 5 2 ) ) ) ( C O N D ( ( N U
0074660 L L A 0 5 4 8 ) ( L E T *
0074700 ( ( A 0 5 4 8 ( L I S T A 0
0074720 5 5 0 A 0 5 4 9 ) ) ) ( C L
0074740 : S E T Q \r X C L : : * D E F
0074760 I N I T I O N - P R O T O T Y P
0075000 E S * A 0 5 4 8 ) ) A 0 5 4
0075020 9 ) ( T ( L I S T P U T A
0075040 0 5 4 8 A 0 5 5 0 A 0 5 4 9
0075060 ) ) ) ) A 0 5 5 2 ) ( T (
0075100 L I S T P U T A 0 5 4 9 \r A
0075120 0 5 5 3 A 0 5 5 2 ) ) ) ) \r (
0075140 P U T P R O P S M A C R O - F
0075160 N P R O P T Y P E F U N C T
0075200 I O N S ) \r ( P U T P R O P S
0075220 U N D E F I N E R S P R O P T
0075240 Y P E I G N O R E ) \r ( P U T
0075260 P R O P S D E F I N E R - F O
0075300 R P R O P T Y P E I G N O R
0075320 E ) \r ( P U T P R O P S D E F
0075340 I N E D - B Y P R O P T Y P E
0075360 I G N O R E ) \r ( P U T P R O
0075400 P S C M L D E F F E R F I L
0075420 E T Y P E C L : C O M P I L E
0075440 - F I L E ) \r ( P U T P R O P S
0075460 C M L D E F F E R C O P Y R
0075500 I G H T ( " X e r o x C o r
0075520 p o r a t i o n " 1 9 8 6 1
0075540 9 0 0 ) ) \r N I L \r
0075552