Skip to content
Snippets Groups Projects
Commit 7e56a8c7 authored by Raymond Toy's avatar Raymond Toy
Browse files

Comment code, add license header, and conform to cmucl C style.

parent 2ade088e
No related branches found
No related tags found
No related merge requests found
/*
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;
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment