Changeset 5945

Timestamp:

Feb 19, 2007, 3:40:56 AM (18 years ago)

Author:

Gary Byers

Message:

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

File:

• trunk/ccl/level-1/l1-clos-boot.lisp (modified) (1 diff)

trunk/ccl/level-1/l1-clos-boot.lisp

@@ -3009 +3009 @@
   (let ((wrapper (standard-object-p instance)))
     (unless wrapper
-      (when (standard-generic-function-p instance)
-        (setq wrapper (generic-function-wrapper instance)))
+      (if (standard-generic-function-p instance)
+        (setq wrapper (generic-function-wrapper instance))
+        (when (typep instance 'funcallable-standard-object)
+          (setq wrapper (gf.instance.class-wrapper instance))))
+      
       (unless wrapper
         (report-bad-arg instance '(or standard-object standard-generic-function))))