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

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