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