Re: [Sbcl-commits] master: Pass 2 args to adaptive-equal-hash
Douglas Katzman via Sbcl-devel <[email protected]>
| Newsgroups | gmane.lisp.steel-bank.devel |
|---|---|
| Message-ID | <CAOrNasw7Romo3P11085iOaeBj6mNvJBR+dHGnuS+ugoLz8JYwg@mail.gmail.com> |
Probably best if Gábor looks at it.
I don't feel confident to fix the adaptive hashing functions but I saw two
occurrences of funcall that look wrong- one is the one I changed, and the
other is at line 2040 -
'((hash (clip-hash (the fixnum
(funcall (hash-table-hash-fun hash-table)
key))))
and you can't funcall it except with the function declaring not to check
its arg count
*(sb-impl::hash-table-hash-fun (make-hash-table :test 'equal)) => *#<FUNCTION
SB-IMPL::ADAPTIVE-EQUAL-HASH>
_______________________________________________
Sbcl-devel mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/sbcl-devel