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