[armedbear-cvs] r13554 - trunk/abcl/src/org/armedbear/lisp

[ehuelsmann at common-lisp.net]

Author: ehuelsmann
Date: Fri Sep  2 01:33:43 2011
New Revision: 13554

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

Found by: Blake McBride

Modified:
   trunk/abcl/src/org/armedbear/lisp/describe.lisp

Modified: trunk/abcl/src/org/armedbear/lisp/describe.lisp
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/describe.lisp	Wed Aug 31 05:07:26 2011	(r13553)
+++ trunk/abcl/src/org/armedbear/lisp/describe.lisp	Fri Sep  2 01:33:43 2011	(r13554)
@@ -112,7 +112,7 @@
 
 (defmethod describe-object ((object standard-object) stream)
   (let* ((class (class-of object))
-         (slotds (%class-slots class))
+         (slotds (mop:class-slots class))
          (max-slot-name-length 0)
          (instance-slotds ())
          (class-slotds ()))