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