Raymond Toy pushed to branch issue-468-core-math-signals at cmucl / cmucl

Commits:

2 changed files:

Changes:

  • src/lisp/irrat.c
    ... ... @@ -216,9 +216,12 @@ lisp_log10(double x)
    216 216
     double
    
    217 217
     lisp_pow(double x, double y)
    
    218 218
     {
    
    219
    -#ifdef FEATURE_CORE_MATH
    
    220
    -    return cr_pow(x, y);
    
    221
    -#else    
    
    219
    +    /*
    
    220
    +     * cr_pow seems causes ansi-tests to fail in test WRITE.1 among
    
    221
    +     * others.  Somewhere an invalid operation is occurring.  Thus
    
    222
    +     * just use fdlibm for now until we can figure out what's causing
    
    223
    +     * the failure.
    
    224
    +     */
    
    222 225
         return __ieee754_pow(x, y);
    
    223 226
     #endif
    
    224 227
     }
    

  • tests/fdlibm.lisp
    ... ... @@ -110,6 +110,7 @@
    110 110
       ;; overflow.
    
    111 111
       (assert-error 'floating-point-overflow
    
    112 112
     		(kernel:%asinh ext:double-float-positive-infinity))
    
    113
    +  #-core-math
    
    113 114
       (assert-error 'floating-point-overflow
    
    114 115
     		(kernel:%asinh ext:double-float-negative-infinity))
    
    115 116
       (assert-true (ext:float-nan-p (kernel:%asinh *qnan*)))