X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fhash-table.lisp;h=1690fd37af0aeb9c7f9b93bef9dfb42f312b7875;hb=4281f3b99891120fea5cabbc3a9d091b19f45995;hp=c352a17a7f819b4df7819988b70b97130d0fbbcb;hpb=4eb1a6d3ad2b7dcc19ac0ec979a1eb1eb049659a;p=sbcl.git diff --git a/src/code/hash-table.lisp b/src/code/hash-table.lisp index c352a17..1690fd3 100644 --- a/src/code/hash-table.lisp +++ b/src/code/hash-table.lisp @@ -61,7 +61,7 @@ ;; This table parallels the KV table, and can be used to store the ;; hash associated with the key, saving recalculation. Could be ;; useful for EQL, and EQUAL hash tables. This table is not needed - ;; for EQ hash tables, and when present the value of #x8000000 + ;; for EQ hash tables, and when present the value of #x80000000 ;; represents EQ-based hashing on the respective key. (hash-vector nil :type (or null (simple-array (unsigned-byte 32) (*)))))