Changeset 13441


Ignore:
Timestamp:
Feb 8, 2010, 8:49:08 PM (10 years ago)
Author:
gz
Message:

core-print: show more type info

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/library/core-files.lisp

    r13438 r13441  
    963963           (core-print obj stream depth))
    964964         (format stream ")"))
    965         (t (format stream "#<core ~s x~x>"
    966                    (core-object-typecode-type obj) obj))))
     965        (t (format stream "#<core ~a x~x>"
     966                   (or (ignore-errors (core-type-string (core-object-type-key obj)))
     967                       (core-object-typecode-type obj))
     968                   obj))))
    967969
    968970(defun core-print-symbol (sym stream)
Note: See TracChangeset for help on using the changeset viewer.