From: David Vazquez <davazp@gmail.com>
Date: Fri, 4 Jan 2013 00:56:23 +0000 (+0000)
Subject: null is not primitive
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=a82ad7ae4068041e557b7658b41c95a077a44af2;p=jscl.git

null is not primitive
---

diff --git a/lispstrack.lisp b/lispstrack.lisp
index f6aaee0..96a38ee 100644
--- a/lispstrack.lisp
+++ b/lispstrack.lisp
@@ -62,6 +62,9 @@
  (defvar t (make-symbol "T"))
  (set *package* "T" t)
 
+ (defun null (x)
+   (eq x nil))
+
  (defun internp (name)
    (in name *package*))
 
@@ -967,8 +970,6 @@
 
 (define-builtin floor (x) (concat "(Math.floor(" x "))"))
 
-(define-builtin null (x) (compile-bool (concat "(" x "===" (ls-compile nil env fenv) ")")))
-
 (define-builtin cons (x y) (concat "({car: " x ", cdr: " y "})"))
 (define-builtin consp (x)
   (compile-bool