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