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