[slime-cvs] CVS slime

[heller]

Update of /project/slime/cvsroot/slime
In directory clnet:/tmp/cvs-serv2036

Modified Files:
	ChangeLog swank.lisp 
Log Message:
* swank.lisp (*backtrace-pprint-dispatch-table*):
Honor *print-escape*.

--- /project/slime/cvsroot/slime/ChangeLog	2008/09/20 21:46:30	1.1533
+++ /project/slime/cvsroot/slime/ChangeLog	2008/09/21 11:17:43	1.1534
@@ -1,3 +1,8 @@
+2008-09-21  Helmut Eller  <heller at common-lisp.net>
+
+	* swank.lisp (*backtrace-pprint-dispatch-table*):
+	Honor *print-escape*.
+
 2008-09-20  Ariel Badichi <abadichi at bezeqint.net>
 
 	* slime.el (slime-with-output-end-mark):
--- /project/slime/cvsroot/slime/swank.lisp	2008/09/18 15:23:37	1.593
+++ /project/slime/cvsroot/slime/swank.lisp	2008/09/21 11:17:43	1.594
@@ -111,14 +111,16 @@
 (defvar *backtrace-pprint-dispatch-table*
   (let ((table (copy-pprint-dispatch nil)))
     (flet ((escape-string (stream string)
-             (write-char #\" stream)
-             (loop for c across string do
-                   (case c
-                     (#\" (write-string "\\\"" stream))
-                     (#\newline (write-string "\\n" stream))
-                     (#\return (write-string "\\r" stream))
-                     (t (write-char c stream))))
-             (write-char #\" stream)))
+             (cond (*print-escape* 
+                    (write-char #\" stream)
+                    (loop for c across string do
+                          (case c
+                            (#\" (write-string "\\\"" stream))
+                            (#\newline (write-string "\\n" stream))
+                            (#\return (write-string "\\r" stream))
+                            (t (write-char c stream))))
+                    (write-char #\" stream))
+                   (t (write-string string)))))
       (set-pprint-dispatch 'string  #'escape-string 0 table)
       table)))