[cmucl-commit] [git] CMU Common Lisp branch master updated. snapshot-2014-06-25-g7e56a8c

[Raymond Toy]

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 at 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