diff --git a/code/hash-new.lisp b/code/hash-new.lisp index b40a5c1541a629dce7375b8cae22078885bc832f..b97dec3429747340dc9e2e29b7b5f98bf3916e23 100644 --- a/code/hash-new.lisp +++ b/code/hash-new.lisp @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/hash-new.lisp,v 1.9 2000/01/14 19:47:19 dtc Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/hash-new.lisp,v 1.10 2000/01/14 19:48:36 dtc Exp $") ;;; ;;; ********************************************************************** ;;; @@ -838,9 +838,9 @@ (eval-when (compile eval) -(defconstant sxhash-bits-byte (byte 23 0)) -(defconstant sxmash-total-bits 26) -(defconstant sxmash-rotate-bits 7) +(defconstant sxhash-bits-byte (byte 29 0)) +(defconstant sxmash-total-bits 29) +(defconstant sxmash-rotate-bits 9) (defmacro sxmash (place with) `(setf ,place diff --git a/code/hash.lisp b/code/hash.lisp index befee36f90286c7e0f2ae1c7f5ab0d623af71800..703c2a514bd28e77dacf5a39ec568a481a81703c 100644 --- a/code/hash.lisp +++ b/code/hash.lisp @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/hash.lisp,v 1.33 2000/01/14 19:47:20 dtc Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/hash.lisp,v 1.34 2000/01/14 19:48:37 dtc Exp $") ;;; ;;; ********************************************************************** ;;; @@ -807,9 +807,9 @@ (eval-when (compile eval) -(defconstant sxhash-bits-byte (byte 23 0)) -(defconstant sxmash-total-bits 26) -(defconstant sxmash-rotate-bits 7) +(defconstant sxhash-bits-byte (byte 29 0)) +(defconstant sxmash-total-bits 29) +(defconstant sxmash-rotate-bits 9) (defmacro sxmash (place with) `(setf ,place diff --git a/compiler/generic/vm-tran.lisp b/compiler/generic/vm-tran.lisp index 2c15eba38a2da2d70de942ee96d404fd3cbd7c6a..c93773ec4739c28a1e0a7c02fbcbf90e4efb5f7b 100644 --- a/compiler/generic/vm-tran.lisp +++ b/compiler/generic/vm-tran.lisp @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/vm-tran.lisp,v 1.38 2000/01/13 16:53:33 dtc Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/vm-tran.lisp,v 1.39 2000/01/14 19:48:43 dtc Exp $") ;;; ;;; ********************************************************************** ;;; @@ -315,9 +315,9 @@ ;;; Should be in VM: -(defconstant sxhash-bits-byte (byte 23 0)) -(defconstant sxmash-total-bits 26) -(defconstant sxmash-rotate-bits 7) +(defconstant sxhash-bits-byte (byte 29 0)) +(defconstant sxmash-total-bits 29) +(defconstant sxmash-rotate-bits 9) (deftransform sxhash ((s-expr) (integer)) '(ldb sxhash-bits-byte s-expr))