(math-approx-ln-10, math-approx-ln-2): Remove `eval-when-compile's.

This commit is contained in:
Jay Belanger 2007-08-17 20:20:29 +00:00
parent c6254f53a5
commit 82472f457c

View file

@ -1794,16 +1794,14 @@ If this can't be done, return NIL."
(math-lnp1-series nextsum (1+ n) nextx x))))
(defconst math-approx-ln-10
(eval-when-compile
(math-read-number-simple "2.302585092994045684018"))
(math-read-number-simple "2.302585092994045684018")
"An approximation for ln(10).")
(math-defcache math-ln-10 math-approx-ln-10
(math-ln-raw-2 '(float 1 1)))
(defconst math-approx-ln-2
(eval-when-compile
(math-read-number-simple "0.693147180559945309417"))
(math-read-number-simple "0.693147180559945309417")
"An approximation for ln(2).")
(math-defcache math-ln-2 math-approx-ln-2