[bknr-cvs] r2528 - branches/trunk-reorg/bknr/datastore/src/data

[hhubner at common-lisp.net]

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