Update of /project/cl-store/cvsroot/cl-store In directory clnet:/tmp/cvs-serv19024
Modified Files: circularities.lisp ChangeLog Log Message: Bug fix from Alex Mizrahi. Change *restored-values* to use eql as the hash test.
--- /project/cl-store/cvsroot/cl-store/circularities.lisp 2005/10/04 08:10:26 1.24 +++ /project/cl-store/cvsroot/cl-store/circularities.lisp 2006/12/17 00:11:09 1.25 @@ -167,7 +167,7 @@ (let ((*restore-counter* 0) (*need-to-fix* nil) (*restored-values* (and *check-for-circs* - (make-hash-table :test #'eq + (make-hash-table :test #'eql :size *restore-hash-size*)))) (check-magic-number backend place) (prog1 @@ -225,9 +225,9 @@ (declare (optimize speed (safety 1) (debug 0))) (if (referrer-p val) (multiple-value-bind (new-val win) (referred-value val *restored-values*) - (if (or new-val win) - new-val - val)) + (if (or new-val win) + new-val + val)) val))
;; EOF --- /project/cl-store/cvsroot/cl-store/ChangeLog 2006/12/16 13:50:26 1.44 +++ /project/cl-store/cvsroot/cl-store/ChangeLog 2006/12/17 00:11:09 1.45 @@ -1,4 +1,8 @@ 2006-12-16 Sean Ross sross@common-lisp.net + * circularities.lisp: Bug fix from Alex Mizrahi. Change *restored-values* + to use eql as the hash test. + +2006-12-16 Sean Ross sross@common-lisp.net * cl-store.asd, utils.lisp : Added preliminary support for ABCL (tested on version 0.0.9).