From 1d0abc9c43ea4b9429f76b5fbb5864cc2a9e46f2 Mon Sep 17 00:00:00 2001
From: Marius Gerbershagen <marius.gerbershagen@gmail.com>
Date: Tue, 20 Aug 2019 14:40:12 +0200
Subject: [PATCH] numlib: remove unneeded workaround for msvc

---
 src/lsp/numlib.lsp | 10 ----------
 1 file changed, 10 deletions(-)

diff --git a/src/lsp/numlib.lsp b/src/lsp/numlib.lsp
index 131c9692c..0e21476cb 100644
--- a/src/lsp/numlib.lsp
+++ b/src/lsp/numlib.lsp
@@ -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."