From 639352dfb2152d21d6a3f1e8364935cbb2e9639a Mon Sep 17 00:00:00 2001 From: David Vazquez Date: Thu, 20 Dec 2012 19:02:33 +0000 Subject: [PATCH] Fix bug in string escape --- lispstrack.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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*)))) -- 1.7.10.4