From a212df0d51e06f05ce519faa039ae8b06ff52743 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Daniel=20Kochma=C5=84ski?= <daniel@turtleware.eu>
Date: Thu, 22 Dec 2016 11:30:10 +0100
Subject: [PATCH] cosmetic: fix comment placement

---
 numbers/atan.lsp | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/numbers/atan.lsp b/numbers/atan.lsp
index fdf8c9cd..34880080 100644
--- a/numbers/atan.lsp
+++ b/numbers/atan.lsp
@@ -128,16 +128,16 @@
 
 ;;; ieee-fp tests
 (deftest atan.ieee.1 :description "Verify if atan handles 0.0 correctly"
-  ;; (atan +-0 +(anything-but-nan))  -> +-0
-  ;; (atan +-0 -(anything-but-nan))  -> +-pi
   (flet ((pip (a b)
            ;; we are not testing accuracy, so this simplified
-           ;; precdicate would be sufficient for our needs. We are
-           ;; also not interested in sign of the result, because we
-           ;; don't know whenever zero is signed or not.
+           ;; predicate would be sufficient for our needs. We are also
+           ;; not interested in sign of the result, because we don't
+           ;; know whenever zero is signed or not.
            (<= (abs (- (abs a) (abs b))) 0.01)))
     (every #'identity
            (append
+            ;; (atan +-0 +(anything-but-nan))  -> +-0
+            ;; (atan +-0 -(anything-but-nan))  -> +-pi
             (map 'list (lambda (n)
                          ;; notice, that we don't test a case, where
                          ;; both arguments are 0.0, because if
-- 
GitLab