Added support for LOG function.

Thanks to: Daniel Gackle <danielgackle@gmail.com>

diff --git a/src/lib/ps-macro-lib.lisp b/src/lib/ps-macro-lib.lisp
index 81c56e3..553ce0a 100644 (file)
--- a/src/lib/ps-macro-lib.lisp
+++ b/src/lib/ps-macro-lib.lisp
@@ -23,6 +23,10 @@
     (asin (n) `(*math.asin ,n))
     (atan (y &optional x) (if x `(*math.atan2 ,y ,x) `(*math.atan ,y)))
     (exp (n) `(*math.exp ,n))
+    (log (n &optional base)
+      (or (and (null base) `(*math.log ,n))
+          (and (numberp base) (= base 10) `(* (log ,n) *math.*log10e*))
+          `(/ (log ,n) (log ,base))))
     (floor (n &optional divisor) `(*math.floor ,(if divisor `(/ ,n ,divisor) n)))
     (expt (base power) `(*math.pow ,base ,power))
     (round (n &optional divisor) `(*math.round ,(if divisor `(/ ,n ,divisor) n)))

diff --git a/src/package.lisp b/src/package.lisp
index 779fc4d..358b571 100644 (file)
--- a/src/package.lisp
+++ b/src/package.lisp
@@ -159,6 +159,7 @@
       #:asin
       #:atan
       #:exp
+      #:log
       #:floor
       #:expt
       #:round