Changeset 13441

Timestamp:

Feb 8, 2010, 12:49:08 PM (15 years ago)

Author:

gz

Message:

core-print: show more type info

File:

• branches/working-0711/ccl/library/core-files.lisp (modified) (1 diff)

branches/working-0711/ccl/library/core-files.lisp

@@ -963 +963 @@
            (core-print obj stream depth))
          (format stream ")"))
-        (t (format stream "#<core ~s x~x>"
-                   (core-object-typecode-type obj) obj))))
+        (t (format stream "#<core ~a x~x>"
+                   (or (ignore-errors (core-type-string (core-object-type-key obj)))
+                       (core-object-typecode-type obj))
+                   obj))))
 
 (defun core-print-symbol (sym stream)