Skip to content
Snippets Groups Projects
Commit be7f6528 authored by Daniel Kochmański's avatar Daniel Kochmański
Browse files

cosmetic: fix local function order

+xxx is listed before -xxx consistenlty
parent 2f5e75e6
No related branches found
No related tags found
No related merge requests found
...@@ -149,14 +149,14 @@ ...@@ -149,14 +149,14 @@
(deftest atan.ieee.2 :description "Verify ATAN handling signed zero" (deftest atan.ieee.2 :description "Verify ATAN handling signed zero"
(or (plusp (float-sign -0.0)) (or (plusp (float-sign -0.0))
(flet ((-zerop (elt) (flet ((+zerop (elt)
(and (zerop elt)
(minusp (float-sign elt))))
(+zerop (elt)
(and (zerop elt) (and (zerop elt)
(plusp (float-sign elt)))) (plusp (float-sign elt))))
(-pi-p (elt) (< (abs (+ pi elt)) 0.01)) (-zerop (elt)
(+pi-p (elt) (< (abs (- pi elt)) 0.01))) (and (zerop elt)
(minusp (float-sign elt))))
(+pi-p (elt) (< (abs (- pi elt)) 0.01))
(-pi-p (elt) (< (abs (+ pi elt)) 0.01)))
(and (and
(+zerop (atan +0.0 +0.0)) (+zerop (atan +0.0 +0.0))
(-zerop (atan -0.0 +0.0)) (-zerop (atan -0.0 +0.0))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment