Changeset 9446


Ignore:
Timestamp:
May 9, 2008, 3:34:28 PM (11 years ago)
Author:
gb
Message:

Don't assume that class1 has a wrapper (compile-time, forward-referenced,
unfinalized ? classses may not) in CLASS :SIMPLE-SUBTYPEP method.

File:
1 edited

Legend:

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

    r9429 r9446  
    34663466    (if (and class1 class2)
    34673467      (let* ((ordinal2 (%class-ordinal class2))
    3468              (bits1 (%wrapper-cpl-bits (%class.own-wrapper class1))))
     3468             (wrapper1 (%class.own-wrapper class1))
     3469             (bits1 (if wrapper1 (%wrapper-cpl-bits wrapper1))))
    34693470        (if bits1
    34703471          (locally (declare (simple-bit-vector bits1)
Note: See TracChangeset for help on using the changeset viewer.