[Openmcl-cvs-notifications] r10767 - /trunk/source/level-1/l1-io.lisp

[rme at clozure.com]

Author: rme
Date: Mon Sep 15 20:27:01 2008
New Revision: 10767

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

Modified:
    trunk/source/level-1/l1-io.lisp

Modified: trunk/source/level-1/l1-io.lisp
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/source/level-1/l1-io.lisp (original)
+++ trunk/source/level-1/l1-io.lisp Mon Sep 15 20:27:01 2008
@@ -593,9 +593,9 @@
         ((eq stream t) (setq stream *terminal-io*)))
   (write-unreadable-start object stream)
   (when type
-    (princ (type-of object) stream)
-    (stream-write-char stream #\space))
+    (princ (type-of object) stream))
   (when thunk =

+    (when type (stream-write-char stream #\space))
     (funcall thunk))
   (if id
     (%write-address object stream #\>)