Changeset 5945


Ignore:
Timestamp:
Feb 19, 2007, 11:40:56 AM (13 years ago)
Author:
gb
Message:

MAYBE-UPDATE-OBSOLETE-INSTANCE: handle funcallable objects that aren't
STANDARD-GENERIC-FUNCTIONs.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/ccl/level-1/l1-clos-boot.lisp

    r5940 r5945  
    30093009  (let ((wrapper (standard-object-p instance)))
    30103010    (unless wrapper
    3011       (when (standard-generic-function-p instance)
    3012         (setq wrapper (generic-function-wrapper instance)))
     3011      (if (standard-generic-function-p instance)
     3012        (setq wrapper (generic-function-wrapper instance))
     3013        (when (typep instance 'funcallable-standard-object)
     3014          (setq wrapper (gf.instance.class-wrapper instance))))
     3015     
    30133016      (unless wrapper
    30143017        (report-bad-arg instance '(or standard-object standard-generic-function))))
Note: See TracChangeset for help on using the changeset viewer.