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

cosmetic: fix comment placement

parent bacaecf2
No related branches found
No related tags found
No related merge requests found
...@@ -128,16 +128,16 @@ ...@@ -128,16 +128,16 @@
;;; ieee-fp tests ;;; ieee-fp tests
(deftest atan.ieee.1 :description "Verify if atan handles 0.0 correctly" (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) (flet ((pip (a b)
;; we are not testing accuracy, so this simplified ;; we are not testing accuracy, so this simplified
;; precdicate would be sufficient for our needs. We are ;; predicate would be sufficient for our needs. We are also
;; also not interested in sign of the result, because we ;; not interested in sign of the result, because we don't
;; don't know whenever zero is signed or not. ;; know whenever zero is signed or not.
(<= (abs (- (abs a) (abs b))) 0.01))) (<= (abs (- (abs a) (abs b))) 0.01)))
(every #'identity (every #'identity
(append (append
;; (atan +-0 +(anything-but-nan)) -> +-0
;; (atan +-0 -(anything-but-nan)) -> +-pi
(map 'list (lambda (n) (map 'list (lambda (n)
;; notice, that we don't test a case, where ;; notice, that we don't test a case, where
;; both arguments are 0.0, because if ;; both arguments are 0.0, because if
......
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