strings

diff --git a/lispstrack.lisp b/lispstrack.lisp
index dcd0a6d..794e082 100644 (file)
--- a/lispstrack.lisp
+++ b/lispstrack.lisp
@@ -1,7 +1,8 @@
 (defun ls-compile (sexp)
   (cond
     ((symbolp sexp) nil)
-    ((integerp sexp) (format nil "~a" sexp))
+    ((integerp sexp) (format nil " ~a " sexp))
+    ((stringp sexp) (format nil " \"~a\" " sexp))
     ; list
     ((case (first sexp)
        (if nil)