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