[Openmcl-devel] ccl::log-e and bignum arg

[R. Matthew Emerson]

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.

If anyone
(defun log-e (x)
  (cond 
    ((bignump 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)))))))
    ...))