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)