Changeset 2528

Show
Ignore:
Timestamp:
02/18/08 11:34:38 (9 months ago)
Author:
hhubner
Message:

Fix warnings

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • branches/trunk-reorg/bknr/datastore/src/data/object.lisp

    r2525 r2528  
    134134  (:class-indices (all-class :index-type class-skip-index 
    135135                             :index-subclasses t 
    136                              :index-initargs (:type 'integer :index-superclasses t) 
     136                             :index-initargs (:index-superclasses t) 
    137137                             :index-keys all-store-classes 
    138138                             :index-reader store-objects-with-class 
    …… 
    411411          #+nil (format t "read-slots for object ~A, id ~A~%" object object-id) 
    412412          (unless object 
    413             (error "READ-SLOTS form for unexistent object with ID ~A~%" object-id) 
    414             (return-from snapshot-read-slots)) 
     413            (error "READ-SLOTS form for unexistent object with ID ~A~%" object-id)) 
    415414          (%read-slots stream object (cdr (gethash layout-id layouts))) 
    416415          #+nil