From 058a45ff915dbe4ed7f08a24226b074e00c63d14 Mon Sep 17 00:00:00 2001
From: Raymond Toy <toy.raymond@gmail.com>
Date: Fri, 1 Aug 2014 19:41:02 -0700
Subject: [PATCH] Use fdlibm versions of log1p and expm1.

---
 src/code/irrat.lisp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/code/irrat.lisp b/src/code/irrat.lisp
index 2a88c9f6f..1a942fe8b 100644
--- a/src/code/irrat.lisp
+++ b/src/code/irrat.lisp
@@ -88,8 +88,8 @@
 (def-math-rtn "sqrt" 1)
 (def-math-rtn "hypot" 2)
 
-(def-math-rtn "log1p" 1)
-(def-math-rtn "expm1" 1)
+(def-math-rtn ("fdlibm_log1p" %log1p) 1)
+(def-math-rtn ("fdlibm_expm1" %expm1) 1)
 
 ;; These are needed for use by byte-compiled files.  But don't use
 ;; these with sse2 since we don't support using the x87 instructions
-- 
GitLab