parent 061c6cab
......@@ -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))
......
......@@ -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)))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment