Changeset 41f1ca


Ignore:
Timestamp:
03/24/12 02:05:24 (3 years ago)
Author:
Raymond Toy <rtoy@…>
Branches:
master
Children:
dd5c2a
Parents:
d80256
Message:

Oops. Need to take the realpart before call FLOAT-NAN-P.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • rt-tests.lisp

    r82b854 r41f1ca  
    5555  (let ((bits (bit-accuracy est true)))
    5656    (if (not (eq bits t))
    57         (if (and (not (float-nan-p est))
     57        (if (and (not (float-nan-p (realpart est)))
    5858                 (not (float-nan-p bits))
    5959                 (< bits limit))
Note: See TracChangeset for help on using the changeset viewer.