/[cmucl]/src/code/hash.lisp
ViewVC logotype

Diff of /src/code/hash.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.27 by ram, Tue Nov 2 16:10:36 1993 UTC revision 1.28 by wlott, Sat Nov 6 01:41:09 1993 UTC
# Line 805  Line 805 
805  (defconstant sxmash-rotate-bits 7)  (defconstant sxmash-rotate-bits 7)
806    
807  (defmacro sxmash (place with)  (defmacro sxmash (place with)
808    (setf ,place    `(setf ,place
809          (logxor (truly-the hash           (logxor (truly-the hash
810                             (ash ,place                              (ash ,place
811                                  ,(- sxmash-rotate-bits sxmash-total-bits)))                                   ,(- sxmash-rotate-bits sxmash-total-bits)))
812                  (truly-the hash                   (truly-the hash
813                             (ash (logand                              (ash (logand
814                                   ,place                                    ,place
815                                   ,(1- (ash 1                                    ,(1- (ash 1
816                                             (- sxmash-total-bits                                              (- sxmash-total-bits
817                                                sxmash-rotate-bits))))                                                 sxmash-rotate-bits))))
818                                  ,sxmash-rotate-bits))                                   ,sxmash-rotate-bits))
819                  (truly-the hash ,with))))                   (truly-the hash ,with))))
820    
821  (defmacro sxhash-simple-string (sequence)  (defmacro sxhash-simple-string (sequence)
822    `(%sxhash-simple-string ,sequence))    `(%sxhash-simple-string ,sequence))

Legend:
Removed from v.1.27  
changed lines
  Added in v.1.28

  ViewVC Help
Powered by ViewVC 1.1.5