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 (format nil "((~a)? (~a) : (~a))"
   9                    (ls-compile (second sexp))
  10                    (ls-compile (third sexp))
  11                    (ls-compile (fourth sexp))))
  12        (lambda nil)
  13        (t nil)))))
  14
  15 (defparameter *env-var* '())
  16 (defparameter *env-fun* '())