From 25dc92889efe9b8300193371a8fb3a506510488a Mon Sep 17 00:00:00 2001 From: Raimon Grau Date: Tue, 11 Dec 2012 23:56:15 +0100 Subject: [PATCH 1/1] step 1. integers --- lispstrack.lisp | 12 ++++++++++++ 1 file changed, 12 insertions(+) create mode 100644 lispstrack.lisp diff --git a/lispstrack.lisp b/lispstrack.lisp new file mode 100644 index 0000000..dcd0a6d --- /dev/null +++ b/lispstrack.lisp @@ -0,0 +1,12 @@ +(defun ls-compile (sexp) + (cond + ((symbolp sexp) nil) + ((integerp sexp) (format nil "~a" sexp)) + ; list + ((case (first sexp) + (if nil) + (lambda nil) + (t nil))))) + +(defparameter *env-var* '()) +(defparameter *env-fun* '()) -- 1.7.10.4