Changeset 2693

Show
Ignore:
Timestamp:
03/07/08 12:50:50 (10 months ago)
Author:
hans
Message:

Remove unused and commented out code, improve status message.

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/bknr/datastore/src/data/object.lisp

    r2655 r2693  
    413413          (unless object 
    414414            (error "READ-SLOTS form for unexistent object with ID ~A~%" object-id)) 
    415           (%read-slots stream object (cdr (gethash layout-id layouts))) 
    416           #+nil 
    417           (when object  
    418             (initialize-transient-instance object))) 
     415          (%read-slots stream object (cdr (gethash layout-id layouts)))) 
    419416        (skip-object-initialization () 
    420417          :report "Skip object initialization.") 
    …… 
    538535                    (when (and (plusp read-slots) 
    539536                               (zerop (mod read-slots 10000))) 
    540                       (format t "~A of ~A slots set.~%" read-slots created-objects) 
     537                      (format t "~A of ~A objects initialized.~%" read-slots created-objects) 
    541538                      (force-output)) 
    542539                    (let ((char (%read-char s nil nil)))