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