Changeset 13914


Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/src/org/armedbear/lisp/compile-file.lisp

    r13912 r13914  
    8484  (assert nil))
    8585
     86(defparameter *diagnostic* t
     87  "The stream to emit compiler diagnostic messages to, or nil to muffle output.")
     88
    8689(declaim (ftype (function (t) t) verify-load))
    8790(defun verify-load (classfile)
     
    9598           (if (> *safety* *speed*)
    9699               (progn
    97                  (warn "Because(> *safety* *speed*): Testing fasl via ~
    98 the potentially slow loading of its JVM bytecode." )
     100                 (format *diagnostic*
     101                         "~&SYSTEM::*DIAGNOSTIC* Testing compiled bytecode by loading classfile into JVM because (> *safety* *speed*).~%")
    99102                 (let ((*load-truename* *output-file-pathname*))
    100103                   (report-error
Note: See TracChangeset for help on using the changeset viewer.