1.0.19.25: refactor global muffling slightly

 * Move TYPEP *MUFFLED-WARNINGS* into a separate function for easier
   debugging. (Too hard to replace the inital handler cluster while
   running, whereas redefining MUFFLED-WARNING-P is easy.)

diff --git a/src/code/target-error.lisp b/src/code/target-error.lisp
index 845c647..659ed28 100644 (file)
--- a/src/code/target-error.lisp
+++ b/src/code/target-error.lisp
@@ -19,12 +19,13 @@
 ;;; associated with Condition
 (defvar *condition-restarts* ())
 
+(defun muffle-warning-p (warning)
+  (declare (special *muffled-warnings*))
+  (typep warning *muffled-warnings*))
+
 (defun initial-handler-clusters ()
   `(((warning . ,#'(lambda (warning)
-                     (when (typep warning
-                                  (locally
-                                      (declare (special sb!ext:*muffled-warnings*))
-                                    sb!ext:*muffled-warnings*))
+                     (when (muffle-warning-p warning)
                        (muffle-warning warning)))))))
 
 (defvar *handler-clusters* (initial-handler-clusters))

diff --git a/version.lisp-expr b/version.lisp-expr
index 25c6c3c..535806b 100644 (file)
--- a/version.lisp-expr
+++ b/version.lisp-expr
@@ -17,4 +17,4 @@
 ;;; checkins which aren't released. (And occasionally for internal
 ;;; versions, especially for internal versions off the main CVS
 ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
-"1.0.19.24"
+"1.0.19.25"