Changeset 8986


Ignore:
Timestamp:
Apr 2, 2008, 8:11:43 AM (11 years ago)
Author:
gb
Message:

Propagate fix to OPTIMIZE-CTYPEP from working-0711 to trunk.

File:
1 edited

Legend:

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

    r8130 r8986  
    14061406                     (type (if (eq class 'float)
    14071407                             (or format class)
    1408                              class)))
     1408                             (or class 'real))))
    14091409                (cond ((and low (eql low high) (or (not (eq class 'float))
    14101410                                                   format))
     
    14441444                      (t
    14451445                       (let* ((temp (gensym)))
    1446                          (if (and (typep low 'fixnum) (typep high 'fixnum))
     1446                         (if (and (typep low 'fixnum) (typep high 'fixnum)
     1447                                  (eq class 'integer))
    14471448                           (setq type 'fixnum))
    14481449                         (if (or low high)
Note: See TracChangeset for help on using the changeset viewer.