Changeset 14011
- Timestamp:
- 07/17/12 07:59:27 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/abcl/src/org/armedbear/lisp/print-object.lisp
r13983 r14011 51 51 (defmethod print-object ((class class) stream) 52 52 (print-unreadable-object (class stream :identity t) 53 (format stream "~S ~S" (class-name (class-of class)) (class-name class))) 53 ;; Avoid recursive errors for uninitialized class objects, e.g. when 54 ;; validate-superclass fails 55 (format stream "~S ~S" (class-name (class-of class)) (ignore-errors (class-name class)))) 54 56 class) 55 57
Note: See TracChangeset
for help on using the changeset viewer.