Implement SQRT function

[jscl.git] / src / numbers.lisp

diff --git a/src/numbers.lisp b/src/numbers.lisp
index 578d0b1..a386972 100644 (file)
--- a/src/numbers.lisp
+++ b/src/numbers.lisp
@@ -13,6 +13,8 @@
 ;; You should have received a copy of the GNU General Public License
 ;; along with JSCL.  If not, see <http://www.gnu.org/licenses/>.
 
+(/debug "loading numbers.lisp!")
+
 ;;;; Various numeric functions and constants
 
 (macrolet ((def (operator initial-value)
@@ -92,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)