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