Changeset 13914
- Timestamp:
- 04/16/12 11:49:48 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/abcl/src/org/armedbear/lisp/compile-file.lisp
r13912 r13914 84 84 (assert nil)) 85 85 86 (defparameter *diagnostic* t 87 "The stream to emit compiler diagnostic messages to, or nil to muffle output.") 88 86 89 (declaim (ftype (function (t) t) verify-load)) 87 90 (defun verify-load (classfile) … … 95 98 (if (> *safety* *speed*) 96 99 (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*).~%") 99 102 (let ((*load-truename* *output-file-pathname*)) 100 103 (report-error
Note: See TracChangeset
for help on using the changeset viewer.