[slime-cvs] CVS slime

[CVS User heller]

Update of /project/slime/cvsroot/slime
In directory cl-net:/tmp/cvs-serv31427

Modified Files:
	ChangeLog swank.lisp 
Log Message:
* swank.lisp (print-part-to-string): Bind *print-readably* to nil.
Useful when debugging broken printer methods.

--- /project/slime/cvsroot/slime/ChangeLog	2010/07/22 13:45:46	1.2115
+++ /project/slime/cvsroot/slime/ChangeLog	2010/07/30 16:14:41	1.2116
@@ -1,3 +1,8 @@
+2010-07-30  Helmut Eller  <heller at common-lisp.net>
+
+	* swank.lisp (print-part-to-string): Bind *print-readably* to nil.
+	Useful when debugging broken printer methods.
+
 2010-07-22  Vitaly Mayatskikh  <v.mayatskih at gmail.com>
 
 	* swank-lispworks.lisp (list-callers-internal): Fix for LW6.
--- /project/slime/cvsroot/slime/swank.lisp	2010/06/04 07:30:37	1.720
+++ /project/slime/cvsroot/slime/swank.lisp	2010/07/30 16:14:41	1.721
@@ -3437,7 +3437,8 @@
     index))
 
 (defun print-part-to-string (value)
-  (let* ((string (to-line value))
+  (let* ((*print-readably* nil)
+         (string (to-line value))
          (pos (position value *inspector-history*)))
     (if pos
         (format nil "@~D=~A" pos string)