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

[BKNR Commits]

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

Warn using FORMAT *TRACE-OUTPUT*, not WARN.

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 07:10:34 UTC (rev 3566)
+++ trunk/bknr/datastore/src/data/object.lisp	2008-07-23 07:40:34 UTC (rev 3567)
@@ -54,8 +54,8 @@
   (when (and (boundp '*store*) *store*)
     (update-instances-for-changed-class (class-name class))
     (unless *suppress-schema-warnings*
-      (warn "Class ~A has been changed. To ensure correct schema evolution, please snapshot your datastore."
-	    (class-name class)))))
+      (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)
   ((transient :initarg :transient :initform nil)