Changeset 10352


Ignore:
Timestamp:
Aug 5, 2008, 11:02:57 AM (11 years ago)
Author:
gb
Message:

Propagate r10350 to trunk.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-1/l1-io.lisp

    r10227 r10352  
    16071607; This special-casing for wrappers is cheaper than consing a class
    16081608(defun write-an-istruct (istruct stream level)
    1609   (let* ((type (uvref istruct 0))
     1609  (let* ((type (istruct-cell-name (uvref istruct 0)))
    16101610         (wrapper-p  (eq type 'class-wrapper)))
    16111611    (print-unreadable-object (istruct stream :identity t)
Note: See TracChangeset for help on using the changeset viewer.