[parenscript-devel] Log macro

[Daniel Gackle]

I wrote a simple ps macro to work like CL's log. It seems like a candidate
for inclusion in PS itself.

Daniel

(defpsmacro log (number &optional base)
  (cond ((null base) `(*math.log ,number))
  ((= base 10) `(* (log ,number) *math.*log10e*))
  (t  `(/ (log ,number) (log ,base)))))
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://mailman.common-lisp.net/pipermail/parenscript-devel/attachments/20080316/cf9a0be0/attachment.html>