Skip to content
Snippets Groups Projects
Commit 092a5697 authored by wlott's avatar wlott
Browse files

typo.

parent f44cc8fd
No related branches found
No related tags found
No related merge requests found
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;; ;;;
(ext:file-comment (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 @@ ...@@ -805,18 +805,18 @@
(defconstant sxmash-rotate-bits 7) (defconstant sxmash-rotate-bits 7)
(defmacro sxmash (place with) (defmacro sxmash (place with)
(setf ,place `(setf ,place
(logxor (truly-the hash (logxor (truly-the hash
(ash ,place (ash ,place
,(- sxmash-rotate-bits sxmash-total-bits))) ,(- sxmash-rotate-bits sxmash-total-bits)))
(truly-the hash (truly-the hash
(ash (logand (ash (logand
,place ,place
,(1- (ash 1 ,(1- (ash 1
(- sxmash-total-bits (- sxmash-total-bits
sxmash-rotate-bits)))) sxmash-rotate-bits))))
,sxmash-rotate-bits)) ,sxmash-rotate-bits))
(truly-the hash ,with)))) (truly-the hash ,with))))
(defmacro sxhash-simple-string (sequence) (defmacro sxhash-simple-string (sequence)
`(%sxhash-simple-string ,sequence)) `(%sxhash-simple-string ,sequence))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment