Changeset 10350


Ignore:
Timestamp:
Aug 5, 2008, 10:52:03 AM (11 years ago)
Author:
gb
Message:

In WRITE-AN-ISTRUCT, need to use ISTRUCT-CELL-NAME on 0th element of istruct.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/level-1/l1-io.lisp

    r9946 r10350  
    16351635; This special-casing for wrappers is cheaper than consing a class
    16361636(defun write-an-istruct (istruct stream level)
    1637   (let* ((type (uvref istruct 0))
     1637  (let* ((type (istruct-cell-name (uvref istruct 0)))
    16381638         (wrapper-p  (eq type 'class-wrapper)))
    16391639    (print-unreadable-object (istruct stream :identity t)
Note: See TracChangeset for help on using the changeset viewer.