Changeset 9487


Ignore:
Timestamp:
May 15, 2008, 3:56:17 PM (11 years ago)
Author:
gz
Message:

Handle rtenv arg in subtypep optimizer

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711-perf/ccl/compiler/optimizers.lisp

    r9486 r9487  
    22272227
    22282228(define-compiler-macro subtypep (&whole w t1 t2 &optional rtenv  &environment env)
    2229   (declare (ignorable rtenv))
    22302229  (if (and (consp t1)
    22312230           (consp (cdr t1))
     
    22332232           (eq (car t1) 'type-of))
    22342233    ;; People really write code like this.  I've seen it.
    2235     `(typep ,(cadr t1) ,t2)
    2236     (if (quoted-form-p t2)
     2234    `(typep ,(cadr t1) ,t2 ,@(and rtenv `(,rtenv)))
     2235    (if (and (null rtenv) (quoted-form-p t2))
    22372236      `(cell-csubtypep-2 ,t1 (load-time-value (register-type-cell ,t2)))
    22382237      w)))
Note: See TracChangeset for help on using the changeset viewer.