From 0051195db753db40c7b42ad1e947d2a606af12dd Mon Sep 17 00:00:00 2001 From: David Vazquez Date: Sun, 16 Dec 2012 23:54:31 +0000 Subject: [PATCH] Null --- lispstrack.lisp | 5 +++++ 1 file changed, 5 insertions(+) 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")) -- 1.7.10.4