diff --git a/src/code/unix-glibc2.lisp b/src/code/unix-glibc2.lisp index cc78e320c8d8c47e25342beafb9329a9ef9861c0..3d2f38231a01e7c74c2444cb71b9f89b158ef177 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