lispstrack.lisp

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