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