[armedbear-cvs] r13914 - trunk/abcl/src/org/armedbear/lisp

[mevenson at common-lisp.net]

Author: mevenson
Date: Mon Apr 16 04:49:48 2012
New Revision: 13914

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

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

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

Modified: trunk/abcl/src/org/armedbear/lisp/compile-file.lisp
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/compile-file.lisp	Mon Apr 16 04:38:05 2012	(r13913)
+++ trunk/abcl/src/org/armedbear/lisp/compile-file.lisp	Mon Apr 16 04:49:48 2012	(r13914)
@@ -83,6 +83,9 @@
   (declare (ignore ignored))
   (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)
       (and classfile
@@ -94,8 +97,8 @@
 zero-length jvm classfile corresponding to ~A." classfile)))
            (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
                     (load-compiled-function classfile))))