1 (defun ls-compile (sexp)
4 ((integerp sexp) (format nil " ~a " sexp))
5 ((stringp sexp) (format nil " \"~a\" " sexp))
8 (if (format nil "((~a)? (~a) : (~a))"
9 (ls-compile (second sexp))
10 (ls-compile (third sexp))
11 (ls-compile (fourth sexp))))
15 (defparameter *env-var* '())
16 (defparameter *env-fun* '())