diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-02-06 04:58:02 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-02-06 04:58:02 +0000 |
| commit | 2eef476c721ed93b1acaaf1a77e20b5b7c73ed4f (patch) | |
| tree | 0a8dd6968553c1c45be0e2e66cc5a7a6660addea /src/interp/boot-pkg.lisp | |
| parent | 9c5ffc67bc7783bf0a93335ef6703a10a602ff37 (diff) | |
| download | open-axiom-2eef476c721ed93b1acaaf1a77e20b5b7c73ed4f.tar.gz | |
cleanup special hyperbolic builtins
Diffstat (limited to 'src/interp/boot-pkg.lisp')
| -rw-r--r-- | src/interp/boot-pkg.lisp | 11 |
1 files changed, 0 insertions, 11 deletions
diff --git a/src/interp/boot-pkg.lisp b/src/interp/boot-pkg.lisp index b7b1cd56..aa16ed6f 100644 --- a/src/interp/boot-pkg.lisp +++ b/src/interp/boot-pkg.lisp @@ -71,17 +71,6 @@ ;; Contributed by Juergen Weiss from a suggestion by Arthur Norman. -(defun sec (x) (/ 1 (cos x))) -(defun csc (x) (/ 1 (sin x))) -(defun acsc (x) (asin (/ 1 x))) -(defun asec (x) (acos (/ 1 x))) -(defun csch (x) (/ 1 (sinh x))) -(defun coth (x) (* (cosh x) (csch x))) -(defun sech (x) (/ 1 (cosh x))) -(defun acsch (x) (asinh (/ 1 x))) -(defun acoth (x) (atanh (/ 1 x))) -(defun asech (x) (acosh (/ 1 x))) - (defun cot (a) (if (or (> a 1000.0) (< a -1000.0)) (/ (cos a) (sin a)) |