null is not primitive

diff --git a/lispstrack.lisp b/lispstrack.lisp
index f6aaee0..96a38ee 100644 (file)
--- 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