This is an automated email from the git hooks/post-receive script. It was generated because a ref change was pushed to the repository containing the project "CMU Common Lisp".
The branch, master has been updated via 06179e0c45b51011eae88bfc711d7bec00769c89 (commit) from 7a5843fce1f383ee8231ed4d02461042f675287c (commit)
Those revisions listed above that are new to this repository have not appeared on any other notification email; so we list those revisions in full, below.
- Log ----------------------------------------------------------------- commit 06179e0c45b51011eae88bfc711d7bec00769c89 Author: Raymond Toy toy.raymond@gmail.com Date: Thu Jul 31 15:56:12 2014 -0700
Remove the mathcalls section. It's not used and some of it (log1p) is duplicated in irrat.lisp.
diff --git a/src/code/unix-glibc2.lisp b/src/code/unix-glibc2.lisp index cc78e32..3d2f382 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
-----------------------------------------------------------------------
Summary of changes: src/code/unix-glibc2.lisp | 78 --------------------------------------------- 1 file changed, 78 deletions(-)
hooks/post-receive