[Openmcl-devel] ccl::log-e and bignum arg
R. Matthew Emerson
rme at clozure.com
Tue Jun 1 20:17:48 UTC 2010
I don't understand what CCL::LOG-E is doing when it gets a bignum.
Can anyone clue me in? Any links, references, etc. appreciated.
(defun log-e (x)
(if (minusp x)
(complex (log-e (- x)) pi)
(let* ((base1 3)
(guess (floor (1- (integer-length x))
(log base1 2)))
(guess1 (* guess (log-e base1))))
(+ guess1 (log-e (/ x (expt base1 guess)))))))
More information about the Openmcl-devel