mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-02-18 13:10:48 -08:00
Code Issues Projects Releases Packages Wiki Activity

Fixed typo in ACOSH for complex numbers

Browse source
This commit is contained in:
jgarcia 2007-12-18 20:41:43 +00:00
parent 8a7114e142
commit e5db4b4715
2 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/lsp/config.lsp.in
View file

@ -24,7 +24,7 @@ Returns, as a string, the location of the machine on which ECL runs."
(defun lisp-implementation-version ()
"Args:()
Returns the version of your ECL as a string."
"@PACKAGE_VERSION@ (CVS 2007-12-13 20:09)")
"@PACKAGE_VERSION@ (CVS 2007-12-18 21:41)")
(defun machine-type ()
"Args: ()

2
src/lsp/numlib.lsp
View file

@ -180,7 +180,7 @@ Returns the hyperbolic arc sine of NUMBER."
Returns the hyperbolic arc cosine of NUMBER."
;(log (+ x (sqrt (* (1- x) (1+ x)))))
(if #+(or ecl-min) t #-(or ecl-min) (complexp x)
(complex-acos x)
(complex-acosh x)
#-(or ecl-min)
(let* ((x (float x))
(xr (float x 1d0)))