[bknr-cvs] hans changed trunk/bknr/datastore/src/data/object.lisp

BKNR Commits bknr at bknr.net
Wed Jul 23 13:13:08 UTC 2008


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)




More information about the Bknr-cvs mailing list