Changeset 13914

Timestamp:

04/16/12 11:49:48 (11 years ago)

Author:

Mark Evenson

Message:

compiler: don't signal a warning for compiler optimization decision diagnostics.

Set the variable SYSTEM::*DIAGNOSTIC* to nil to muffle the output.

File:

• trunk/abcl/src/org/armedbear/lisp/compile-file.lisp (modified) (2 diffs)

trunk/abcl/src/org/armedbear/lisp/compile-file.lisp

@@ -84 +84 @@
   (assert nil))
 
+(defparameter *diagnostic* t
+  "The stream to emit compiler diagnostic messages to, or nil to muffle output.")
+
 (declaim (ftype (function (t) t) verify-load))
 (defun verify-load (classfile)
@@ -95 +98 @@
            (if (> *safety* *speed*)
                (progn
-                 (warn "Because(> *safety* *speed*): Testing fasl via ~
-the potentially slow loading of its JVM bytecode." )
+                 (format *diagnostic* 
+                         "~&SYSTEM::*DIAGNOSTIC* Testing compiled bytecode by loading classfile into JVM because (> *safety* *speed*).~%")
                  (let ((*load-truename* *output-file-pathname*))
                    (report-error