Emulisp: ** implementation.

Author: Grahack

emulisp/emulisp_core.js

@@ -1231,6 +1231,13 @@ var coreFunctions = {
 	"/": function(c) { return div(c, function(a, b) { return a / b; }); },	// floating point division
 	"/t": function(c) { return div(c, function(a, b) { var d = a / b;
 		return (d >= 0) ? Math.floor(d) : Math.ceil(d); }); },	// truncated division
+	"**": function(c) {
+		var a = evalLisp(c.car);
+		var b = evalLisp(c.cdr.car);
+		if (a == NIL) return NIL;
+		if (b == NIL) return new Number(0);
+		return new Number(Math.pow(a, b));
+	},
 	"%": function(c) { return div(c, function(a, b) { return a % b; }); },
 	"=": function(c) { var cv = evalLisp(c.car), d = c, dv;
 		while (d.cdr !== NIL) { d = d.cdr; dv = evalLisp(d.car); if (!eqVal(cv, dv)) return NIL; }; return T; },