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