X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Firrat.lisp;h=1a38ed99a6cafedc6f76de7fae6900dbf99cfd91;hb=7fb597b585fc715537ea644f7d84440eca217ca1;hp=07faa5cd171dad3ebc3339a7592c8f1d30866175;hpb=de01f09401517c1a96de3faeac585e46895940ec;p=sbcl.git

diff --git a/src/code/irrat.lisp b/src/code/irrat.lisp
index 07faa5c..1a38ed9 100644
--- a/src/code/irrat.lisp
+++ b/src/code/irrat.lisp
@@ -73,16 +73,16 @@
 #!-x86 (def-math-rtn "atan2" 2)
 (def-math-rtn "sinh" 1)
 (def-math-rtn "cosh" 1)
-(def-math-rtn "tanh" 1)
-(def-math-rtn "asinh" 1)
-(def-math-rtn "acosh" 1)
-(def-math-rtn "atanh" 1)
+#!-win32(def-math-rtn "tanh" 1)
+#!-win32(def-math-rtn "asinh" 1)
+#!-win32(def-math-rtn "acosh" 1)
+#!-win32(def-math-rtn "atanh" 1)
 
 ;;; exponential and logarithmic
 #!-x86 (def-math-rtn "exp" 1)
 #!-x86 (def-math-rtn "log" 1)
 #!-x86 (def-math-rtn "log10" 1)
-(def-math-rtn "pow" 2)
+#!-win32(def-math-rtn "pow" 2)
 #!-(or x86 x86-64) (def-math-rtn "sqrt" 1)
 (def-math-rtn "hypot" 2)
 #!-(or hpux x86) (def-math-rtn "log1p" 1)