-
This fixes the following case (let ((h1 (make-hash-table :test 'equalp)) (h2 (make-hash-table :test 'equalp)) (h (make-hash-table :test 'equalp))) (setf (gethash 1 h1) 2 (gethash 2 h2) 1 (gethash h1 h) h2 (gethash h2 h) h1) h) See <https://mailman.common-lisp.net/pipermail/armedbear-devel/2015-April/003452.html>. See <http://abcl.org/trac/ticket/388>. Thanks to Massimiliano Ghilardi.
ee4434c5