X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Firrat.lisp;h=5f901c910233db1e52550551e29bae529234b101;hb=b1a20dc4dee1a14c9b11eabf4130187227b9b2a7;hp=5477d6d666eec37347512c2040cfff1ea5a8ca6e;hpb=ddaf14f0438b5252d4d5d149f65921795c9a771d;p=sbcl.git

diff --git a/src/code/irrat.lisp b/src/code/irrat.lisp
index 5477d6d..5f901c9 100644
--- a/src/code/irrat.lisp
+++ b/src/code/irrat.lisp
@@ -95,7 +95,7 @@
     (log (+ number (sqrt (- (* number number) 1.0d0))) #.(exp 1.0d0)))
   (declaim (inline %atanh))
   (defun %atanh (number)
-    (let ((ratio (/ (1+ number) (1- number))))
+    (let ((ratio (/ (+ 1 number) (- 1 number))))
       ;; Were we effectively zero?
       (if (= ratio -1.0d0)
           0.0d0