Changeset 11681


Ignore:
Timestamp:
Feb 4, 2009, 5:45:31 PM (10 years ago)
Author:
gz
Message:

fix braino in typep optimizer

File:
1 edited

Legend:

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

    r11647 r11681  
    15911591(define-compiler-macro typep  (&whole call &environment env thing type &optional e)
    15921592  (if (quoted-form-p type)
    1593     (if (and (constantp thing) (specifier-type-if-known type env))
     1593    (if (and (constantp thing) (specifier-type-if-known (%cadr type) env))
    15941594      (typep (if (quoted-form-p thing) (%cadr thing) thing) (%cadr type) env)
    15951595      (or (and (null e) (optimize-typep thing (%cadr type) env))
     
    16021602  (if (not (quoted-form-p type))
    16031603    (progn
    1604       (warn "Non-qouted structure-type in ~s" w)
     1604      (warn "Non-quoted structure-type in ~s" w)
    16051605      w)
    16061606    (let* ((type (nx-unquote type)))
Note: See TracChangeset for help on using the changeset viewer.