Added support for SQRT function.

diff --git a/src/lib/ps-macro-lib.lisp b/src/lib/ps-macro-lib.lisp
index 553ce0a..ee720bf 100644 (file)
--- a/src/lib/ps-macro-lib.lisp
+++ b/src/lib/ps-macro-lib.lisp
@@ -29,6 +29,7 @@
           `(/ (log ,n) (log ,base))))
     (floor (n &optional divisor) `(*math.floor ,(if divisor `(/ ,n ,divisor) n)))
     (expt (base power) `(*math.pow ,base ,power))
+    (sqrt (n) `(*math.sqrt ,n))
     (round (n &optional divisor) `(*math.round ,(if divisor `(/ ,n ,divisor) n)))
     (random (&optional upto) (if upto
                                  `(floor (* ,upto (*math.random)))

diff --git a/src/package.lisp b/src/package.lisp
index 358b571..7eebfc7 100644 (file)
--- a/src/package.lisp
+++ b/src/package.lisp
@@ -162,6 +162,7 @@
       #:log
       #:floor
       #:expt
+      #:sqrt
       #:round
       #:random
       #:oddp