diff --git a/numbers/atan.lsp b/numbers/atan.lsp index 6bec43b971f8560373cf4d713f89cec3c8137aeb..9945574d1840fb4c159b9e934777c9f75595da80 100644 --- a/numbers/atan.lsp +++ b/numbers/atan.lsp @@ -175,13 +175,18 @@ ;;; no portable ieee-fp, we could put it in ansi-beyond test suite ;;; though: ;;; -;;; (atan (anything) nan) -> nan -;;; (atan nan (anything)) -> nan -;;; (atan +-inf +inf) -> +-pi/4 -;;; (atan +-inf -inf) -> +-3pi/4 -;;; (atan +-(anything-but-inf/nan), +inf) -> +-0 -;;; (atan +-(anything-but-inf/nan), -inf) -> +-pi -;;; (atan +-inf (anything-but-0/nan/inf)) -> +-pi/2 +;;; (atan (anything) nan) -> nan +;;; (atan nan (anything)) -> nan +;;; (atan +inf +inf) -> +pi/4 +;;; (atan -inf +inf) -> -pi/4 +;;; (atan +inf -inf) -> +3pi/4 +;;; (atan -inf -inf) -> -3pi/4 +;;; (atan -(anything-but/inf+nan), +inf) -> -0 +;;; (atan +(anything-but/inf+nan), +inf) -> +0 +;;; (atan +(anything-but/inf+nan), -inf) -> +pi +;;; (atan -(anything-but/inf+nan), -inf) -> -pi +;;; (atan +inf (anything-but/0+inf+nan)) -> +pi/2 +;;; (atan -inf (anything-but/0+inf+nan)) -> -pi/2 ;;; ;;; Error tests