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