From: David Vazquez <davazp@gmail.com>
Date: Thu, 20 Dec 2012 19:07:43 +0000 (+0000)
Subject: escape newlines
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=8bce67f493249b5dbcb314fba9b41801d061203a;p=jscl.git

escape newlines
---

diff --git a/lispstrack.lisp b/lispstrack.lisp
index 2d27c25..387f388 100644
--- a/lispstrack.lisp
+++ b/lispstrack.lisp
@@ -363,6 +363,9 @@
       (let ((ch (char string index)))
         (when (or (char= ch #\") (char= ch #\\))
           (setq output (concat output "\\")))
+        (when (or (char= ch #\newline))
+          (setq output (concat output "\\"))
+          (setq ch #\n))
         (setq output (concat output (string ch))))
       (incf index))
     output))