X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Farith.pure.lisp;h=aa3925100182df26f8432ae13ecdfcc71a6e65d1;hb=aa8cdb795d6bb551aaecb6db38d5ef6571c698ed;hp=1505a57ee6c34c50a1be089a35dabe18e1b1130f;hpb=970dd272dc84f7420252eadb4829cc193f795716;p=sbcl.git

diff --git a/tests/arith.pure.lisp b/tests/arith.pure.lisp
index 1505a57..aa39251 100644
--- a/tests/arith.pure.lisp
+++ b/tests/arith.pure.lisp
@@ -290,3 +290,7 @@
         (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)))