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