From a82ad7ae4068041e557b7658b41c95a077a44af2 Mon Sep 17 00:00:00 2001 From: David Vazquez Date: Fri, 4 Jan 2013 00:56:23 +0000 Subject: [PATCH] null is not primitive --- lispstrack.lisp | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) 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 -- 1.7.10.4