Author: hhubner Date: Mon Feb 18 05:34:38 2008 New Revision: 2528

Modified: branches/trunk-reorg/bknr/datastore/src/data/object.lisp Log: Fix warnings

Modified: branches/trunk-reorg/bknr/datastore/src/data/object.lisp ============================================================================== --- branches/trunk-reorg/bknr/datastore/src/data/object.lisp (original) +++ branches/trunk-reorg/bknr/datastore/src/data/object.lisp Mon Feb 18 05:34:38 2008 @@ -133,7 +133,7 @@ (:metaclass persistent-class) (:class-indices (all-class :index-type class-skip-index :index-subclasses t - :index-initargs (:type 'integer :index-superclasses t) + :index-initargs (:index-superclasses t) :index-keys all-store-classes :index-reader store-objects-with-class :slots (id)))) @@ -410,8 +410,7 @@ (progn #+nil (format t "read-slots for object ~A, id ~A~%" object object-id) (unless object - (error "READ-SLOTS form for unexistent object with ID ~A~%" object-id) - (return-from snapshot-read-slots)) + (error "READ-SLOTS form for unexistent object with ID ~A~%" object-id)) (%read-slots stream object (cdr (gethash layout-id layouts))) #+nil (when object