diff --git a/code/hash.lisp b/code/hash.lisp index ef44b8825fa57f4d172e70a5793143ef11533e8b..0429b672526431e68c420bfeec1044dfe44a00e9 100644 --- a/code/hash.lisp +++ b/code/hash.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/hash.lisp,v 1.27 1993/11/02 16:10:36 ram Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/hash.lisp,v 1.28 1993/11/06 01:41:09 wlott Exp $") ;;; ;;; ********************************************************************** ;;; @@ -805,18 +805,18 @@ (defconstant sxmash-rotate-bits 7) (defmacro sxmash (place with) - (setf ,place - (logxor (truly-the hash - (ash ,place - ,(- sxmash-rotate-bits sxmash-total-bits))) - (truly-the hash - (ash (logand - ,place - ,(1- (ash 1 - (- sxmash-total-bits - sxmash-rotate-bits)))) - ,sxmash-rotate-bits)) - (truly-the hash ,with)))) + `(setf ,place + (logxor (truly-the hash + (ash ,place + ,(- sxmash-rotate-bits sxmash-total-bits))) + (truly-the hash + (ash (logand + ,place + ,(1- (ash 1 + (- sxmash-total-bits + sxmash-rotate-bits)))) + ,sxmash-rotate-bits)) + (truly-the hash ,with)))) (defmacro sxhash-simple-string (sequence) `(%sxhash-simple-string ,sequence))