Use two different string-escape functions

[jscl.git] / src / print.lisp

diff --git a/src/print.lisp b/src/print.lisp
index 7daa143..db6b9a2 100644 (file)
--- 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")))