X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fprint.lisp;fp=src%2Fprint.lisp;h=f5e3f3b67d4191e7c423ea7f4b0b76c04c2c6941;hb=41f31884e0be58584c3ec47f78e32f305833d3a0;hp=7daa14330de05fee7953dd05f8710e0e004b87bd;hpb=6ec52a68fd2a26e18593f189b35722a3ca1011d8;p=jscl.git

diff --git a/src/print.lisp b/src/print.lisp
index 7daa143..f5e3f3b 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) "\"")
+                                  (escape-string form)
                                   form))
               ((functionp form)
                (let ((name (oget form "fname")))