From 7e56a8c7ebb5b33e2d755ef725900fd4310ffc3e Mon Sep 17 00:00:00 2001 From: Raymond Toy <toy.raymond@gmail.com> Date: Sat, 26 Jul 2014 09:04:27 -0700 Subject: [PATCH] Comment code, add license header, and conform to cmucl C style. --- src/lisp/sincos.c | 15 ++++++++++++++- 1 file changed, 14 insertions(+), 1 deletion(-) diff --git a/src/lisp/sincos.c b/src/lisp/sincos.c index edd0eca9e..e879425eb 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; -- GitLab