$ od -c -N 50000 [eris]<Lisp>Carol>SOURCES>GENSYM.DCOM!1
0000000 ( F I L E C R E A T E D " 1 2
0000020 - D e c - 8 3 0 6 : 2 6 : 5 7
0000040 " ( " c o m p i l e d o n
0000060 " { P H Y L U M } < L I S P C
0000100 O R E > S O U R C E S > G E N S
0000120 Y M . ; 2 4 ) \r " 5 - D e c
0000140 - 8 3 0 0 : 1 7 : 5 4 " r e
0000160 c o m p i l e d c h a n g e s
0000200 : A T O M H A S H # P R O B E
0000220 S \ A T O M . F I R S T H A S
0000240 H I N D E X i n W O R K d
0000260 a t e d \r " 6 - D e c - 8 3
0000300 0 1 : 1 9 : 4 8 " ) \r ( F I L
0000320 E C R E A T E D " 1 2 - D e c
0000340 - 8 3 0 6 : 2 6 : 3 8 " { P
0000360 H Y L U M } < L I S P C O R E >
0000400 S O U R C E S > G E N S Y M . ;
0000420 2 4 1 3 4 1 0 c h a n g e s
0000440 t o : ( V A R S \r G E N S
0000460 Y M C O M S ) ( F N S A T O
0000500 M H A S H # P R O B E S \ A T
0000520 O M . F I R S T H A S H I N D E
0000540 X ) p r e v i o u s d a t e
0000560 : " 9 - D e c - 8 3 0 7 :
0000600 0 3 : 3 7 " \r { P H Y L U M }
0000620 < L I S P C O R E > S O U R C E
0000640 S > G E N S Y M . ; 2 3 ) \r I N
0000660 T E G E R L E N G T H . D E C I
0000700 M A L D 1 \r ( L ( 0 N ) )
0000720 \0 f \0 \0 \0 001 @ n 377 377 361 227 o \0 \0
0000740 \0 @ 361 262 - n 003 350 @ 361 262 032 l \n @ 361
0000760 227 k @ 361 221 j 020 k 020 l d @ 361 222 l 002
0001000 020 l 003 020 n ' 020 @ 361 222 l 004 020 l 005 020
0001020 o \0 \0 \0 @ 361 262 # o \0 \0 \0 @ 361 234 o
0001040 \0 \0 \0 @ 361 222 l 006 020 l \a 020 o \0 \0 \0
0001060 @ 361 222 l \b 020 l \t 020 l \n 020 \0 N I L
0001100 \r N I L \r ( 1 3 0 Q 5 7 5 3
0001120 6 0 4 0 0 Q 1 1 3 Q 3 6 4 1
0001140 1 0 0 Q 1 0 4 Q 4 6 1 1 3 2
0001160 0 0 Q 7 4 Q 7 3 4 6 5 4 5 0
0001200 0 0 Q 1 1 Q 3 0 3 2 4 0 Q )
0001220 \r G E N S Y M D 1 \r ( P 1 2
0001240 Q C P 1 1 Q C N T P
0001260 1 0 Q I P 6 \ I N T E R
0001300 R U P T A B L E P 5 A T O
0001320 M P 4 B E G . I P 3
0001340 P R E F I X L E N P 2 B U
0001360 F P 1 N U M L E N P 0
0001400 B U F S I Z E I 4 C H A
0001420 R C O D E I 3 N E W ? I
0001440 2 O S T R B U F F E R I
0001460 1 N U M S U F F I X I 0
0001500 P R E F I X ) 001 343 \v \0 \0 005 @ 262
0001520 026 @ 005 \a 257 @ 004 l 004 360 251 l 033 @ h 032
0001540 032 \t \0 \0 277 A 262 024 A d 005 001 241 005 002 251
0001560 l 033 A h 032 032 \t \0 \0 277 B 235 B 005 \a 251
0001600 l 033 B h 032 032 \t \0 \0 277 D 236 D \t \0 \0
0001620 251 l 033 D h 032 032 \t \0 \0 277 l d ` \0 \0
0001640 ` \0 \0 j 021 $ 005 @ d 231 \t \0 \0 [ d j
0001660 360 234 277 h b \0 277 D 263 026 l A b \b 215 H
0001700 l \n 331 361 230 @ o \0 \0 \0 \n \0 \0 277 B 262
0001720 # A 250 o \0 \0 \0 \t \0 \0 260 $ B \t \0 \0
0001740 X K l \f 330 375 361 262 030 B o \0 \0 \0 \n \0
0001760 \0 213 A 234 K l \f 330 X \t \0 \0 b 004 277 B
0002000 272 021 020 006 B 222 i 260 024 ` \0 \0 d 005 001 241
0002020 005 002 246 j 027 \0 \0 277 i 200 h 236 J H A 265
0002040 005 ` \0 \0 \v \0 \0 271 261 \0 227 ` \0 \0 ` \0
0002060 \0 331 j 360 255 j ` \0 \0 361 224 j 027 \0 \0 277
0002100 i 260 023 o \0 \0 \0 ` \0 \0 361 246 j 027 \0 \0
0002120 277 i 200 h 231 J H ` \0 \0 \v \0 \0 Y 200 I
0002140 H 021 " \n k _ 022 277 O 022 O 016 361 263 1 `
0002160 \0 \0 O 020 ) k 330 _ 024 l 9 361 251 J O 020
0002200 O 024 + 277 h 260 032 J O 020 l 0 + 277 O 022
0002220 k 330 _ 022 277 O 020 k 331 _ 020 277 260 314 i 022
0002240 262 023 J H I 331 l 1 + 277 ` \0 \0 k 330 027
0002260 \0 \0 271 ` \0 \0 k 330 027 \0 \0 027 \0 \0 277 H
0002300 I 331 k 330 274 D 227 J L k 331 \ D + 277 @
0002320 231 J L K 331 \ @ \v \0 \0 277 J L H ` \0
0002340 \0 \f \0 \0 027 \0 \0 277 C 226 ` \0 \0 \t \0 \0
0002360 246 ` \0 \0 \t \0 \0 200 h ] 023 M d d 005 001
0002400 245 d 005 002 241 005 003 233 277 l 033 @ h 032 032 \t
0002420 \0 \0 260 034 255 A 242 261 376 352 A k 330 b 002 277
0002440 261 376 341 ` \0 \0 M 323 340 320 k 317 \0 020 M 020
0002460 \0 ( 7 0 3 Q E R R O R X 6 5
0002500 0 Q M K A T O M 6 4 1 Q A
0002520 T O M H A S H # P R O B E S 6
0002540 2 5 Q S U B S T R I N G 6 1
0002560 3 Q R P L S T R I N G 4 1 6
0002600 Q \ G S . I N I T B U F 3 3
0002620 0 Q \ G S . I N I T B U F 2
0002640 5 5 Q A L L O C S T R I N G
0002660 2 4 2 Q E R R O R 2 2 1 Q
0002700 N C H A R S 2 1 3 Q H E L P
0002720 1 7 6 Q E R R O R 1 3 6 Q
0002740 N C H A R S 1 1 3 Q E R R
0002760 O R X 1 0 1 Q C H A R C O D
0003000 E P 7 2 Q E R R O R X 5 2
0003020 Q E R R O R X 2 5 Q E R R
0003040 O R X ) \r ( 7 2 7 Q \ P L I S
0003060 T S P A C E 6 4 5 Q \ G S .
0003100 S T R 6 3 6 Q \ G S . S T R
0003120 6 3 0 Q \ G S . S T R 6 2
0003140 2 Q \ G S . S T R 5 5 7 Q
0003160 \ G S . O G E N N U M 5 5 4 Q
0003200 G E N N U M 5 4 7 Q G E N
0003220 N U M 5 4 3 Q \ G S . N U M
0003240 L E N 5 3 6 Q \ G S . N U M
0003260 L E N 4 4 3 Q \ G S . B U F
0003300 4 1 3 Q G E N N U M 4 0 1
0003320 Q G E N N U M 3 7 3 Q G E
0003340 N N U M 3 6 0 Q G E N N U M
0003360 3 5 2 Q G E N N U M 3 4 2
0003400 Q \ G S . O G E N N U M 3 3
0003420 7 Q G E N N U M 3 2 5 Q G
0003440 E N N U M 3 1 0 Q G E N N U
0003460 M 2 7 5 Q G E N N U M 1 2
0003500 4 Q \ G S . B U F 1 2 1 Q
0003520 \ G S . N U M L E N ) \r ( 3 7
0003540 0 Q 1 7 7 7 7 7 7 7 7 7 7 Q
0003560 2 3 7 Q " T o o s h o r t "
0003600 2 1 0 Q " O S T R B U F F E
0003620 R s u p p l i e d w i t h o
0003640 u t N U M S U F F I X " 1 7
0003660 3 Q " T o o l o n g " ) \r \
0003700 G S . I N I T B U F D 1 \r ( P
0003720 0 N U M L E N I 2 N
0003740 I 1 B U F S I Z E I 0
0003760 B U F ) \0 0 001 \0 \0 003 021 020 \0 @ A
0004000 n ' 020 B 361 233 B n ' 020 330 b 004 277 l 004
0004020 X 206 B \t \0 \0 X k 331 331 B \v \0 \0 @ `
0004040 \0 \0 360 223 H 027 \0 \0 H 020 \0 ( 4 2 Q
0004060 R P L S T R I N G 3 2 Q I N
0004100 T E G E R L E N G T H . D E C I
0004120 M A L ) \r ( 5 4 Q \ G S . N U
0004140 M L E N 4 6 Q \ G S . B U F
0004160 ) \r ( ) \r A T O M H A S H # P R
0004200 O B E S D 1 \r ( P 3 H I N
0004220 D E X P 2 L E N P 1
0004240 O F F S T P 0 B A S E I
0004260 0 S T R I N G ) \0 324 \v \0 \0
0004300 001 021 @ 003 @ d 004 l 004 360 262 1 277 ` \0 \0
0004320 @ 323 340 320 311 \0 270 k 271 ` \0 \0 @ 323 340 320
0004340 311 \0 312 \0 \a Z k 360 262 + H I 302 l 9 361
0004360 247 l 0 H I 302 361 264 003 j 020 \t \0 \0 b \0
0004400 311 \0 270 @ 310 003 271 @ 310 002 Z d l 377 361 262
0004420 327 h 020 H I J \v \0 \0 d 262 340 [ k 021 !
0004440 006 ` \0 \0 K 320 310 \0 ] j 360 263 346 ` \0 \0
0004460 M k 331 320 276 J ` \0 \0 N 323 340 320 311 \0 312
0004500 \0 \a 360 262 B J ` \0 \0 N 323 340 320 311 \0 I
0004520 021 023 \n k _ 024 277 O 024 O 016 361 263 $ O 020
0004540 O 024 302 H O 022 302 360 246 O 024 265 026 i 260 023
0004560 O 024 k 330 _ 024 277 O 022 k 330 _ 022 277 260 331
0004600 h 022 241 L 020 K l 023 330 n 177 377 345 273 L k
0004620 330 274 260 217 \0 ( 1 2 7 Q \ A T O M
0004640 . F I R S T H A S H I N D E X
0004660 7 4 Q M K S T R I N G ) \r ( 2
0004700 0 7 Q \ P N P S P A C E 1 6
0004720 7 Q \ P N P S P A C E 1 5 6
0004740 Q \ A T O M S P A C E 1 4 2
0004760 Q \ A t o m H a s h T a b l e
0005000 3 2 Q \ P N P S P A C E 1
0005020 6 Q \ P N P S P A C E ) \r ( )
0005040 \r \ A T O M . F I R S T H A S H
0005060 I N D E X D 1 \r ( L ( 2 L
0005100 E N 1 O F F S T 0 B A S
0005120 E ) ) \0 [ 006 \0 \0 003 B j 360 221 j 020
0005140 j d i j 021 $ 005 B H 361 262 C @ A H 330
0005160 302 \ l 9 361 263 025 l 0 L 361 255 J 235 L l
0005200 . 360 230 K k 330 [ k 361 221 h 272 I d n 017
0005220 377 345 340 340 330 ] n 177 377 345 M l 177 345 341 L
0005240 330 330 n 177 377 345 271 H k 330 270 260 274 J h 360
0005260 264 003 I 020 \0 N I L \r N I L \r ( ) \r
0005300 G E N S Y M ? D 1 \r ( I 1
0005320 O N \ O F F I 0 X ) \0 `
0005340 002 \0 \0 002 @ 004 l 004 360 225 @ 223 @ i 360 237
0005360 A 241 h 020 @ 004 l 004 360 264 I @ \t \0 \0 020
0005400 ` \0 \0 @ 323 340 320 312 \0 020 j 360 h 360 A 262
0005420 3 ` \0 \0 @ 323 340 320 A d g \0 \0 360 222 277
0005440 h 217 g \0 \0 360 245 A d i 360 222 277 i 202 \t
0005460 \0 \0 221 k 200 j 021 002 001 H I 317 \0 020 277 I
0005500 022 277 020 \0 ( 1 1 5 Q \ I L L E G
0005520 A L . A R G 3 2 Q \ I L L E
0005540 G A L . A R G ) \r ( 1 0 0 Q O
0005560 N 7 0 Q O F F 5 7 Q \ P
0005600 L I S T S P A C E 3 6 Q \ P
0005620 L I S T S P A C E ) \r ( ) \r C O
0005640 M P . G E N F N D 1 \r ( F 0
0005660 C O M F N ) \0 A \0 001 \0 \0 ` \0
0005700 \0 \t \0 \0 P \t \0 \0 l \f 330 361 257 ` \0 \0
0005720 \t \0 \0 l 020 330 \t \0 \0 027 \0 \0 277 n ' 017
0005740 ` \0 \0 361 244 j 027 \0 \0 277 P ` \0 \0 k 330
0005760 027 \0 \0 ` \0 \0 h l A \r 005 \0 \0 020 \0 (
0006000 7 6 Q G E N S Y M 3 2 Q A
0006020 L L O C S T R I N G 2 4 Q N
0006040 C H A R S 1 1 Q N C H A R S
0006060 5 N C H A R S ) \r ( 6 7 Q
0006100 C O M P . G E N F N . B U F 6
0006120 4 Q C O M P . G E N F N . N U
0006140 M 5 7 Q C O M P . G E N F N
0006160 . N U M 5 2 Q C O M P . G E
0006200 N F N . N U M 4 4 Q C O M P
0006220 . G E N F N . N U M 3 5 Q C
0006240 O M P . G E N F N . B U F 2 1
0006260 Q C O M P . G E N F N . B U F
0006300 2 C O M P . G E N F N . B U
0006320 F ) \r ( ) \r ( P R E T T Y C O M
0006340 P R I N T G E N S Y M C O M S
0006360 ) \r ( R P A Q Q G E N S Y M C
0006400 O M S ( ( C O M S ( * P u
0006420 t t h i s g u y o n A D
0006440 D A R I T H f o r I n t e r
0006460 l i s p - D a n d o n N O
0006500 N D A D D A R I T H f o r t
0006520 h e o t h e r \r s y s t e m
0006540 s ) ( F N S I N T E G E R L
0006560 E N G T H . D E C I M A L ) )
0006600 ( C O M S ( * T h i s g o
0006620 e s o n M I S C ) ( F N S
0006640 G E N S Y M \ G S . I N I T
0006660 B U F ) ( C O N S T A N T S \r
0006700 ( \ G S . B U F S I Z E 1 0
0006720 0 ) ) ( I N I T V A R S ( G
0006740 E N N U M 0 ) ( \ G S . O G
0006760 E N N U M - 1 ) ( \ G S . N
0007000 U M L E N 0 ) ( \ G S . B U
0007020 F ( A L L O C S T R I N G \r
0007040 \ G S . B U F S I Z E ) ) ( \
0007060 G S . S T R ( A L L O C S T R
0007100 I N G 0 ) ) ) ( P R O P A
0007120 R G N A M E S G E N S Y M )
0007140 ( G L O B A L V A R S G E N N
0007160 U M \ G S . O G E N N U M \r
0007200 \ G S . N U M L E N \ G S . B
0007220 U F \ G S . S T R ) ) ( C O
0007240 M S ( * T h e s e a r e
0007260 o p t i m i z a t i o n s f o
0007300 r I n t e r l i s p - D o n
0007320 l y ) ( F N S \r A T O M H A
0007340 S H # P R O B E S \ A T O M .
0007360 F I R S T H A S H I N D E X )
0007400 ( C O M S ( * T h i s g o
0007420 e s o n D M I S C w h i c
0007440 h o v e r r i d e s t h e
0007460 d e f i n i t i o n f o u n d
0007500 \r o n M I S C ) ( F N S
0007520 G E N S Y M ? ) ) ( C O M S
0007540 ( * T h i s g o e s o n
0007560 L L B A S I C a s a s u b
0007600 - d e c l a r a t i o n o f
0007620 L I T A T O M ) ( D E C L A R
0007640 E : \r D O N T C O P Y ( R E
0007660 C O R D S P R O P C E L L ) )
0007700 ) ( C O M S ( * T h i s
0007720 g o e s o n B Y T E C O M P
0007740 I L E R ) ( F N S C O M P .
0007760 G E N F N ) ( I N I T V A R S
0010000 ( \r C O M P . G E N F N . N U
0010020 M 0 ) ( C O M P . G E N F N
0010040 . B U F ( A L L O C S T R I N
0010060 G 1 0 0 ) ) ) ( G L O B A L
0010100 V A R S C O M P . G E N F N .
0010120 N U M C O M P . G E N F N . B
0010140 U F ) ( \r D E C L A R E : D
0010160 O N T E V A L @ L O A D D O N
0010200 T E V A L @ C O M P I L E D O
0010220 C O P Y ( P ( M O V D ( Q
0010240 U O T E C O M P . G E N F N )
0010260 ( Q U O T E \r \ B Y T E C O
0010300 M P B L O C K / C O M P . G E N
0010320 F N ) ) ) ) ) ) ) ) \r ( R P A Q
0010340 Q \ G S . B U F S I Z E 1 0
0010360 0 ) \r ( C O N S T A N T S ( \
0010400 G S . B U F S I Z E 1 0 0 ) )
0010420 \r ( R P A Q ? G E N N U M 0
0010440 ) \r ( R P A Q ? \ G S . O G E
0010460 N N U M - 1 ) \r ( R P A Q ?
0010500 \ G S . N U M L E N 0 ) \r ( R
0010520 P A Q ? \ G S . B U F ( A L
0010540 L O C S T R I N G \ G S . B U
0010560 F S I Z E ) ) \r ( R P A Q ? \
0010600 G S . S T R ( A L L O C S T R
0010620 I N G 0 ) ) \r ( P U T P R O P
0010640 S G E N S Y M A R G N A M E
0010660 S ( P R E F I X - - ) ) \r (
0010700 R P A Q ? C O M P . G E N F N
0010720 . N U M 0 ) \r ( R P A Q ? C
0010740 O M P . G E N F N . B U F ( A
0010760 L L O C S T R I N G 1 0 0 ) )
0011000 \r ( M O V D ( Q U O T E C O
0011020 M P . G E N F N ) ( Q U O T E
0011040 \ B Y T E C O M P B L O C K /
0011060 C O M P . G E N F N ) ) \r ( P U
0011100 T P R O P S G E N S Y M C O
0011120 P Y R I G H T ( " X e r o x
0011140 C o r p o r a t i o n " 1 9 8
0011160 3 ) ) \r N I L \r
0011170