Changeset 887

Timestamp:

Sep 25, 2004, 5:31:07 PM (20 years ago)

Author:

Gary Byers

Message:

INSTANCE-SLOTS knows where to find slots in funcallable instances that aren't
GF's (from Tim Moore.)

File:

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

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

@@ -33 +33 @@
     (cond ((eql typecode target::subtag-instance) (instance.slots instance))
           ((eql typecode target::subtag-macptr) (foreign-slots-vector instance))
-          ((typep instance 'standard-generic-function) (gf.slots instance))
+          ((or (typep instance 'standard-generic-function)
+               (typep instance 'funcallable-standard-object))
+           (gf.slots instance))
           (t  (error "Don't know how to find slots of ~s" instance)))))