mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-03-15 09:20:23 -07:00
Code Issues Projects Releases Packages Wiki Activity

As __MINGW32__ now indirectly implies :win32, numlib.lsp defines hyperbolics for us.

Browse source
This commit is contained in:
Samium Gromoff 2009-04-23 23:47:10 +04:00 • committed by Juan Jose Garcia Ripoll
parent 24f9101f83
commit f783b8897c
1 changed files with 0 additions and 23 deletions
Download patch file Download diff file Expand all files Collapse all files

23
src/c/num_sfun.d
View file

@ -61,29 +61,6 @@ log1pl(long double x)
}
#endif
#ifdef mingw32
/*
* Mingw32 does not implement asinh, acosh and atanh.
*/
double
asinh(double x)
{
return log(x + sqrt(1.0 + x*x));
}
double
acosh(double x)
{
return log(x + sqrt((x-1)*(x+1)));
}
double
atanh(double x)
{
return log1p(2*x/(1-x))/2;
}
#endif /* mingw32 */
cl_object
ecl_abs(cl_object x)
{