Changeset 9535


Ignore:
Timestamp:
May 16, 2008, 8:01:08 PM (11 years ago)
Author:
gb
Message:

In class :simple-subtypep method, call %INITED-CLASS-CPL with a true
initialize-can-fail arg.

File:
1 edited

Legend:

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

    r9517 r9535  
    34633463            ;; %INITED-CLASS-CPL will return NIL if class1 can't
    34643464            ;; be finalized; in that case, we don't know the answer.
    3465             (let ((supers (%inited-class-cpl class1)))
     3465            (let ((supers (%inited-class-cpl class1 t)))
    34663466              (if (memq class2 supers)
    34673467                (values t t)
Note: See TracChangeset for help on using the changeset viewer.