Changeset 5943

Timestamp:

Feb 19, 2007, 3:36:07 AM (18 years ago)

Author:

Gary Byers

Message:

STANDARD-OBJECT-LINE-N: handle funcallable-stanard-objects better.

File:

• trunk/ccl/lib/describe.lisp (modified) (1 diff)

trunk/ccl/lib/describe.lisp

@@ -515 +515 @@
   (let* ((instance (inspector-object i))
          (class (class-of instance))
-         (wrapper (ccl::standard-object-p instance))
+         (wrapper (or (ccl::standard-object-p instance)
+                      (if (typep instance 'ccl::funcallable-standard-object)
+                        (ccl::gf.instance.class-wrapper instance))))
          (instance-start 2))
     (if (< n instance-start)