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