Changeset 15648


Ignore:
Timestamp:
Feb 2, 2013, 6:12:50 PM (6 years ago)
Author:
gb
Message:

Keep trying: (exp infinity) => infinity.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-1/l1-numbers.lisp

    r15647 r15648  
    769769    #+linux-target
    770770    (and (infinity-p TEMP)
     771         (not (infinity-p n))
    771772         (get-fpu-mode :overflow)
    772773         (error 'floating-point-overflow
     
    787788    #+linux-target
    788789    (and (infinity-p TEMP)
     790         (not (infinity-p n))
    789791         (get-fpu-mode :overflow)
    790792         (error 'floating-point-overflow
     
    808810    #+linux-target
    809811    (and (infinity-p result)
     812         (not (infinity-p n))
    810813         (get-fpu-mode :overflow)
    811814         (error 'floating-point-overflow
Note: See TracChangeset for help on using the changeset viewer.