X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Firrat.lisp;h=5e2c8d0bc5ec37c63b435cc3130be3cf79b64342;hb=a160917364f85b38dc0826a5e3dcef87e3c4c62c;hp=12751a30aff3df97346a369706c77c75d4d55a4f;hpb=6f522e6cea478e313535db38c6b31c70dc24561e;p=sbcl.git

diff --git a/src/code/irrat.lisp b/src/code/irrat.lisp
index 12751a3..5e2c8d0 100644
--- a/src/code/irrat.lisp
+++ b/src/code/irrat.lisp
@@ -120,7 +120,7 @@
 #!-win32(def-math-rtn "pow" 2)
 #!-(or x86 x86-64) (def-math-rtn "sqrt" 1)
 #!-win32 (def-math-rtn "hypot" 2)
-#!-(or hpux x86) (def-math-rtn "log1p" 1)
+#!-x86 (def-math-rtn "log1p" 1)
 
 #!+win32
 (progn
@@ -636,18 +636,6 @@
     ((complex)
      (complex-atanh number))))
 
-;;; HP-UX does not supply a C version of log1p, so use the definition.
-;;;
-;;; FIXME: This is really not a good definition. As per Raymond Toy
-;;; working on CMU CL, "The definition really loses big-time in
-;;; roundoff as x gets small."
-#!+hpux
-#!-sb-fluid (declaim (inline %log1p))
-#!+hpux
-(defun %log1p (number)
-  (declare (double-float number)
-           (optimize (speed 3) (safety 0)))
-  (the double-float (log (the (double-float 0d0) (+ number 1d0)))))
 
 ;;;; not-OLD-SPECFUN stuff
 ;;;;