[cl-store-cvs] CVS cl-store

[sross]

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 at 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 at common-lisp.net>
 	* cl-store.asd, utils.lisp : Added preliminary support for ABCL (tested on 
 	version 0.0.9).