From: Owen Rodley Date: Sat, 18 May 2013 14:03:09 +0000 (+1200) Subject: Add /= function X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=680ad4ea5b76a90c2f186ce28320601474a96163;p=jscl.git Add /= function --- diff --git a/src/compiler.lisp b/src/compiler.lisp index 58f4a87..763aa92 100644 --- a/src/compiler.lisp +++ b/src/compiler.lisp @@ -1324,6 +1324,7 @@ (define-builtin-comparison >= ">=") (define-builtin-comparison <= "<=") (define-builtin-comparison = "==") +(define-builtin-comparison /= "!=") (define-builtin numberp (x) (js!bool (code "(typeof (" x ") == \"number\")"))) diff --git a/src/numbers.lisp b/src/numbers.lisp index a3105bb..f49fd23 100644 --- a/src/numbers.lisp +++ b/src/numbers.lisp @@ -60,6 +60,7 @@ (defcomparison =) (defcomparison <) (defcomparison <=) +(defcomparison /=) (defconstant pi 3.141592653589793)