Changeset 169


Ignore:
Timestamp:
Dec 31, 2003, 3:12:01 AM (21 years ago)
Author:
Gary Byers
Message:

Use STANDARD-OBJECT-P to find instance class-wrappers.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/ccl/lib/describe.lisp

    r149 r169  
    514514  (let* ((instance (inspector-object i))
    515515         (class (class-of instance))
    516          (wrapper (ccl::instance.class-wrapper instance))
     516         (wrapper (ccl::standard-object-p instance))
    517517         (instance-start 2))
    518518    (if (< n instance-start)
Note: See TracChangeset for help on using the changeset viewer.