strings
[jscl.git] / 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* '())