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