From: Raimon Grau <raimonster@gmail.com>
Date: Tue, 11 Dec 2012 22:58:49 +0000 (+0100)
Subject: strings
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=e78a11426955bc0b933da5da721f3435d6f53020;p=jscl.git

strings
---

diff --git a/lispstrack.lisp b/lispstrack.lisp
index dcd0a6d..794e082 100644
--- 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)