projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
0.9.14.31:
[sbcl.git]
/
src
/
code
/
irrat.lisp
diff --git
a/src/code/irrat.lisp
b/src/code/irrat.lisp
index
07faa5c
..
0f2b7a3
100644
(file)
--- a/
src/code/irrat.lisp
+++ b/
src/code/irrat.lisp
@@
-46,8
+46,11
@@
`(defun ,name ,ll (,name ,@ll))))
(def %atan2 (x y))
(def %atan (x))
`(defun ,name ,ll (,name ,@ll))))
(def %atan2 (x y))
(def %atan (x))
+ (def %tan (x))
(def %tan-quick (x))
(def %tan-quick (x))
+ (def %cos (x))
(def %cos-quick (x))
(def %cos-quick (x))
+ (def %sin (x))
(def %sin-quick (x))
(def %sqrt (x))
(def %log (x))
(def %sin-quick (x))
(def %sqrt (x))
(def %log (x))
@@
-73,16
+76,16
@@
#!-x86 (def-math-rtn "atan2" 2)
(def-math-rtn "sinh" 1)
(def-math-rtn "cosh" 1)
#!-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)
;;; 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)
#!-(or x86 x86-64) (def-math-rtn "sqrt" 1)
(def-math-rtn "hypot" 2)
#!-(or hpux x86) (def-math-rtn "log1p" 1)