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