From efbeb89b14488c258f8f95e4f443460e428a2046 Mon Sep 17 00:00:00 2001
From: Raymond Toy <toy.raymond@gmail.com>
Date: Sat, 2 Aug 2014 15:38:45 -0700
Subject: [PATCH] Use the fdlibm inverse hyperbolic functions.

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

diff --git a/src/code/irrat.lisp b/src/code/irrat.lisp
index 86c7d9ebe..4ea134e7c 100644
--- a/src/code/irrat.lisp
+++ b/src/code/irrat.lisp
@@ -74,9 +74,9 @@
 (def-math-rtn ("__ieee754_sinh" %sinh) 1)
 (def-math-rtn ("__ieee754_cosh" %cosh) 1)
 (def-math-rtn ("fdlibm_tanh" %tanh) 1)
-(def-math-rtn "asinh" 1)
-(def-math-rtn "acosh" 1)
-(def-math-rtn "atanh" 1)
+(def-math-rtn ("fdlibm_asinh" %asinh) 1)
+(def-math-rtn ("__ieee754_acosh" %acosh) 1)
+(def-math-rtn ("__ieee754_atanh" %atanh) 1)
 
 ;;; Exponential and Logarithmic.
 (def-math-rtn ("__ieee754_exp" %exp) 1)
-- 
GitLab