Revision: 3585 Author: hans URL: http://bknr.net/trac/changeset/3585

Print newline after message

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

Modified: trunk/bknr/datastore/src/data/object.lisp =================================================================== --- trunk/bknr/datastore/src/data/object.lisp 2008-07-23 13:05:11 UTC (rev 3584) +++ trunk/bknr/datastore/src/data/object.lisp 2008-07-23 13:13:08 UTC (rev 3585) @@ -54,7 +54,7 @@ (when (and (boundp '*store*) *store*) (update-instances-for-changed-class (class-name class)) (unless *suppress-schema-warnings* - (format *trace-output* "Class ~A has been changed. To ensure correct schema evolution, please snapshot your datastore." + (format *trace-output* "~&; class ~A has been changed. To ensure correct schema evolution, please snapshot your datastore.~%" (class-name class)))))

(defclass persistent-direct-slot-definition (index-direct-slot-definition) @@ -554,7 +554,7 @@ (clear-class-indices (find-class class-name))) (setf (next-object-id subsystem) 0) (when (probe-file snapshot) - (format *trace-output* "loading snapshot file ~A~%" snapshot) + (format *trace-output* "~&; loading snapshot file ~A~%" snapshot) (with-open-file (s snapshot :element-type '(unsigned-byte 8) :direction :input)