diff --git a/tests/trig.lisp b/tests/trig.lisp index a979ca8139ea99a3d43f1498725492c14df5b337..84fc74c1a3743d13052bf509d16757def7a6c2f1 100644 --- a/tests/trig.lisp +++ b/tests/trig.lisp @@ -16,7 +16,7 @@ (define-test sin.very-small "Tests sin for the case of |x| < 2^-27, but not 0." (:tag :sin) - (assert-eql (scale-float 1d0 -27) + (assert-eql (scale-float 1d0 -28) (sin (scale-float 1d0 -28)))) (define-test sin.no-reduction