X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcode%2Ftarget-hash-table.lisp;h=cb9c502eb24c43219975aa99376a06e57b75dc2b;hb=98a76d4426660876dec6649b1e228d2e5b47f579;hp=52f01c3917232b18c5be246b9b83bf301560e079;hpb=68fd2d2dd6f265669a8957accd8a33e62786a97e;p=sbcl.git

diff --git a/src/code/target-hash-table.lisp b/src/code/target-hash-table.lisp
index 52f01c3..cb9c502 100644
--- a/src/code/target-hash-table.lisp
+++ b/src/code/target-hash-table.lisp
@@ -176,6 +176,14 @@
 		   :hash-vector (unless (eq test 'eq)
 				  (make-array size+1
 					      :element-type '(unsigned-byte 32)
+					      ;; as explained by pmai on
+					      ;; openprojects #lisp IRC
+					      ;; 2002-07-30: #x80000000 is
+					      ;; bigger than any possible nonEQ
+					      ;; hash value, and thus indicates
+					      ;; an empty slot; and EQ hash
+					      ;; tables don't use
+					      ;; HASH-TABLE-HASH-VECTOR
 					      :initial-element #x80000000)))))
       (declare (type index size+1 scaled-size length))
       ;; Set up the free list, all free. These lists are 0 terminated.