From 7b81dc8b10dae66acf3209ad7cf5371932897595 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Daniel=20Kochma=C5=84ski?=
Date: Thu, 22 Dec 2016 23:03:18 +0100
Subject: [PATCH] numbers: atan: remove extra map nesting
previously we had two map, which were appended, now we have one lambda
function, so there is no need for it.
---
numbers/atan.lsp | 34 ++++++++++++++++------------------
1 file changed, 16 insertions(+), 18 deletions(-)
diff --git a/numbers/atan.lsp b/numbers/atan.lsp
index 6c345c1..8bce4ff 100644
--- a/numbers/atan.lsp
+++ b/numbers/atan.lsp
@@ -134,17 +134,16 @@
;; (atan +-0 +(anything-but-nan)) -> +-0
;; (atan +-0 -(anything-but-nan)) -> +-pi
;; (atan +-(anything-but-0/nan) 0) -> +-pi/2
- (every #'identity
- (map 'list (lambda (n)
- ;; notice, that we don't test a case, where
- ;; both arguments are 0.0, because if
- ;; implementation doesn't support signed 0
- ;; result is undefined.
- (and (zerop (atan 0.0 n))
- (+pi-p (atan 0.0 (- n)))
- (+pi/2-p (atan n 0.0))
- (-pi/2-p (atan (- n) 0.0))))
- (remove-if-not #'plusp *floats*))))
+ (every (lambda (n)
+ ;; notice, that we don't test a case, where
+ ;; both arguments are 0.0, because if
+ ;; implementation doesn't support signed 0
+ ;; result is undefined.
+ (and (zerop (atan 0.0 n))
+ (+pi-p (atan 0.0 (- n)))
+ (+pi/2-p (atan n 0.0))
+ (-pi/2-p (atan (- n) 0.0))))
+ (remove-if-not #'plusp *floats*)))
T)
(deftest atan.ieee.2 :description "Verify ATAN handling signed zero"
@@ -162,13 +161,12 @@
(-zerop (atan -0.0 +0.0))
(+pi-p (atan +0.0 -0.0))
(-pi-p (atan -0.0 -0.0))
- (every #'identity
- (map 'list (lambda (n)
- (and (-zerop (atan -0.0 n))
- (+zerop (atan +0.0 n))
- (+pi-p (atan +0.0 (- n)))
- (-pi-p (atan -0.0 (- n)))))
- (remove-if-not #'plusp *floats*))))))
+ (every (lambda (n)
+ (and (-zerop (atan -0.0 n))
+ (+zerop (atan +0.0 n))
+ (+pi-p (atan +0.0 (- n)))
+ (-pi-p (atan -0.0 (- n)))))
+ (remove-if-not #'plusp *floats*)))))
T)
;;; We could have tested also for infinities and nan's, but there is
--
2.24.1