Changeset 15381


Ignore:
Timestamp:
May 25, 2012, 11:58:47 AM (7 years ago)
Author:
gb
Message:

The tests (which decide whether to use STD-INSTANCE-CLASS-CELL-TYPEP
or CLASS-CELL-TYPEP when optimizing TYPEP calls) had it backwards.
(Generic functions are STANDARD-OBJECTs in the trunk, but

((lambda (x) (typep x 'standard-object)) #'stream-read-char)

would fail in compiled code.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/compiler/optimizers.lisp

    r15093 r15381  
    15601560                                        (if (and class
    15611561                                                 (subtypep class 'standard-object)
    1562                                                  (not (subtypep class 'foreign-standard-object))
    1563                                                  (not (subtypep class 'funcallable-standard-object)))
     1562                                                 (not (subtypep 'foreign-standard-object class))
     1563                                                 (not (subtypep 'funcallable-standard-object class)))
    15641564                                          'std-instance-class-cell-typep
    15651565                                          'class-cell-typep)))
Note: See TracChangeset for help on using the changeset viewer.