mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-23 21:13:18 -08:00
Code Issues Projects Releases Packages Wiki Activity

numlib: remove unneeded workaround for msvc

Browse source
This commit is contained in:
Marius Gerbershagen 2019-08-20 14:40:12 +02:00
parent 2b3f7bb1fd
commit 1d0abc9c43
1 changed files with 0 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

10
src/lsp/numlib.lsp
View file

@ -254,16 +254,6 @@ Returns the arc cosine of NUMBER."
(asinh (imagpart (* (conjugate sqrt-1+z)
sqrt-1-z))))))
#+(and (not ecl-min) win32 (not mingw32))
(progn
(ffi:clines "double asinh(double x) { return log(x+sqrt(1.0+x*x)); }")
(ffi:clines "double acosh(double x) { return log(x+sqrt((x-1)*(x+1))); }")
(ffi:clines "double atanh(double x) { return log((1+x)/(1-x))/2; }")
(ffi:clines "long double asinhl(long double x) { return logl(x+sqrtl(1.0+x*x)); }")
(ffi:clines "long double acoshl(long double x) { return logl(x+sqrtl((x-1)*(x+1))); }")
(ffi:clines "long double atanhl(long double x) { return logl((1+x)/(1-x))/2; }"))
(defun asinh (x)
"Args: (number)
Returns the hyperbolic arc sine of NUMBER."