X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=lispstrack.lisp;h=9395aec00cd88b7c7ab5a64af1170cec045663e0;hb=0051195db753db40c7b42ad1e947d2a606af12dd;hp=7b5fbf94a47dba23ca73deda56fcd30d6446b9e3;hpb=0352e2cff01edf1853e4db7d64b8ae6d94807d25;p=jscl.git

diff --git a/lispstrack.lisp b/lispstrack.lisp
index 7b5fbf9..9395aec 100644
--- a/lispstrack.lisp
+++ b/lispstrack.lisp
@@ -374,6 +374,9 @@
 (define-compilation = (x y)
   (concat "((" (ls-compile x env fenv) ") == (" (ls-compile y env fenv) "))"))
 
+(define-compilation null (x)
+  (concat "(" (ls-compile x env fenv) "== undefined)"))
+
 (define-compilation cons (x y)
   (concat "{car: " (ls-compile x env fenv) ", cdr: " (ls-compile y env fenv) "}"))
 
@@ -383,6 +386,8 @@
 (define-compilation cdr (x)
   (concat "(" (ls-compile x env fenv) ").cdr"))
 
+
+
 (define-compilation symbol-name (x)
   (concat "(" (ls-compile x env fenv) ").name"))