parent 061c6cab
...@@ -126,7 +126,8 @@ single entry denoting a remote binary artifact." ...@@ -126,7 +126,8 @@ single entry denoting a remote binary artifact."
"LATEST"))) "LATEST")))
(handler-case (handler-case
(when (and classname (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." (warn "Not loading ~A from the network because ~A is present in classpath."
name classname) name classname)
(return-from resolve t)) (return-from resolve t))
......
...@@ -264,7 +264,7 @@ want to avoid the overhead of the dynamic dispatch." ...@@ -264,7 +264,7 @@ want to avoid the overhead of the dynamic dispatch."
(defun lookup-class-name (name &key (defun lookup-class-name (name &key
(table *class-name-to-full-case-insensitive*) (table *class-name-to-full-case-insensitive*)
(muffle-warning nil) (muffle-warning *muffle-warnings*)
(return-ambiguous nil)) (return-ambiguous nil))
(let ((overridden (maybe-found-in-overridden name))) (let ((overridden (maybe-found-in-overridden name)))
(when overridden (return-from lookup-class-name overridden))) (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