Changeset 15381

Timestamp:

May 25, 2012, 4:58:47 AM (13 years ago)

Author:

Gary Byers

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:

• trunk/source/compiler/optimizers.lisp (modified) (1 diff)

trunk/source/compiler/optimizers.lisp

@@ -1560 +1560 @@
                                         (if (and class
                                                  (subtypep class 'standard-object)
-                                                 (not (subtypep class 'foreign-standard-object))
-                                                 (not (subtypep class 'funcallable-standard-object)))
+                                                 (not (subtypep 'foreign-standard-object class))
+                                                 (not (subtypep 'funcallable-standard-object class)))
                                           'std-instance-class-cell-typep
                                           'class-cell-typep)))