Changeset 10767


Ignore:
Timestamp:
Sep 16, 2008, 12:27:01 AM (11 years ago)
Author:
rme
Message:

Revert part of r994, which changed %PRINT-UNREADABLE-OBJECT to print
a space after the type unconditionally.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-1/l1-io.lisp

    r10672 r10767  
    594594  (write-unreadable-start object stream)
    595595  (when type
    596     (princ (type-of object) stream)
    597     (stream-write-char stream #\space))
     596    (princ (type-of object) stream))
    598597  (when thunk
     598    (when type (stream-write-char stream #\space))
    599599    (funcall thunk))
    600600  (if id
Note: See TracChangeset for help on using the changeset viewer.