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