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