jss: fix problems with JSS::MUFFLE

parent a320ca97
......@@ -243,7 +243,10 @@ want to avoid the overhead of the dynamic dispatch."
(with-constant-signature ,(cdr fname-jname-pairs)
,@body)))))))
(defun lookup-class-name (name &key (muffle *muffle-warnings*))
(defun lookup-class-name (name &key
(table *class-name-to-full-case-insensitive*)
(muffle-warning nil)
(return-ambiguous nil))
(setq name (string name))
(let* (;; cant (last-name-pattern (#"compile" '|java.util.regex.Pattern| ".*?([^.]*)$"))
;; reason: bootstrap - the class name would have to be looked up...
......@@ -265,7 +268,7 @@ want to avoid the overhead of the dynamic dispatch."
(ambiguous (choices)
(error "Ambiguous class name: ~a can be ~{~a~^, ~}" name choices)))
(if (zerop bucket-length)
(progn (unless muffle (warn "can't find class named ~a" name)) nil)
(progn (unless muffle-warning (warn "can't find class named ~a" name)) nil)
(let ((matches (loop for el in bucket when (matches-end name el 'char=) collect el)))
(if (= (length matches) 1)
(car matches)
......@@ -274,7 +277,7 @@ want to avoid the overhead of the dynamic dispatch."
(if (= (length matches) 1)
(car matches)
(if (= (length matches) 0)
(progn (unless muffle (warn "can't find class named ~a" name)) nil)
(progn (unless muffle-warning (warn "can't find class named ~a" name)) nil)
(ambiguous matches))))
(ambiguous matches))))))))))
......
;;;; -*- Mode: LISP -*-
(asdf:defsystem :jss
:author "Alan Ruttenberg, Mark Evenson"
:version "3.2.0"
:version "3.2.1"
:description "<> asdf:defsystem <urn:abcl.org/release/1.5.0/contrib/jss#3.2.0>"
:components ((:module base
:pathname "" :serial t
:components ((:module base :pathname "" :serial t
:components ((:file "packages")
(:file "invoke")
(:file "collections")
(:file "optimize-java-call")
(:file "classpath")
(:file "compat")))))
......
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