Changeset 13554 for trunk


Ignore:
Timestamp:
09/02/11 08:33:43 (10 years ago)
Author:
ehuelsmann
Message:

Fix DESCRIBE for instances of classes with a custom META-CLASS.

Found by: Blake McBride?

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/src/org/armedbear/lisp/describe.lisp

    r12436 r13554  
    113113(defmethod describe-object ((object standard-object) stream)
    114114  (let* ((class (class-of object))
    115          (slotds (%class-slots class))
     115         (slotds (mop:class-slots class))
    116116         (max-slot-name-length 0)
    117117         (instance-slotds ())
Note: See TracChangeset for help on using the changeset viewer.