| commit | cefc4d2a55dc69c8e49454c3066b56df04c2745b | |
| author | Stas Boukarev <stassats@gmail.com> | |
| Mon, 18 Jan 2016 16:26:48 +0000 (18 19:26 +0300) | ||
| committer | Stas Boukarev <stassats@gmail.com> | |
| Mon, 18 Jan 2016 16:26:48 +0000 (18 19:26 +0300) | ||
| tree | 849abaaf2a085cb2fbf29e0e5119d8dac5276618 | treesnapshot (tar.gz zip) |
| parent | b5cff46717140289943066d65c4cf166fdc23be0 | commitdiff |
Fix SQRT on LEAST-NEGATIVE-DOUBLE-FLOAT.
COMPLEX-SQRT calls SCALB and SCALB declares the exponent to be
DOUBLE-FLOAT-EXPONENT, (INTEGER -1074 1024), but the exponent in the
LEAST-NEGATIVE-DOUBLE-FLOAT case is 1074. Since SCALB just calls
SCALE-FLOAT, remove it altogether and replace with SCALE-FLOAT.
COMPLEX-SQRT calls SCALB and SCALB declares the exponent to be
DOUBLE-FLOAT-EXPONENT, (INTEGER -1074 1024), but the exponent in the
LEAST-NEGATIVE-DOUBLE-FLOAT case is 1074. Since SCALB just calls
SCALE-FLOAT, remove it altogether and replace with SCALE-FLOAT.
| src/code/irrat.lisp | diffblobblamehistory | |
| tests/arith.pure.lisp | diffblobblamehistory |