From adc396c2522bc5372ce9b2d6fc9d15c4fbfa4b6d Mon Sep 17 00:00:00 2001 From: Juan Jose Garcia Ripoll Date: Thu, 23 Dec 2010 23:34:58 +0100 Subject: [PATCH] asinh/asinhl is defined by mingw's library --- src/lsp/numlib.lsp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/lsp/numlib.lsp b/src/lsp/numlib.lsp index 2c86efd93..ef4157220 100644 --- a/src/lsp/numlib.lsp +++ b/src/lsp/numlib.lsp @@ -183,13 +183,13 @@ Returns the arc cosine of NUMBER." (asinh (imagpart (* (conjugate sqrt-1+z) sqrt-1-z)))))) -#+(and (not ecl-min) win32) +#+(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; }")) -#+(and long-float (not ecl-min) win32) +#+(and long-float (not ecl-min) win32 (not mingw32)) (progn (ffi:clines "double asinhl(long double x) { return logl(x+sqrtl(1.0+x*x)); }") (ffi:clines "double acoshl(long double x) { return logl(x+sqrtl((x-1)*(x+1))); }")