From 6b52c890ac41ba5deedd8b6ebaf33d4955fcfbd9 Mon Sep 17 00:00:00 2001
From: Raymond Toy <toy.raymond@gmail.com>
Date: Sat, 2 Aug 2014 16:59:44 -0700
Subject: [PATCH] Use fdlibm atan2.

---
 src/code/irrat.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/code/irrat.lisp b/src/code/irrat.lisp
index 4ea134e7c..5f24bf9a4 100644
--- a/src/code/irrat.lisp
+++ b/src/code/irrat.lisp
@@ -68,7 +68,7 @@
 (def-math-rtn ("fdlibm_cos" %cos) 1)
 (def-math-rtn ("fdlibm_tan" %tan) 1)
 (def-math-rtn ("fdlibm_atan" %atan) 1)
-(def-math-rtn "atan2" 2)
+(def-math-rtn ("__ieee754_atan2" %atan2) 2)
 (def-math-rtn ("__ieee754_asin" %asin) 1)
 (def-math-rtn ("__ieee754_acos" %acos) 1)
 (def-math-rtn ("__ieee754_sinh" %sinh) 1)
-- 
GitLab