diff --git a/code/hash-new.lisp b/code/hash-new.lisp index e160c50fa83d2ac75b51677a23d96edb3aeb52f1..79ef7584c18d12f967a62f29da710dc2806eb049 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.12 2000/01/16 20:10:39 dtc Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/hash-new.lisp,v 1.13 2000/07/06 04:34:02 dtc Exp $") ;;; ;;; ********************************************************************** ;;; @@ -313,7 +313,7 @@ (fixnum (+ rehash-size old-size)) (float - (the index (round (* rehash-size old-size))))))) + (the index (values (round (* rehash-size old-size)))))))) (new-kv-vector (make-array (* 2 new-size) :initial-element :empty)) (new-next-vector (make-array new-size :element-type '(unsigned-byte 32) diff --git a/code/hash.lisp b/code/hash.lisp index 6622a643773201579cf2582cf30e3796df83b255..7caae1845d8c4aabe3dc943883c778dbb36eea09 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.36 2000/01/16 20:10:39 dtc Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/hash.lisp,v 1.37 2000/07/06 04:34:03 dtc Exp $") ;;; ;;; ********************************************************************** ;;; @@ -350,7 +350,7 @@ (fixnum (+ rehash-size old-length)) (float - (the index (round (* rehash-size old-length)))))) + (the index (values (round (* rehash-size old-length))))))) old-length)) (new-vector (make-array new-length :initial-element nil)) #-gengc (weak-p (hash-table-weak-p table)))