diff --git a/doc/manual/abcl.tex b/doc/manual/abcl.tex index 4a6f11b..e327963 100644 --- a/doc/manual/abcl.tex +++ b/doc/manual/abcl.tex @@ -901,6 +901,15 @@ Pathname has the type ``abcl''. These fasls are operating system neutral byte archives packaged by the zip compression format which contain artifacts whose loading \code{CL:LOAD} understands. +\subsection{Compiler Diagnostics} + +By default, the interface to the compiler does not signal warnings +that result in its invocation, outputing diagnostics to the standard +reporting stream. The generalized boolean +\code{JVM:*RESIGNAL-COMPILER-WARNINGS*} provides the interface to +enabling the compiler to signal all warnings. + + \section{Pathname} We implement an extension to the \code{CL:PATHNAME} that allows for diff --git a/src/org/armedbear/lisp/Symbol.java b/src/org/armedbear/lisp/Symbol.java index 4e4139f..43784d8 100644 --- a/src/org/armedbear/lisp/Symbol.java +++ b/src/org/armedbear/lisp/Symbol.java @@ -3266,4 +3266,7 @@ public class Symbol extends LispObject implements java.io.Serializable public static final Symbol THREAD = PACKAGE_THREADS.addExternalSymbol("THREAD"); + // JVM + public static final Symbol _RESIGNAL_COMPILER_WARINGS_ = + PACKAGE_JVM.addExternalSymbol("*RESIGNAL-COMPILER-WARNINGS*"); } diff --git a/src/org/armedbear/lisp/compiler-pass2.lisp b/src/org/armedbear/lisp/compiler-pass2.lisp index 409d38a..edb670b 100644 --- a/src/org/armedbear/lisp/compiler-pass2.lisp +++ b/src/org/armedbear/lisp/compiler-pass2.lisp @@ -7433,7 +7433,12 @@ generated class." (defvar *resignal-compiler-warnings* nil - "Bind this to t inside slime compilation") + "This generalized boolean JVM:*RESIGNAL-COMPILER-WARNINGS* controls whether the compiler signals dignaostics to the condition system or merely outputs them to the standard reporting stream. + +The default is to not signal. + +Could arguably better named as *SIGNAL-COMPILE-WARNINGS-P*.") + (defun handle-warning (condition) (cond (*resignal-compiler-warnings*