Skip to content
Snippets Groups Projects
Commit a5b6497a authored by pw's avatar pw
Browse files

From Tim Moore

internal-sxhash doesn't deal correctly with strings that have fill
pointers; consequently, equal hash tables don't work correctly either.
>From 18c:
*(defvar foo (make-array 32 :element-type 'base-char :adjustable t
:fill-pointer 7))
FOO
* (setf (subseq foo 0) "typedef")
"typedef"
* (sxhash foo)
182883518
* (sxhash "typedef")
194663162
* (defvar h (make-hash-table :test #'equal))
H
* (setf (gethash foo h) 'bar)
BAR
* (gethash "typedef" h)
NIL
NIL

Attached is a fix.
Tim
parent 9197294e
No related branches found
No related tags found
Loading
Loading
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment