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