Changeset 12335


Ignore:
Timestamp:
Jun 30, 2009, 10:30:14 PM (10 years ago)
Author:
gz
Message:

In find-applicable-methods: allow args to be classes, not just class names

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/lib/source-files.lisp

    r12333 r12335  
    544544                (declare (type list args-tail cpls-tail))
    545545                (let ((arg (car args-tail)) thing)
    546                   (if (consp arg)
    547                     (setq thing (class-of (cadr arg)))
    548                     (setq thing (find-class (or arg t) nil)))
     546                  (typecase arg
     547                    (cons
     548                       (setq thing (class-of (cadr arg))))
     549                    (symbol
     550                       (setq thing (find-class (or arg t) nil)))
     551                    (eql-specializer
     552                       (setq thing (class-of (eql-specializer-object arg))))
     553                    (t
     554                       (setq thing arg)))
    549555                  (when thing
    550556                    (setf (car cpls-tail)               
Note: See TracChangeset for help on using the changeset viewer.