Changeset 15077


Ignore:
Timestamp:
Nov 19, 2011, 10:12:13 PM (8 years ago)
Author:
gb
Message:

FLOAT: don't coerce double-float to single if 2nd arg not supplied.

File:
1 edited

Legend:

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

    r14761 r15077  
    22702270
    22712271  (cond ((and (typep other 'single-float)
     2272              other-p
    22722273              (nx-form-typep number 'double-float env))
    22732274         `(the single-float (%double-to-single ,number)))
Note: See TracChangeset for help on using the changeset viewer.