From: David Vazquez <davazp@gmail.com>
Date: Thu, 20 Dec 2012 19:02:33 +0000 (+0000)
Subject: Fix bug in string escape
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=639352dfb2152d21d6a3f1e8364935cbb2e9639a;p=jscl.git

Fix bug in string escape
---

diff --git a/lispstrack.lisp b/lispstrack.lisp
index dfbfcad..2d27c25 100644
--- a/lispstrack.lisp
+++ b/lispstrack.lisp
@@ -635,7 +635,7 @@
   (cond
     ((symbolp sexp) (lookup-variable-translation sexp env))
     ((integerp sexp) (integer-to-string sexp))
-    ((stringp sexp) (concat "\"" sexp "\""))
+    ((stringp sexp) (concat "\"" (escape-string sexp) "\""))
     ((listp sexp)
      (if (assoc (car sexp) *compilations*)
          (let ((comp (second (assoc (car sexp) *compilations*))))