diff --git a/code/hash.lisp b/code/hash.lisp index e22974bcb65d09f2a6cf43b68d12454c14d92e40..a113c75064fce855ff3f90d840504f386a224acc 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.14 1992/05/07 09:12:04 wlott Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/hash.lisp,v 1.15 1992/05/07 09:57:15 wlott Exp $") ;;; ;;; ********************************************************************** ;;; @@ -65,7 +65,7 @@ (defun %print-hash-table (ht stream depth) (declare (ignore depth)) (print-unreadable-object (ht stream :identity t) - (format stream "~A hash table, ~D entries" + (format stream "~A hash table, ~D entr~@:P" (symbol-name (hash-table-test ht)) (hash-table-number-entries ht)))) @@ -294,6 +294,8 @@ (test-fun (hash-table-test-fun hash-table))) (do ((bucket first-bucket (hash-table-bucket-next bucket))) ((null bucket) + (when eq-based + (set-header-data vector vm:vector-valid-hashing-subtype)) (setf (svref vector index) (make-hash-table-bucket :hash (unless eq-based hashing)