`(progn
(assert (= (,op 4 2) ,res1))
(assert (= (,op 2 4) ,res2))
- (assert (= (funcall (compile nil (lambda (x y) (,op x y))) 4 2)
+ (assert (= (funcall (compile nil '(lambda (x y) (,op x y))) 4 2)
,res1))
- (assert (= (funcall (compile nil (lambda (x y) (,op x y))) 2 4)
+ (assert (= (funcall (compile nil '(lambda (x y) (,op x y))) 2 4)
,res2)))))
(test + 6 6)
(test - 2 -2)
(let ((x (random (ash 1 i))))
(test x (test-logcount x))
(test (- x) (test-logcount (- x))))))))
+
+;; 1.0 had a broken ATANH on win32
+(with-test (:name :atanh)
+ (assert (= (atanh 0.9d0) 1.4722194895832204d0)))
+