X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fprint.lisp;h=db6b9a223fa599b2604d41f25658baf311a4fcee;hb=f5ffe129c45d75d9f360d02d9b8823907b163347;hp=7daa14330de05fee7953dd05f8710e0e004b87bd;hpb=df5813a90dd0ea1501d9fafe95719f7056286edd;p=jscl.git

diff --git a/src/print.lisp b/src/print.lisp
index 7daa143..db6b9a2 100644
--- a/src/print.lisp
+++ b/src/print.lisp
@@ -194,7 +194,7 @@
                          (#\space "space")
                          (otherwise (string form)))))
               ((stringp form) (if *print-escape*
-                                  (concat "\"" (escape-string form) "\"")
+                                  (lisp-escape-string form)
                                   form))
               ((functionp form)
                (let ((name (oget form "fname")))