From fd203601666004afb367c8a80da24a4b4c8a18ca Mon Sep 17 00:00:00 2001 From: "mevenson@1c010e3e-69d0-11dd-93a8-456734b0d56f" Date: Sat, 27 Jan 2018 13:22:12 +0000 Subject: [PATCH] Make use of warning muffling (Olof-Joachim Frahm) Merges . From . --- contrib/abcl-asdf/abcl-asdf.lisp | 3 ++- contrib/jss/invoke.lisp | 2 +- 2 files changed, 3 insertions(+), 2 deletions(-) diff --git a/contrib/abcl-asdf/abcl-asdf.lisp b/contrib/abcl-asdf/abcl-asdf.lisp index b6cc1939..c321c8a8 100644 --- a/contrib/abcl-asdf/abcl-asdf.lisp +++ b/contrib/abcl-asdf/abcl-asdf.lisp @@ -126,7 +126,8 @@ single entry denoting a remote binary artifact." "LATEST"))) (handler-case (when (and classname - (jss:find-java-class classname)) + (let ((jss:*muffle-warnings* T)) + (jss:find-java-class classname))) (warn "Not loading ~A from the network because ~A is present in classpath." name classname) (return-from resolve t)) diff --git a/contrib/jss/invoke.lisp b/contrib/jss/invoke.lisp index 747cd269..3bc98637 100644 --- a/contrib/jss/invoke.lisp +++ b/contrib/jss/invoke.lisp @@ -264,7 +264,7 @@ want to avoid the overhead of the dynamic dispatch." (defun lookup-class-name (name &key (table *class-name-to-full-case-insensitive*) - (muffle-warning nil) + (muffle-warning *muffle-warnings*) (return-ambiguous nil)) (let ((overridden (maybe-found-in-overridden name))) (when overridden (return-from lookup-class-name overridden))) -- 2.18.1