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