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