step 1. integers

diff --git a/lispstrack.lisp b/lispstrack.lisp
new file mode 100644 (file)
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* '())