Changeset 994


Ignore:
Timestamp:
Mar 5, 2005, 6:55:11 AM (15 years ago)
Author:
bryan
Message:

%print-unreadable-object should always return nil.

when type is t, %print-unreadable-object should always print a space
after the type not just when it's followed by more stuff. (seems
less aesthetically pleasing, but that's what the spec says).

File:
1 edited

Legend:

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

    r988 r994  
    516516  (write-unreadable-start object stream)
    517517  (when type
    518     (princ (type-of object) stream))
     518    (princ (type-of object) stream)
     519    (stream-write-char stream #\space))
    519520  (when thunk
    520     (when type (stream-write-char stream #\space))
    521521    (funcall thunk))
    522522  (if id
    523523    (%write-address object stream #\>)
    524     (pp-end-block stream ">")))
     524    (pp-end-block stream ">"))
     525  nil)
    525526
    526527;;;; ======================================================================
Note: See TracChangeset for help on using the changeset viewer.