Changeset 13930
- Timestamp:
- 05/05/12 19:48:16 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/abcl/src/org/armedbear/lisp/print-object.lisp
r13928 r13930 51 51 (defmethod print-object ((class class) stream) 52 52 (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))) 62 54 class) 63 55
Note: See TracChangeset
for help on using the changeset viewer.