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."