$ od -c -N 50000 [eris]<LispCore>SOURCES>CMLREADTABLE.DCOM!3
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 4 -
0000120 O c t - 8 6 1 6 : 0 4 : 0 5 "
0000140 ( " c o m p i l e d o n "
0000160 { E R I S } < L I S P C O R E
0000200 > S O U R C E S > C M L R E A D
0000220 T A B L E . ; 3 ) \r " 1 2 - O
0000240 c t - 8 6 2 3 : 0 4 : 1 5 "
0000260 " C O M P I L E - F I L E d "
0000300 i n " X e r o x L i s p 1
0000320 2 - O c t - 8 6 . . . " d a
0000340 t e d " 1 2 - O c t - 8 6 2
0000360 3 : 4 1 : 0 2 " ) \r ( F I L E C
0000400 R E A T E D " 1 4 - O c t - 8
0000420 6 1 6 : 0 3 : 2 9 " { E R I
0000440 S } < L I S P C O R E > S O U R
0000460 C E S > C M L R E A D T A B L E
0000500 . ; 3 2 0 1 6 6 c h a n g e
0000520 s t o % : ( F N S \r C M L
0000540 R D T B L ) ( V A R S C M L
0000560 R E A D T A B L E C O M S ) p
0000600 r e v i o u s d a t e % : "
0000620 1 4 - O c t - 8 6 1 4 : 3 6 :
0000640 4 2 " \r { E R I S } < L I S P
0000660 C O R E > S O U R C E S > C M L
0000700 R E A D T A B L E . ; 1 ) \r ( R
0000720 P A Q Q C M L R E A D T A B L
0000740 E C O M S ( ( C O M S ( *
0000760 ; " C o m m o n L i s p r
0001000 e a d t a b l e i n t e r f a
0001020 c e f u n c t i o n s " )
0001040 ( F U N C T I O N S \r C L : S
0001060 E T - S Y N T A X - F R O M - C
0001100 H A R C L : G E T - D I S P A
0001120 T C H - M A C R O - C H A R A C
0001140 T E R C L : G E T - M A C R O
0001160 - C H A R A C T E R \r C L : M
0001200 A K E - D I S P A T C H - M A C
0001220 R O - C H A R A C T E R C L :
0001240 S E T - D I S P A T C H - M A C
0001260 R O - C H A R A C T E R C L :
0001300 S E T - M A C R O - C H A R A C
0001320 T E R ) ( F U N C T I O N S
0001340 \r D O - D I S P A T C H - M A C
0001360 R O F I N D - M A C R O - F U
0001400 N C T I O N C L - M A C R O -
0001420 W R A P P E D - P C L - U N W
0001440 R A P - M A C R O C L - W R A
0001460 P - M A C R O \r I L - M A C R
0001500 O - W R A P P E D - P I L - U
0001520 N W R A P - M A C R O I L - W
0001540 R A P - M A C R O ) ) ( C O M
0001560 S ( * ; " h a s h m a c
0001600 r o s u b f u n c t i o n s
0001620 " ) ( F U N C T I O N S \r H
0001640 A S H - L E F T P A R E N H A
0001660 S H - A H A S H - B H A S H
0001700 - B A C K S L A S H H A S H -
0001720 C H A S H - C O L O N H A S
0001740 H - C O M M A H A S H - D O T
0001760 H A S H - D O U B L E Q U O T
0002000 E \r H A S H - I L L E G A L -
0002020 H A S H - C H A R H A S H - L
0002040 E F T A N G L E H A S H - M I
0002060 N U S H A S H - N O - P A R A
0002100 M E T E R - E R R O R H A S H
0002120 - O H A S H - P L U S H A S
0002140 H - Q U O T E \r H A S H - R
0002160 H A S H - S H A S H - S T A R
0002200 H A S H - V B A R H A S H -
0002220 X ) ) ( C O M S ( * ; "
0002240 C o m m o n L i s p d e f a
0002260 u l t r e a d t a b l e s " )
0002300 ( F N S C M L R D T B L \r
0002320 I N I T - C M L - R E A D T A B
0002340 L E S S E T - D E F A U L T -
0002360 H A S H M A C R O - S E T T I N
0002400 G S C M L R E A D S E M I )
0002420 ( D E C L A R E % : D O N T E
0002440 V A L @ L O A D D O C O P Y
0002460 ( P ( \r I N I T - C M L - R E
0002500 A D T A B L E S ) ) ) ) ( P R
0002520 O P F I L E T Y P E C M L R
0002540 E A D T A B L E ) ) ) \r C L : S
0002560 E T - S Y N T A X - F R O M - C
0002600 H A R D 1 \r ( L ( 0 - a r
0002620 g s - ) F 5 * R E A D T A
0002640 B L E * F 6 C M L R D T B
0002660 L ) \0 7 005 002 002 \0 e 021 001 \0 k a 021
0002700 1 004 l 002 a 272 l 003 H 361 221 U 202 l 003 a
0002720 273 l 004 H 361 221 V 202 l 004 a 274 I 006 \0 \0
0002740 323 J 006 \0 \0 323 L \n \0 \0 K \v \0 \0 020 \0
0002760 ( 5 2 S E T S Y N T A X 4 8
0003000 G E T S Y N T A X ) \r ( 4 3
0003020 C H A R A C T E R 3 8 C H A
0003040 R A C T E R ) \r ( ) \r C L : G E
0003060 T - D I S P A T C H - M A C R O
0003100 - C H A R A C T E R D 1 \r ( L
0003120 ( 0 - a r g s - ) F 4
0003140 * R E A D T A B L E * ) \0 # 004
0003160 001 002 \0 e 021 001 \0 k a 021 ! 003 l 002 a 272
0003200 l 003 H 361 221 T 202 l 003 a 273 J I K 311 004
0003220 026 002 026 002 020 \0 N I L \r N I L \r ( )
0003240 \r C L : G E T - M A C R O - C H
0003260 A R A C T E R D 1 \r ( L ( 0
0003300 - a r g s - ) F 4 * R E
0003320 A D T A B L E * ) \0 d 004 001 002 \0
0003340 e 021 001 \0 k a 021 ! 003 l 002 H 361 221 T 202
0003360 l 002 a 272 I 006 \0 \0 323 J \n \0 \0 [ 003 264
0003400 C K 001 g \0 \0 360 264 ; K 002 003 264 6 K 002
0003420 001 d g \0 \0 360 245 d g \0 \0 360 222 277 i 201
0003440 277 h 264 K 002 002 [ 003 264 031 K 002 h 360 264
0003460 023 K 001 \t \0 \0 K 002 001 g \0 \0 360 h 360 \n
0003500 \0 \0 020 \0 ( 9 7 C L : V A L U E
0003520 S 8 5 F I N D - M A C R O -
0003540 F U N C T I O N 2 8 G E T S
0003560 Y N T A X ) \r ( 9 1 A L W A Y
0003600 S 5 8 F I R S T 5 2 A L
0003620 W A Y S 3 7 M A C R O 2 3
0003640 C H A R A C T E R ) \r ( ) \r C
0003660 L : M A K E - D I S P A T C H -
0003700 M A C R O - C H A R A C T E R
0003720 D 1 \r ( L ( 0 - a r g s - )
0003740 F 4 * R E A D T A B L E *
0003760 ) \0 P 004 001 002 \0 e 021 001 \0 k a 021 !
0004000 003 l 002 H 361 221 h 202 l 002 a 272 l 003 H 361
0004020 221 T 202 l 003 a 273 I 006 \0 \0 323 g \0 \0 J
0004040 223 g \0 \0 202 g \0 \0 g \0 \0 o \0 \0 \0 g
0004060 \0 \0 I o \0 \0 \0 032 032 h 032 032 032 h 032 032
0004100 032 K \v \0 \0 i 020 \0 ( 7 6 S E T S
0004120 Y N T A X ) \r ( 5 7 D O - D I
0004140 S P A T C H - M A C R O 5 0
0004160 L A M B D A 4 7 A L W A Y S
0004200 4 3 F I R S T 3 8 M A C
0004220 R O 3 4 C H A R A C T E R )
0004240 \r ( 6 2 ( S T R E A M R E
0004260 A D T A B L E ) 5 4 ( S T R
0004300 E A M R E A D T A B L E Z )
0004320 ) \r C L : S E T - D I S P A T C
0004340 H - M A C R O - C H A R A C T E
0004360 R D 1 \r ( L ( 0 - a r g s
0004400 - ) F 1 0 * R E A D T A B
0004420 L E * ) \0 210 \n 001 002 \0 e 021 001 \0 k
0004440 a 021 201 \t l 002 a 272 l 003 a 273 l 004 H 361
0004460 222 W 024 202 l 004 a 274 J \t \0 \0 230 o \0 \0
0004500 \0 J \n \0 \0 277 l \a J 006 \0 \0 323 275 l a
0004520 M 363 221 h 200 i 235 M l z 363 221 h 200 i 224
0004540 M l 325 200 M 321 Z I L 311 004 026 265 020 I
0004560 h 032 276 L N L 311 004 032 024 004 277 N _ 016 277
0004600 J O 016 002 026 265 016 O 016 J K 032 O 016 002 032
0004620 031 i 020 _ 022 277 K _ 020 277 O 022 O 020 031 277
0004640 260 361 \0 ( 4 1 C L : E R R O R
0004660 3 2 C L : D I G I T - C H A R
0004700 - P ) \r ( 4 8 C H A R A C T E
0004720 R ) \r ( 3 7 " D i g i t ~
0004740 S i l l e g a l a s a s
0004760 u b - c h a r a c t e r f o r
0005000 a d i s p a t c h i n g m
0005020 a c r o " ) \r C L : S E T - M A
0005040 C R O - C H A R A C T E R D 1
0005060 \r ( L ( 0 - a r g s - ) F
0005100 5 * R E A D T A B L E * )
0005120 \0 M 005 001 002 \0 e 021 001 \0 k a 021 1 004 l
0005140 002 a 272 l 003 H 361 221 h 202 l 003 a 273 l 004
0005160 H 361 221 U 202 l 004 a 274 I 006 \0 \0 323 g \0
0005200 \0 K 223 g \0 \0 202 g \0 \0 J d \t \0 \0 225
0005220 277 J \t \0 \0 202 \t \0 \0 h 032 032 032 L \v \0
0005240 \0 020 \0 ( 7 4 S E T S Y N T A X
0005260 6 6 C L - W R A P - M A C R
0005300 O 6 2 I L - U N W R A P - M
0005320 A C R O 5 6 I L - M A C R O
0005340 - W R A P P E D - P ) \r ( 5 1
0005360 A L W A Y S 4 7 F I R S T
0005400 4 2 M A C R O 3 8 C H A R
0005420 A C T E R ) \r ( ) \r D O - D I S
0005440 P A T C H - M A C R O D 1 \r (
0005460 L ( 2 R D T B L 1 S T R
0005500 E A M 0 C H A R ) P 0
0005520 * R E A D T A B L E * ) \0 230 \t
0005540 \0 \0 003 B @ B 311 004 026 002 021 r \b I 221 h
0005560 200 i 262 ( o \0 \0 \0 @ \n \0 \0 020 i 232 L
0005600 l 9 361 221 h 200 i 221 h 200 i 263 037 J 265 003
0005620 j l \n 326 K l 0 325 324 272 A B \n \0 \0 [
0005640 274 l 0 L 361 262 330 h 260 326 l \a K ] 005 001
0005660 264 017 j M 363 221 h 200 i 264 006 l \a M 321 006
0005700 \0 \0 323 276 l a N 363 221 h 200 i 235 N l z
0005720 363 221 h 200 i 224 N l 325 200 N 321 _ 016 I
0005740 026 002 _ 020 231 A O 016 J l 003 O 020 016 020 o
0005760 \0 \0 \0 O 016 @ \v \0 \0 020 \0 ( 1 4 9
0006000 C L : E R R O R 5 9 R E A D
0006020 C C O D E 2 4 C L : E R R O
0006040 R ) \r ( 9 4 C H A R A C T E R
0006060 ) \r ( 1 4 3 " U n d e f i n
0006100 e d d i s p a t c h c h a r
0006120 a c t e r ~ S f o r d i s
0006140 p a t c h m a c r o c h a r
0006160 a c t e r ~ S " 2 0 " ~ S
0006200 i s n o t a d i s p a t
0006220 c h m a c r o c h a r a c t
0006240 e r " ) \r F I N D - M A C R O -
0006260 F U N C T I O N D 1 \r ( L (
0006300 0 F O R M ) ) \0 027 \0 \0 \0 001 @
0006320 d \t \0 \0 225 277 @ \t \0 \0 020 \t \0 \0 264 006
0006340 @ \t \0 \0 020 \0 ( 2 0 I L - W R A
0006360 P - M A C R O 1 4 C L : F U
0006400 N C T I O N P 1 0 C L - U N
0006420 W R A P - M A C R O 4 C L -
0006440 M A C R O - W R A P P E D - P )
0006460 \r N I L \r ( ) \r C L - M A C R O
0006500 - W R A P P E D - P D 1 \r ( L
0006520 ( 0 F O R M ) ) \0 = \0 \0 \0
0006540 001 @ 003 264 9 @ 001 g \0 \0 360 264 1 @ 002 003
0006560 264 , @ 002 001 o \0 \0 \0 \n \0 \0 264 @ 002
0006600 002 003 264 032 @ 002 002 002 h 360 264 022 @ 002 002 001
0006620 003 264 \v @ 002 002 001 001 g \0 \0 360 020 \0 ( 2
0006640 6 C L : E Q U A L ) \r ( 5 7
0006660 C L : F U N C A L L 8 C L :
0006700 L A M B D A ) \r ( 2 3 ( S T
0006720 R E A M R E A D T A B L E Z
0006740 ) ) \r C L - U N W R A P - M A C
0006760 R O D 1 \r ( L ( 0 F O R M
0007000 ) ) \0 \n \0 \0 \0 001 @ 002 002 001 002 001 002
0007020 001 020 \0 N I L \r N I L \r ( ) \r C L
0007040 - W R A P - M A C R O D 1 \r (
0007060 L ( 1 C H A R 0 F N ) )
0007100 \0 \0 \0 \0 002 g \0 \0 o \0 \0 \0 g \0
0007120 \0 g \0 \0 @ h 032 032 g \0 \0 A h 032 032 032
0007140 032 h 032 032 032 020 \0 N I L \r ( 1 9 S
0007160 T R E A M 1 2 Q U O T E 9
0007200 C L : F U N C A L L 2 C L
0007220 : L A M B D A ) \r ( 6 ( S T
0007240 R E A M R E A D T A B L E Z
0007260 ) ) \r I L - M A C R O - W R A P
0007300 P E D - P D 1 \r ( L ( 0 F
0007320 O R M ) ) \0 B \0 \0 \0 001 @ 003 264 >
0007340 @ 001 g \0 \0 360 264 6 @ 002 003 264 1 @ 002 001
0007360 o \0 \0 \0 364 264 ' @ 002 002 b \0 003 264 037 @
0007400 002 h 360 264 031 @ 001 b \0 003 264 022 @ 001 g \0
0007420 \0 360 264 \n @ 002 002 001 g \0 \0 360 020 \0 N I
0007440 L \r ( 6 2 S T R E A M 5 2
0007460 C L : F U N C A L L 8 C L :
0007500 L A M B D A ) \r ( 2 3 ( S T
0007520 R E A M C H A R ) ) \r I L - U
0007540 N W R A P - M A C R O D 1 \r (
0007560 L ( 0 F O R M ) ) \0 \n \0 \0
0007600 \0 001 @ 002 002 001 002 001 002 001 020 \0 N I L \r
0007620 N I L \r ( ) \r I L - W R A P - M
0007640 A C R O D 1 \r ( L ( 0 F O
0007660 R M ) ) \0 035 \0 \0 \0 001 g \0 \0 o \0
0007700 \0 \0 g \0 \0 g \0 \0 @ h 032 032 o \0 \0 \0
0007720 032 032 h 032 032 032 020 \0 N I L \r ( 1 2
0007740 Q U O T E 9 C L : F U N C A
0007760 L L 2 C L : L A M B D A ) \r
0010000 ( 2 0 ( S T R E A M ) 6
0010020 ( S T R E A M C H A R ) ) \r H
0010040 A S H - L E F T P A R E N D 1
0010060 \r ( L ( 2 I N D E X 1 C
0010100 H A R 0 S T R E A M ) ) \0
0010120 M 006 \0 \0 003 o \0 \0 \0 @ i \v \0 \0 021 Q
0010140 005 B 265 016 H \t \0 \0 g \0 \0 H \v \0 \0 020
0010160 g \0 \0 H \t \0 \0 001 \v \0 \0 271 H \t \0 \0
0010200 j 275 274 L M 363 221 h 200 i 263 025 I 273 M 272
0010220 H 001 H 002 270 K J 267 277 M k 324 275 260 346 I
0010240 020 \0 ( 4 2 L E N G T H 3 7
0010260 C L : M A K E - A R R A Y 3 3
0010300 L A S T 2 5 C L : M A K E
0010320 - A R R A Y 1 8 L E N G T H
0010340 8 C L : R E A D - D E L I M
0010360 I T E D - L I S T ) \r ( 2 9 :
0010400 I N I T I A L - E L E M E N T
0010420 2 1 : I N I T I A L - C O N T
0010440 E N T S ) \r ( 3 # \ ) ) \r H
0010460 A S H - A D 1 \r ( L ( 2 P
0010500 A R A M 1 C H A R 0 S T
0010520 R E A M ) ) \0 025 001 \0 \0 003 @ \t \0
0010540 \0 021 001 \0 B H \n \0 \0 g \0 \0 H \v \0 \0
0010560 020 \0 ( 1 8 C L : M A K E - A R
0010600 R A Y 1 1 E S T I M A T E -
0010620 D I M E N S I O N A L I T Y 3
0010640 C L : R E A D ) \r ( 1 4 : I
0010660 N I T I A L - C O N T E N T S )
0010700 \r ( ) \r H A S H - B D 1 \r ( L
0010720 ( 2 P A R A M 1 C H A R
0010740 0 S T R E A M ) ) \0 \r \0 \0
0010760 \0 003 A B \n \0 \0 @ l 002 \n \0 \0 020 \0 (
0011000 1 0 R E A D N U M B E R I N B
0011020 A S E 4 H A S H - N O - P A
0011040 R A M E T E R - E R R O R ) \r N
0011060 I L \r ( ) \r H A S H - B A C K S
0011100 L A S H D 1 \r ( L ( 2 P A
0011120 R A M 1 C H A R 0 S T R
0011140 E A M ) ) \0 \v \0 \0 \0 003 A B \n \0
0011160 \0 @ \t \0 \0 020 \0 ( 8 C H A R A C
0011200 T E R . R E A D 4 H A S H -
0011220 N O - P A R A M E T E R - E R R
0011240 O R ) \r N I L \r ( ) \r H A S H -
0011260 C D 1 \r ( L ( 2 P A R A M
0011300 1 C H A R 0 S T R E A M
0011320 ) ) \0 032 003 \0 \0 003 A B \n \0 \0 @ \t
0011340 \0 \0 021 ! 002 H 001 271 H 002 001 272 I J \n \0
0011360 \0 020 \0 ( 2 3 C L : C O M P L E
0011400 X 8 R E A D 4 H A S H -
0011420 N O - P A R A M E T E R - E R R
0011440 O R ) \r N I L \r ( ) \r H A S H -
0011460 C O L O N D 1 \r ( L ( 2 P
0011500 A R A M 1 C H A R 0 S T
0011520 R E A M ) F 0 * R E A D T
0011540 A B L E * ) \0 020 \0 001 \0 003 A B \n
0011560 \0 \0 @ P i \v \0 \0 \t \0 \0 020 \0 ( 1 3
0011600 C L : M A K E - S Y M B O L
0011620 1 0 R E A D - E X T E N D E D
0011640 - T O K E N 4 H A S H - N O
0011660 - P A R A M E T E R - E R R O R
0011700 ) \r N I L \r ( ) \r H A S H - C O
0011720 M M A D 1 \r ( L ( 2 P A R
0011740 A M 1 C H A R 0 S T R E
0011760 A M ) ) \0 021 \0 \0 \0 003 A B \n \0 \0
0012000 g \0 \0 @ \t \0 \0 h 032 032 020 \0 ( 1 1
0012020 R E A D 4 H A S H - N O - P
0012040 A R A M E T E R - E R R O R ) \r
0012060 ( 7 L O A D T I M E C O N S T
0012100 A N T ) \r ( ) \r H A S H - D O T
0012120 D 1 \r ( L ( 2 P A R A M
0012140 1 C H A R 0 S T R E A M )
0012160 F 0 * R E A D T A B L E *
0012200 ) \0 035 \0 001 \0 003 A B \n \0 \0 P 312 002
0012220 j 360 247 @ \t \0 \0 \t \0 \0 020 @ \t \0 \0
0012240 \t \0 \0 020 \0 ( 2 6 E V A L 2 3
0012260 R E A D 1 8 C L : E V A L
0012300 1 5 R E A D 4 H A S H -
0012320 N O - P A R A M E T E R - E R R
0012340 O R ) \r N I L \r ( ) \r H A S H -
0012360 D O U B L E Q U O T E D 1 \r (
0012400 L ( 2 P A R A M 1 C H A
0012420 R 0 S T R E A M ) F 0
0012440 * R E A D T A B L E * ) \0 017 \0
0012460 001 \0 003 A B \n \0 \0 @ P g \0 \0 \v \0 \0
0012500 020 \0 ( 1 2 R S T R I N G 4
0012520 H A S H - N O - P A R A M E T E
0012540 R - E R R O R ) \r ( 9 S K I P
0012560 ) \r ( ) \r H A S H - I L L E G A
0012600 L - H A S H - C H A R D 1 \r (
0012620 L ( 2 P A R A M 1 C H A
0012640 R 0 S T R E A M ) ) \0 \n \0
0012660 \0 \0 003 o \0 \0 \0 A \n \0 \0 020 \0 ( 7
0012700 C L : E R R O R ) \r N I L \r (
0012720 3 " I l l e g a l h a s h
0012740 m a c r o c h a r a c t e r
0012760 ~ S " ) \r H A S H - L E F T A N
0013000 G L E D 1 \r ( L ( 2 P A R
0013020 A M 1 C H A R 0 S T R E
0013040 A M ) ) \0 022 \0 \0 \0 003 A B \n \0 \0
0013060 o \0 \0 \0 @ \t \0 \0 \n \0 \0 020 \0 ( 1 5
0013100 C L : E R R O R 1 2 C L :
0013120 R E A D 4 H A S H - N O - P
0013140 A R A M E T E R - E R R O R ) \r
0013160 N I L \r ( 8 " U n r e a d a
0013200 b l e o b j e c t # < ~ A >
0013220 " ) \r H A S H - M I N U S D 1
0013240 \r ( L ( 2 P A R A M 1 C
0013260 H A R 0 S T R E A M ) P
0013300 0 * P A C K A G E * ) \0 036 001
0013320 \0 \0 003 A B \n \0 \0 ` \0 \0 021 001 \0 @ \t
0013340 \0 \0 022 \t \0 \0 224 @ \t \0 \0 277 \b \0 \0 020
0013360 \0 ( 2 7 C L : V A L U E S 2
0013400 3 C L : R E A D 1 8 C M L
0013420 R E A D . F E A T U R E . P A R
0013440 S E R 1 4 C L : R E A D 4
0013460 H A S H - N O - P A R A M E T
0013500 E R - E R R O R ) \r ( 7 * K E
0013520 Y W O R D - P A C K A G E * ) \r
0013540 ( ) \r H A S H - N O - P A R A M
0013560 E T E R - E R R O R D 1 \r ( L
0013600 ( 1 P A R A M 0 C H A R
0013620 ) ) \0 016 \0 \0 \0 002 A 264 \v o \0 \0 \0
0013640 A @ \v \0 \0 020 \0 ( 1 1 C L : E R
0013660 R O R ) \r N I L \r ( 6 " P a
0013700 r a m e t e r ~ D n o t a
0013720 l l o w e d w i t h h a s h
0013740 m a c r o ~ S " ) \r H A S H
0013760 - O D 1 \r ( L ( 2 P A R A
0014000 M 1 C H A R 0 S T R E A
0014020 M ) ) \0 \r \0 \0 \0 003 A B \n \0 \0 @
0014040 l \b \n \0 \0 020 \0 ( 1 0 R E A D N
0014060 U M B E R I N B A S E 4 H A
0014100 S H - N O - P A R A M E T E R -
0014120 E R R O R ) \r N I L \r ( ) \r H A
0014140 S H - P L U S D 1 \r ( L ( 2
0014160 P A R A M 1 C H A R 0
0014200 S T R E A M ) P 0 * P A C
0014220 K A G E * ) \0 " 001 \0 \0 003 A B \n
0014240 \0 \0 ` \0 \0 021 001 \0 @ \t \0 \0 022 \t \0 \0
0014260 221 h 200 i 224 @ \t \0 \0 277 \b \0 \0 020 \0 (
0014300 3 1 C L : V A L U E S 2 7
0014320 C L : R E A D 1 8 C M L R E
0014340 A D . F E A T U R E . P A R S E
0014360 R 1 4 C L : R E A D 4 H
0014400 A S H - N O - P A R A M E T E R
0014420 - E R R O R ) \r ( 7 * K E Y W
0014440 O R D - P A C K A G E * ) \r ( )
0014460 \r H A S H - Q U O T E D 1 \r (
0014500 L ( 2 P A R A M 1 C H A
0014520 R 0 S T R E A M ) ) \0 021 \0
0014540 \0 \0 003 A B \n \0 \0 g \0 \0 @ \t \0 \0 h
0014560 032 032 020 \0 ( 1 1 C L : R E A D
0014600 4 H A S H - N O - P A R A M E
0014620 T E R - E R R O R ) \r ( 7 C L
0014640 : F U N C T I O N ) \r ( ) \r H A
0014660 S H - R D 1 \r ( L ( 2 P A
0014700 R A M 1 C H A R 0 S T R
0014720 E A M ) ) \0 021 \0 \0 \0 003 B 225 @ B
0014740 \n \0 \0 020 o \0 \0 \0 \t \0 \0 020 \0 ( 1 4
0014760 C L : E R R O R 6 R E A D
0015000 N U M B E R I N B A S E ) \r N I
0015020 L \r ( 1 1 " N o b a s e
0015040 s u p p l i e d f o r # R "
0015060 ) \r H A S H - S D 1 \r ( L (
0015100 2 P A R A M 1 C H A R 0
0015120 S T R E A M ) ) \0 016 \0 \0 \0 003
0015140 A B \n \0 \0 @ \t \0 \0 \t \0 \0 020 \0 ( 1
0015160 1 C R E A T E - S T R U C T U
0015200 R E 8 R E A D 4 H A S H
0015220 - N O - P A R A M E T E R - E R
0015240 R O R ) \r N I L \r ( ) \r H A S H
0015260 - S T A R D 1 \r ( L ( 2 P
0015300 A R A M 1 C H A R 0 S T
0015320 R E A M ) ) \0 244 \a \0 \0 003 @ \t \0
0015340 \0 021 a 006 H \t \0 \0 Y j 360 262 024 B 262 $
0015360 B d j 360 252 277 o \0 \0 \0 B \n \0 \0 020 B
0015400 235 I B 363 231 o \0 \0 \0 B H \v \0 \0 020 B
0015420 265 003 I g \0 \0 g \0 \0 g \0 \0 B 234 H m
0015440 377 \n \0 \0 d l 0 360 262 025 277 j \r 005 \0 \0
0015460 272 I j 276 275 M N 363 262 027 h 260 025 l 1 360
0015500 222 k 260 352 o \0 \0 \0 B H \v \0 \0 260 337 i
0015520 263 . J 274 N 273 H N k 324 \n \0 \0 d l 0
0015540 360 222 277 j 216 l 1 360 221 k 210 o \0 \0 \0 B
0015560 H \v \0 \0 L K 267 277 N k 324 276 260 271 J 020
0015600 \0 ( 1 5 0 C L : E R R O R 1
0015620 2 7 N T H C H A R C O D E 1
0015640 1 1 C L : E R R O R 8 2 C
0015660 L : M A K E - A R R A Y 7 0
0015700 N T H C H A R C O D E 4 8 C
0015720 L : E R R O R 3 2 C L : E R
0015740 R O R 1 0 N C H A R S 3
0015760 R E A D - E X T E N D E D - T O
0016000 K E N ) \r ( 6 2 : I N I T I A
0016020 L - E L E M E N T 5 9 C L :
0016040 B I T 5 6 : E L E M E N T -
0016060 T Y P E ) \r ( 1 4 5 " I l l
0016100 e g a l b i t v e c t o r
0016120 e l e m e n t i n # ~ A * ~
0016140 A " 1 0 6 " I l l e g a l
0016160 b i t v e c t o r e l e m e
0016200 n t i n # ~ A * ~ A " 4 3
0016220 " B i t v e c t o r c o n
0016240 t e n t s l o n g e r t h a
0016260 n s p e c i f i e d l e n g
0016300 t h i n # ~ A * ~ A " \r 2
0016320 8 " N o c o n t e n t s s
0016340 p e c i f i e d f o r b i t
0016360 v e c t o r # ~ A * " ) \r H
0016400 A S H - V B A R D 1 \r ( L (
0016420 2 P A R A M 1 C H A R 0
0016440 S T R E A M ) F 0 * R E
0016460 A D T A B L E * ) \0 017 \0 001 \0 003
0016500 A B \n \0 \0 @ P \n \0 \0 \b \0 \0 020 \0 (
0016520 1 2 C L : V A L U E S 9 S
0016540 K I P . H A S H . C O M M E N T
0016560 4 H A S H - N O - P A R A M
0016600 E T E R - E R R O R ) \r N I L \r
0016620 ( ) \r H A S H - X D 1 \r ( L
0016640 ( 2 P A R A M 1 C H A R
0016660 0 S T R E A M ) ) \0 \r \0 \0 \0
0016700 003 A B \n \0 \0 @ l 020 \n \0 \0 020 \0 ( 1
0016720 0 R E A D N U M B E R I N B A
0016740 S E 4 H A S H - N O - P A R
0016760 A M E T E R - E R R O R ) \r N I
0017000 L \r ( ) \r C M L R D T B L D 1
0017020 \r ( P 2 I P 0 T B L
0017040 F 3 * P A C K A G E * ) \0
0017060 270 003 001 \0 \0 g \0 \0 \t \0 \0 021 001 \0 l 377
0017100 j 021 002 002 J d I 363 242 261 \0 224 023 o \0 \0
0017120 \0 k H \v \0 \0 l ' o \0 \0 \0 H \v \0 \0
0017140 l ; o \0 \0 \0 H \v \0 \0 l ) g \0 \0 H
0017160 \v \0 \0 l ( g \0 \0 H \v \0 \0 H g \0 \0
0017200 i \v \0 \0 H g \0 \0 i \v \0 \0 H g \0 \0
0017220 i \v \0 \0 H g \0 \0 h \v \0 \0 H g \0 \0
0017240 l \ \v \0 \0 H g \0 \0 l | \v \0 \0 S 231
0017260 H g \0 \0 l : \v \0 \0 277 H \t \0 \0 l "
0017300 g \0 \0 H \v \0 \0 l ` o \0 \0 \0 H \v \0
0017320 \0 l , o \0 \0 \0 H \v \0 \0 H 020 g \0 \0
0017340 H \v \0 \0 277 J k 324 Z 261 377 \ \0 ( 1 7
0017360 4 S E T S Y N T A X 1 6 5
0017400 S E T S Y N T A X 1 5 5 S E
0017420 T S Y N T A X 1 4 5 S E T S
0017440 Y N T A X 1 3 6 S E T - D E
0017460 F A U L T - H A S H M A C R O -
0017500 S E T T I N G S 1 3 1 R E A
0017520 D T A B L E P R O P 1 2 0 R
0017540 E A D T A B L E P R O P 1 1 1
0017560 R E A D T A B L E P R O P 1
0017600 0 2 R E A D T A B L E P R O P
0017620 9 4 R E A D T A B L E P R O
0017640 P 8 6 R E A D T A B L E P R
0017660 O P 7 8 R E A D T A B L E P
0017700 R O P 7 0 S E T S Y N T A X
0017720 6 1 S E T S Y N T A X 5 2
0017740 S E T S Y N T A X 4 2 S E
0017760 T S Y N T A X 3 2 S E T S E
0020000 P R 5 C O P Y R E A D T A B
0020020 L E ) \r ( 1 7 0 O T H E R 1
0020040 4 1 S T R I N G D E L I M 1
0020060 2 6 P A C K A G E C H A R 1
0020100 1 5 M U L T I P L E - E S C A
0020120 P E C H A R 1 0 6 E S C A P
0020140 E C H A R 9 8 U S E S I L P
0020160 A C K A G E 9 0 C O M M O N
0020200 N U M S Y N T A X 8 2 C O M
0020220 M O N L I S P 7 4 C A S E I
0020240 N S E N S I T I V E 6 6 L E
0020260 F T P A R E N 5 7 R I G H T
0020300 P A R E N 2 O R I G ) \r (
0020320 1 6 1 ( M A C R O A L W A Y
0020340 S R E A D B Q U O T E C O M M
0020360 A ) 1 5 1 ( M A C R O A L
0020400 W A Y S R E A D B Q U O T E )
0020420 4 8 ( M A C R O A L W A Y
0020440 S C M L R E A D S E M I ) 3
0020460 8 ( M A C R O A L W A Y S
0020500 R E A D Q U O T E ) \r 2 7 (
0020520 3 2 1 3 1 2 1 0 9 ) ) \r
0020540 I N I T - C M L - R E A D T A B
0020560 L E S D 1 \r ( P 2 I P
0020600 0 F I L E T B L F 3 C M
0020620 L R D T B L F 4 R E A D -
0020640 L I N E - R D T B L F 5 *
0020660 L I S P - P A C K A G E * ) \0
0020700 ` 003 003 \0 \0 \b \0 \0 c 006 g \0 \0 o \0 \0
0020720 \0 \v \0 \0 U S l \n \v \0 \0 027 \0 \0 S \t
0020740 \0 \0 021 001 \0 l 032 k 021 002 002 J d I 363 262
0020760 ' 023 H g \0 \0 o \0 \0 \0 \v \0 \0 023 g \0
0021000 \0 \t \0 \0 c \b o \0 \0 \0 h T \v \0 \0 h
0021020 d T \v \0 \0 020 g \0 \0 H \v \0 \0 277 J k
0021040 324 Z 260 312 \0 ( 8 7 S E T S Y N T
0021060 A X 7 9 S E T S E P R 7 3
0021100 S E T B R K 6 2 C O P Y R
0021120 E A D T A B L E 5 5 R E A D
0021140 T A B L E P R O P 2 8 C O P
0021160 Y R E A D T A B L E 2 1 M A
0021200 K E - R E A D E R - E N V I R O
0021220 N M E N T 1 4 R E A D T A B
0021240 L E P R O P 2 C M L R D T B
0021260 L ) \r ( 8 3 S E P R C H A R
0021300 5 9 O R I G 4 8 N A M E
0021320 2 4 * C O M M O N - L I S P -
0021340 R E A D - E N V I R O N M E N T
0021360 * 7 N A M E ) \r ( 6 8 (
0021400 1 3 ) 5 2 " X C L " 1 1
0021420 " L I S P " ) \r S E T - D E F A
0021440 U L T - H A S H M A C R O - S E
0021460 T T I N G S D 1 \r ( I 0 R
0021500 D T B L ) 001 2 \0 \0 \0 001 @ g \0 \0
0021520 l # \v \0 \0 o \0 \0 \0 i @ \v \0 \0 o \0
0021540 \0 \0 o \0 \0 \0 g \0 \0 @ \f \0 \0 o \0 \0
0021560 \0 o \0 \0 \0 g \0 \0 @ \f \0 \0 o \0 \0 \0
0021600 o \0 \0 \0 g \0 \0 @ \f \0 \0 o \0 \0 \0 o
0021620 \0 \0 \0 g \0 \0 @ \f \0 \0 o \0 \0 \0 o \0
0021640 \0 \0 g \0 \0 @ \f \0 \0 o \0 \0 \0 o \0 \0
0021660 \0 g \0 \0 @ \f \0 \0 o \0 \0 \0 o \0 \0 \0
0021700 g \0 \0 @ \f \0 \0 o \0 \0 \0 o \0 \0 \0 g
0021720 \0 \0 @ \f \0 \0 o \0 \0 \0 o \0 \0 \0 g \0
0021740 \0 @ \f \0 \0 o \0 \0 \0 o \0 \0 \0 g \0 \0
0021760 @ \f \0 \0 o \0 \0 \0 o \0 \0 \0 g \0 \0 @
0022000 \f \0 \0 o \0 \0 \0 o \0 \0 \0 g \0 \0 @ \f
0022020 \0 \0 o \0 \0 \0 o \0 \0 \0 g \0 \0 @ \f \0
0022040 \0 o \0 \0 \0 o \0 \0 \0 g \0 \0 @ \f \0 \0
0022060 o \0 \0 \0 o \0 \0 \0 g \0 \0 @ \f \0 \0 o
0022100 \0 \0 \0 o \0 \0 \0 g \0 \0 @ \f \0 \0 o \0
0022120 \0 \0 o \0 \0 \0 g \0 \0 @ \f \0 \0 o \0 \0
0022140 \0 o \0 \0 \0 g \0 \0 @ \f \0 \0 o \0 \0 \0
0022160 o \0 \0 \0 g \0 \0 @ \f \0 \0 @ 020 \0 ( 3
0022200 0 2 C L : S E T - D I S P A T
0022220 C H - M A C R O - C H A R A C T
0022240 E R 2 8 7 C L : S E T - D I
0022260 S P A T C H - M A C R O - C H A
0022300 R A C T E R 2 7 2 C L : S E
0022320 T - D I S P A T C H - M A C R O
0022340 - C H A R A C T E R 2 5 7 C
0022360 L : S E T - D I S P A T C H - M
0022400 A C R O - C H A R A C T E R 2
0022420 4 2 C L : S E T - D I S P A T
0022440 C H - M A C R O - C H A R A C T
0022460 E R 2 2 7 C L : S E T - D I
0022500 S P A T C H - M A C R O - C H A
0022520 R A C T E R 2 1 2 C L : S E
0022540 T - D I S P A T C H - M A C R O
0022560 - C H A R A C T E R 1 9 7 C
0022600 L : S E T - D I S P A T C H - M
0022620 A C R O - C H A R A C T E R 1
0022640 8 2 C L : S E T - D I S P A T
0022660 C H - M A C R O - C H A R A C T
0022700 E R 1 6 7 C L : S E T - D I
0022720 S P A T C H - M A C R O - C H A
0022740 R A C T E R 1 5 2 C L : S E
0022760 T - D I S P A T C H - M A C R O
0023000 - C H A R A C T E R 1 3 7 C
0023020 L : S E T - D I S P A T C H - M
0023040 A C R O - C H A R A C T E R 1
0023060 2 2 C L : S E T - D I S P A T
0023100 C H - M A C R O - C H A R A C T
0023120 E R 1 0 7 C L : S E T - D I
0023140 S P A T C H - M A C R O - C H A
0023160 R A C T E R 9 2 C L : S E T
0023200 - D I S P A T C H - M A C R O -
0023220 C H A R A C T E R 7 7 C L :
0023240 S E T - D I S P A T C H - M A C
0023260 R O - C H A R A C T E R 6 2
0023300 C L : S E T - D I S P A T C H -
0023320 M A C R O - C H A R A C T E R
0023340 4 7 C L : S E T - D I S P A T
0023360 C H - M A C R O - C H A R A C T
0023400 E R 3 2 C L : S E T - D I S
0023420 P A T C H - M A C R O - C H A R
0023440 A C T E R 1 7 C L : M A K E
0023460 - D I S P A T C H - M A C R O -
0023500 C H A R A C T E R 8 R E A D
0023520 T A B L E P R O P ) \r ( 2 9 8
0023540 H A S H - D O U B L E Q U O T E
0023560 2 8 3 H A S H - L E F T A N
0023600 G L E 2 6 8 H A S H - V B A
0023620 R 2 5 3 H A S H - M I N U S
0023640 2 3 8 H A S H - P L U S 2
0023660 2 3 H A S H - C 2 0 8 H A
0023700 S H - S 1 9 3 H A S H - A
0023720 1 7 8 H A S H - R 1 6 3 H
0023740 A S H - X 1 4 8 H A S H - B
0023760 1 3 3 H A S H - O 1 1 8
0024000 H A S H - C O L O N 1 0 3 H
0024020 A S H - S T A R 8 8 H A S H
0024040 - B A C K S L A S H 7 3 H A
0024060 S H - C O M M A 5 8 H A S H
0024100 - D O T 4 3 H A S H - Q U O
0024120 T E 2 8 H A S H - L E F T P
0024140 A R E N 3 H A S H M A C R O
0024160 C H A R ) \r ( 2 9 5 # \ "
0024200 2 9 1 # \ # 2 8 0 # \ <
0024220 2 7 6 # \ # 2 6 5 # \ |
0024240 2 6 1 # \ # 2 5 0 # \ -
0024260 2 4 6 # \ # 2 3 5 # \ +
0024300 2 3 1 # \ # 2 2 0 # \ C
0024320 2 1 6 # \ # 2 0 5 # \ S \r
0024340 2 0 1 # \ # 1 9 0 # \ A
0024360 1 8 6 # \ # 1 7 5 # \ R
0024400 1 7 1 # \ # 1 6 0 # \ X
0024420 1 5 6 # \ # 1 4 5 # \ B
0024440 1 4 1 # \ # 1 3 0 # \ O
0024460 1 2 6 # \ # 1 1 5 # \ :
0024500 1 1 1 # \ # \r 1 0 0 # \
0024520 * 9 6 # \ # 8 5 # \ \
0024540 8 1 # \ # 7 0 # \ , 6 6
0024560 # \ # 5 5 # \ . 5 1 #
0024600 \ # 4 0 # \ ' 3 6 # \ #
0024620 2 5 # \ ( 2 1 # \ # 1
0024640 2 # \ # ) \r C M L R E A D S E
0024660 M I D 1 \r ( I 1 R D T B L
0024700 I 0 S T R E A M ) \0 016 \0
0024720 \0 \0 002 @ \t \0 \0 l \r 360 262 371 \b \0 \0 020
0024740 \0 ( 1 1 C L : V A L U E S 3
0024760 R E A D C C O D E ) \r N I L \r
0025000 ( ) \r ( I N I T - C M L - R E A
0025020 D T A B L E S ) \r ( P U T P R O
0025040 P S C M L R E A D T A B L E
0025060 F I L E T Y P E C L : C O M P
0025100 I L E - F I L E ) \r ( P U T P R
0025120 O P S C M L R E A D T A B L E
0025140 C O P Y R I G H T ( " X e r
0025160 o x C o r p o r a t i o n "
0025200 1 9 8 6 ) ) \r N I L \r
0025213