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