From 06179e0c45b51011eae88bfc711d7bec00769c89 Mon Sep 17 00:00:00 2001
From: Raymond Toy <toy.raymond@gmail.com>
Date: Thu, 31 Jul 2014 15:56:12 -0700
Subject: [PATCH] Remove the mathcalls section. It's not used and some of it
 (log1p) is duplicated in irrat.lisp.

---
 src/code/unix-glibc2.lisp | 78 ---------------------------------------
 1 file changed, 78 deletions(-)

diff --git a/src/code/unix-glibc2.lisp b/src/code/unix-glibc2.lisp
index cc78e320c..3d2f38231 100644
--- a/src/code/unix-glibc2.lisp
+++ b/src/code/unix-glibc2.lisp
@@ -875,84 +875,6 @@
 (defconstant siocdevprivate	#x89F0	) ;; to 89FF 
 
 
-;;;  mathcalls.h
-
-#+(or)
-(defmacro def-math-rtn (name num-args)
-  (let ((function (intern (concatenate 'simple-string
-				       "%"
-				       (string-upcase name)))))
-    `(progn
-       (declaim (inline ,function))
-       (export ',function)
-       (alien:def-alien-routine (,name ,function) double-float
-	 ,@(let ((results nil))
-	     (dotimes (i num-args (nreverse results))
-	       (push (list (intern (format nil "ARG-~D" i))
-			   'double-float)
-		     results)))))))
-
-#+(or)
-(defmacro def-math-rtn-int-double (name num-args)
-  (let ((function (intern (concatenate 'simple-string
-				       "%"
-				       (string-upcase name)))))
-    `(progn
-       (declaim (inline ,function))
-       (export ',function)
-       (alien:def-alien-routine (,name ,function) double-float
-	 (ARG-1 'integer)
-	 (ARG-2 'double)))))
-
-#+(or)
-(def-math-rtn "expm1" 1) ;Return exp(X) - 1.
-
-#+(or)
-(def-math-rtn "log1p" 1) ;Return log(1 + X).
-
-
-#+(or)
-(def-math-rtn "logb" 1) ;Return the base 2 signed integral exponent of X.
-
-#+(or)
-(def-math-rtn "cbrt" 1) ; returns cuberoot
-
-#+(or)
-(def-math-rtn "copysign" 2) ;Return X with its signed changed to Y's. 
-
-#+(or)
-(def-math-rtn "cabs" 2) ;Return `sqrt(X*X + Y*Y)'.
-
-#+(or)
-(def-math-rtn "erf" 1)
-
-#+(or)
-(def-math-rtn "erfc" 1)
-
-#+(or)
-(def-math-rtn "gamma" 1)
-
-#+(or)
-(def-math-rtn "j0" 1)
-
-#+(or)
-(def-math-rtn "j1" 1)
-
-#+(or)
-(def-math-rtn-int-double "jn")
-
-#+(or)
-(def-math-rtn "lgamma" 1)
-
-#+(or)
-(def-math-rtn "y0" 1)
-
-#+(or)
-(def-math-rtn "y1" 1)
-
-#+(or)
-(def-math-rtn-int-double "yn")
-
 ;;; netdb.h
 
 ;; All data returned by the network data base library are supplied in
-- 
GitLab