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 7e56a8c7ebb5b33e2d755ef725900fd4310ffc3e (commit) from 2ade088e991102f642e20a3d20239bf8b2b52633 (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 7e56a8c7ebb5b33e2d755ef725900fd4310ffc3e Author: Raymond Toy <toy.raymond@gmail.com> Date: Sat Jul 26 09:04:27 2014 -0700 Comment code, add license header, and conform to cmucl C style. diff --git a/src/lisp/sincos.c b/src/lisp/sincos.c index edd0eca..e879425 100644 --- a/src/lisp/sincos.c +++ b/src/lisp/sincos.c @@ -1,6 +1,19 @@ +/* + + This code was written as part of the CMU Common Lisp project at + Carnegie Mellon University, and has been placed in the public domain. + +*/ + #include "fdlibm.h" -void lisp_sincos (double x, double *s, double *c) +/* + * sincos function. Compute sin(x) and cos(x) faster than computing + * each individually. Speedup comes from doing the pi argument + * reduction just once. + */ +void +lisp_sincos (double x, double *s, double *c) { int ix; union { int i[2]; double d; } ux; ----------------------------------------------------------------------- Summary of changes: src/lisp/sincos.c | 15 ++++++++++++++- 1 file changed, 14 insertions(+), 1 deletion(-) hooks/post-receive -- CMU Common Lisp