Ignore:
Timestamp:
01/08/17 10:34:21 (11 months ago)
Author:
mevenson
Message:

jss: fix LOOKUP-CLASS-NAME muffling

File:
1 edited

Legend:

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

    r14938 r14940  
    280280                                (car matches)
    281281                                (if (= (length matches) 0)
    282             (progn (unless muffle (warn "can't find class named ~a" name)) nil)
     282            (progn (unless muffle-warning (warn "can't find class named ~a" name)) nil)
    283283                                    (ambiguous matches))))
    284284                          (ambiguous matches))))))))))
Note: See TracChangeset for help on using the changeset viewer.