Changeset 13930


Ignore:
Timestamp:
05/05/12 19:48:16 (9 years ago)
Author:
rschlatte
Message:

Revert previous print-object change.

... better to find the root causes and fix them.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/src/org/armedbear/lisp/print-object.lisp

    r13928 r13930  
    5151(defmethod print-object ((class class) stream)
    5252  (print-unreadable-object (class stream :identity t)
    53     (format stream "~S ~S"
    54             (class-name (class-of class))
    55             ;; Handle partially-initialized class metaobjects
    56             ;; gracefully; useful for error reporting.
    57             (cond ((not (slot-exists-p class 'name))
    58                    "(a class object without name slot)")
    59                   ((not (slot-boundp class 'name))
    60                    "(a class object with unset name)")
    61                   (t (class-name class)))))
     53    (format stream "~S ~S" (class-name (class-of class)) (class-name class)))
    6254  class)
    6355
Note: See TracChangeset for help on using the changeset viewer.