X-Git-Url: http://repo.macrolet.net/gitweb/?p=jscl.git;a=blobdiff_plain;f=src%2Fnumbers.lisp;fp=src%2Fnumbers.lisp;h=a38697299fefe4434c40e7af4f2a312a59e11506;hp=f5dee9aeb1ecd43489c440a7a22dbf61a0c2ab86;hb=a3565f3064e7bf03582278017ac50a2aa8a04c89;hpb=96a7d211736c09783726ba0d98ebb6a43757074d

diff --git a/src/numbers.lisp b/src/numbers.lisp
index f5dee9a..a386972 100644
--- a/src/numbers.lisp
+++ b/src/numbers.lisp
@@ -94,6 +94,8 @@
 (defun expt (base power) (expt base              power))
 (defun exp  (power)      (expt 2.718281828459045 power))
 
+(defun sqrt (x) (sqrt x))
+
 (defun gcd-2 (a b)
   (if (zerop b)
       (abs a)