From e78a11426955bc0b933da5da721f3435d6f53020 Mon Sep 17 00:00:00 2001 From: Raimon Grau Date: Tue, 11 Dec 2012 23:58:49 +0100 Subject: [PATCH] strings --- lispstrack.lisp | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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) -- 1.7.10.4