Ignore:
Timestamp:
12/28/16 09:19:50 (5 years ago)
Author:
Mark Evenson
Message:

jss: fix problems with JSS::MUFFLE

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/contrib/jss/invoke.lisp

    r14933 r14938  
    244244                 ,@body)))))))
    245245
    246 (defun lookup-class-name (name &key (table *class-name-to-full-case-insensitive*) (muffle-warning nil) (return-ambiguous nil))
     246(defun lookup-class-name (name &key
     247                                 (table *class-name-to-full-case-insensitive*)
     248                                 (muffle-warning nil)
     249                                 (return-ambiguous nil))
    247250  (setq name (string name))
    248251  (let* (;; cant (last-name-pattern (#"compile" '|java.util.regex.Pattern| ".*?([^.]*)$"))
     
    268271           (error "Ambiguous class name: ~a can be ~{~a~^, ~}" name choices))))
    269272            (if (zerop bucket-length)
    270     (progn (unless muffle (warn "can't find class named ~a" name)) nil)
     273    (progn (unless muffle-warning (warn "can't find class named ~a" name)) nil)
    271274                (let ((matches (loop for el in bucket when (matches-end name el 'char=) collect el)))
    272275                  (if (= (length matches) 1)
Note: See TracChangeset for help on using the changeset viewer.