Changeset 14910


Ignore:
Timestamp:
11/17/16 10:42:25 (7 years ago)
Author:
Mark Evenson
Message:

jss: muffle warnings from JSS:LOOKUP-CLASS-NAME

Location:
trunk/abcl/contrib/jss
Files:
3 edited

Legend:

Unmodified
Added
Removed

  • trunk/abcl/contrib/jss/invoke.lisp

    r14906 r14910  
    124124    "Whether to automatically introspect all Java classes on the classpath when JSS is loaded."))
    125125
     126(defvar *muffle-warnings* t)
     127
    126128(defvar *imports-resolved-classes* (make-hash-table :test 'equalp))
    127129
    … …  
    242244                 ,@body)))))))
    243245
    244 (defun lookup-class-name (name)
     246(defun lookup-class-name (name &key (muffle *muffle-warnings*))
    245247  (setq name (string name))
    246248  (let* (;; cant (last-name-pattern (#"compile" '|java.util.regex.Pattern| ".*?([^.]*)$"))
    … …  
    264266                   (error "Ambiguous class name: ~a can be ~{~a~^, ~}" name choices)))
    265267            (if (zerop bucket-length)
    266     (progn (warn "can't find class named ~a" name) nil)
     268    (progn (unless muffle (warn "can't find class named ~a" name)) nil)
    267269                (let ((matches (loop for el in bucket when (matches-end name el 'char=) collect el)))
    268270                  (if (= (length matches) 1)
    … …  
    273275                                (car matches)
    274276                                (if (= (length matches) 0)
    275             (progn (warn "can't find class named ~a" name) nil)
     277            (progn (unless muffle (warn "can't find class named ~a" name)) nil)
    276278                                    (ambiguous matches))))
    277279                          (ambiguous matches))))))))))

  • trunk/abcl/contrib/jss/jss.asd

    r14900 r14910  
    22(asdf:defsystem :jss
    33  :author "Alan Ruttenberg, Mark Evenson"
    4   :version "3.1.0"
    5   :description "<> asdf:defsystem <urn:abcl.org/release/1.5.0/contrib/jss#3.1.0>"
     4  :version "3.1.1"
     5  :description "<> asdf:defsystem <urn:abcl.org/release/1.5.0/contrib/jss#3.1.1>"
    66  :components ((:module base
    77                        :pathname "" :serial t

  • trunk/abcl/contrib/jss/packages.lisp

    r13937 r14910  
    66   #:*added-to-classpath*
    77   #:*do-auto-imports*
     8   #:*muffle-warnings*
    89
    910   #:invoke-restargs
Note: See TracChangeset for help on using the changeset viewer.