Changeset 13305
- Timestamp:
- 05/27/11 22:38:25 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/abcl/src/org/armedbear/lisp/print-object.lisp
r12583 r13305 40 40 41 41 (defmethod print-object ((object t) stream) 42 (print-unreadable-object (object stream :type t :identity t))) 42 (print-unreadable-object (object stream :type t :identity t) 43 (write-string (%write-to-string object) stream))) 43 44 44 45 (defmethod print-object ((object structure-object) stream) 45 46 (write-string (%write-to-string object) stream)) 46 47 (defmethod print-object ((object standard-object) stream)48 (print-unreadable-object (object stream :identity t)49 (format stream "~S" (class-name (class-of object))))50 object)51 47 52 48 (defmethod print-object ((class class) stream)
Note: See TracChangeset
for help on using the changeset viewer.