[bknr-cvs] r2063 - trunk/bknr/src/data

[bknr at bknr.net]

Author: hhubner
Date: 2006-11-08 01:59:43 -0500 (Wed, 08 Nov 2006)
New Revision: 2063

Modified:
   trunk/bknr/src/data/object.lisp
Log:
Change global object hash table to use #'eql for test.  This used to
be an #'eq hash table, which may fail once the object ids become
bignums.


Modified: trunk/bknr/src/data/object.lisp
===================================================================
--- trunk/bknr/src/data/object.lisp	2006-11-07 17:29:07 UTC (rev 2062)
+++ trunk/bknr/src/data/object.lisp	2006-11-08 06:59:43 UTC (rev 2063)
@@ -109,7 +109,7 @@
 (defclass store-object ()
   ((id :initarg :id :reader store-object-id
        :index-type unique-index
-       :index-initargs (:test #'eq :rehash-size 10000 :size 10000)
+       :index-initargs (:test #'eql :rehash-size 10000 :size 10000)
        :index-reader store-object-with-id :index-values all-store-objects
        :index-mapvalues map-store-objects))
   (:metaclass persistent-class)
@@ -392,9 +392,9 @@
 	 (object (store-object-with-id object-id)))
     (restart-case
 	(progn
-	  #+nil(format t "read-slots for object ~A, id ~A~%" object object-id)
+	  #+nil (format t "read-slots for object ~A, id ~A~%" object object-id)
 	  (unless object
-	    (warn "READ-SLOTS form for unexistent object with ID ~A~%" object-id)
+	    (error "READ-SLOTS form for unexistent object with ID ~A~%" object-id)
 	    (return-from snapshot-read-slots))
 	  (%read-slots stream object (cdr (gethash layout-id layouts)))
 	  #+nil