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