Changeset 9574


Ignore:
Timestamp:
May 22, 2008, 8:04:20 AM (11 years ago)
Author:
gb
Message:

INSTANCE-CLASS-WRAPPER: handle BASIC-STREAM without going through
CLASS-OF.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711-perf/ccl/level-1/l1-clos-boot.lisp

    r9510 r9574  
    12481248        ((eql (typecode instance) target::subtag-istruct)
    12491249         (istruct-cell-info (%svref instance 0)))
     1250        ((typep instance 'basic-stream)
     1251         (%class.own-wrapper (basic-stream.class instance)))
    12501252        ((typep instance 'funcallable-standard-object)
    12511253         (gf.instance.class-wrapper instance))
Note: See TracChangeset for help on using the changeset viewer.