diff --git a/ansi-tests/atan.lsp b/ansi-tests/atan.lsp index a76edd7205e817544b8eca397ed02065e71a4da5..bb9d2a12e91856deb0b0d20f18cd29ecdb32ccc7 100644 --- a/ansi-tests/atan.lsp +++ b/ansi-tests/atan.lsp @@ -6,8 +6,10 @@ (in-package :cl-test) (deftest atan.1 - (atan 0) - 0.0) + (let ((result (atan 0))) + (or (eqlt result 0) + (eqlt result 0.0))) + t) (deftest atan.2 (loop for type in '(short-float single-float double-float long-float)