Changeset 165

Timestamp:

Dec 31, 2003, 3:06:40 AM (21 years ago)

Author:

Gary Byers

Message:

Write the address involved in a #<Recursive printing error>, as if that helps ...
Use CLASS-NAME vice %CLASS.NAME.

File:

• trunk/ccl/level-1/l1-io.lisp (modified) (2 diffs)

trunk/ccl/level-1/l1-io.lisp

@@ -320 +320 @@
                          (*print-circle* nil))
                      (if *inside-printer-error*
-                       (if (eql 1 (incf *inside-printer-error*))
-                         (%write-string "#<Recursive printing error>" stream))
+                       (when (eql 1 (incf *inside-printer-error*))
+                         (%write-string "#<Recursive printing error " stream)
+                         (stream-write-char stream #\space)
+                         (%write-address (%address-of object) stream)
+                         (stream-write-char stream #\>))
                        (let ((*inside-printer-error* 0))
                          ; using format here considered harmful.
@@ -1506 +1509 @@
          (wrapper-p  (eq type 'class-wrapper)))
     (print-unreadable-object (istruct stream :identity t)
-      (write-internal stream (uvref istruct 0) (%i- level 1) nil)
+      (write-internal stream type (%i- level 1) nil)
       (when wrapper-p
         (pp-space stream)
-        (print-object (%class.name (%wrapper-class istruct)) stream)))))
+        (print-object (class-name (%wrapper-class istruct)) stream)))))
 
 (defun write-a-uvector (uvec stream level)