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

[gb at clozure.com]

Author: gb
Date: Tue Aug  5 07:02:57 2008
New Revision: 10352

Log:
Propagate r10350 to trunk.





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 Tue Aug  5 07:02:57 2008
@@ -1606,7 +1606,7 @@
 =

 ; This special-casing for wrappers is cheaper than consing a class
 (defun write-an-istruct (istruct stream level)
-  (let* ((type (uvref istruct 0))
+  (let* ((type (istruct-cell-name (uvref istruct 0)))
          (wrapper-p  (eq type 'class-wrapper)))
     (print-unreadable-object (istruct stream :identity t)
       (write-internal stream type (%i- level 1) nil)