[git] CMU Common Lisp branch master updated. snapshot-2014-06-29-g06179e0

Raymond Toy rtoy at common-lisp.net
Thu Jul 31 22:56:19 UTC 2014


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 at 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
-- 
CMU Common Lisp



More information about the cmucl-cvs mailing list