From be7f6528650eee5d1dfbce728d8b0370d708f861 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Daniel=20Kochma=C5=84ski?= <daniel@turtleware.eu> Date: Thu, 22 Dec 2016 21:08:55 +0100 Subject: [PATCH] cosmetic: fix local function order +xxx is listed before -xxx consistenlty --- numbers/atan.lsp | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/numbers/atan.lsp b/numbers/atan.lsp index a1975105..6bec43b9 100644 --- a/numbers/atan.lsp +++ b/numbers/atan.lsp @@ -149,14 +149,14 @@ (deftest atan.ieee.2 :description "Verify ATAN handling signed zero" (or (plusp (float-sign -0.0)) - (flet ((-zerop (elt) - (and (zerop elt) - (minusp (float-sign elt)))) - (+zerop (elt) + (flet ((+zerop (elt) (and (zerop elt) (plusp (float-sign elt)))) - (-pi-p (elt) (< (abs (+ pi elt)) 0.01)) - (+pi-p (elt) (< (abs (- pi elt)) 0.01))) + (-zerop (elt) + (and (zerop elt) + (minusp (float-sign elt)))) + (+pi-p (elt) (< (abs (- pi elt)) 0.01)) + (-pi-p (elt) (< (abs (+ pi elt)) 0.01))) (and (+zerop (atan +0.0 +0.0)) (-zerop (atan -0.0 +0.0)) -- GitLab