From b0f607ac03cbabb039319ea983665cdc1e38a2a6 Mon Sep 17 00:00:00 2001 From: Nikodemus Siivola Date: Tue, 5 Aug 2008 16:32:17 +0000 Subject: [PATCH] 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.) --- src/code/target-error.lisp | 9 +++++---- version.lisp-expr | 2 +- 2 files changed, 6 insertions(+), 5 deletions(-) diff --git a/src/code/target-error.lisp b/src/code/target-error.lisp index 845c64708..659ed28d8 100644 --- 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 25c6c3c1f..535806bd5 100644 --- 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" -- 2.11.4.GIT