lispstrack.lisp

   1 (defun ls-compile (sexp)
   2   (cond
   3     ((symbolp sexp) nil)
   4     ((integerp sexp) (format nil "~a" sexp))
   5     ; list
   6     ((case (first sexp)
   7        (if nil)
   8        (lambda nil)
   9        (t nil)))))
  10
  11 (defparameter *env-var* '())
  12 (defparameter *env-fun* '())