Changeset 14906


Ignore:
Timestamp:
10/24/16 10:07:03 (6 years ago)
Author:
Mark Evenson
Message:

jss: lookup-classname would return allcaps class name if not found (Alan Ruttenberg)

lookup-classname would return allcaps class name if not found, which
would mess things up if the class was later loaded. Instead warn and
return nil.

File:
1 edited

Legend:

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

    r14861 r14906  
    264264                   (error "Ambiguous class name: ~a can be ~{~a~^, ~}" name choices)))
    265265            (if (zerop bucket-length)
    266                 name
     266    (progn (warn "can't find class named ~a" name) nil)
    267267                (let ((matches (loop for el in bucket when (matches-end name el 'char=) collect el)))
    268268                  (if (= (length matches) 1)
     
    273273                                (car matches)
    274274                                (if (= (length matches) 0)
    275                                     name
     275            (progn (warn "can't find class named ~a" name) nil)
    276276                                    (ambiguous matches))))
    277277                          (ambiguous matches))))))))))
Note: See TracChangeset for help on using the changeset viewer.