From 0808c9feb2e1419f2488a0969b2656182dde4a0e Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Daniel=20Kochma=C5=84ski?= <daniel@turtleware.eu> Date: Thu, 22 Dec 2016 21:31:07 +0100 Subject: [PATCH] atan: inf: be explicit in the comment about the sign --- numbers/atan.lsp | 19 ++++++++++++------- 1 file changed, 12 insertions(+), 7 deletions(-) diff --git a/numbers/atan.lsp b/numbers/atan.lsp index 6bec43b9..9945574d 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 -- GitLab