Ignore:
Timestamp:
Aug 11, 2008, 1:32:43 AM (11 years ago)
Author:
gb
Message:

Store the class-wrapper (not the class) in a BASIC-STREAM.

File:
1 edited

Legend:

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

    r10423 r10424  
    11871187           (istruct-cell-info (%svref instance 0)))
    11881188          ((eql typecode target::subtag-basic-stream)
    1189            (%class.own-wrapper (basic-stream.class instance)))
     1189           (basic-stream.wrapper instance))
    11901190          ((typep instance 'funcallable-standard-object)
    11911191           (gf.instance.class-wrapper instance))
     
    22832283                          *istruct-class*)))))
    22842284        (setf (%svref v target::subtag-basic-stream)
    2285               #'(lambda (b) (basic-stream.class b)))
     2285              #'(lambda (b) (%wrapper-class (basic-stream.wrapper b))))
    22862286        (setf (%svref v target::subtag-instance)
    22872287              #'%class-of-instance)
Note: See TracChangeset for help on using the changeset viewer.