[slime-cvs] CVS slime/contrib

[CVS User sboukarev]

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

Modified Files:
	ChangeLog swank-arglists.lisp 
Log Message:
* swank-arglists.lisp (print-variable-to-string): Use
without-printing-errors when printing the value.
Reported by Tobias C. Rittweiler on lp#628945.


--- /project/slime/cvsroot/slime/contrib/ChangeLog	2010/09/16 13:24:20	1.417
+++ /project/slime/cvsroot/slime/contrib/ChangeLog	2010/09/16 19:19:26	1.418
@@ -1,3 +1,9 @@
+2010-09-16  Stas Boukarev  <stassats at gmail.com>
+
+	* swank-arglists.lisp (print-variable-to-string): Use
+	without-printing-errors when printing the value.
+	Reported by Tobias C. Rittweiler on lp#628945.
+
 2010-09-16  Christophe Rhodes  <csr21 at cantab.net>
 
 	Image display support for the REPL.
--- /project/slime/cvsroot/slime/contrib/swank-arglists.lisp	2010/07/23 01:46:34	1.68
+++ /project/slime/cvsroot/slime/contrib/swank-arglists.lisp	2010/09/16 19:19:26	1.69
@@ -1128,10 +1128,12 @@
   "Return a short description of VARIABLE-NAME, or NIL."
   (let ((*print-pretty* t) (*print-level* 4)
         (*print-length* 10) (*print-lines* 1)
-        (*print-readably* nil))
+        (*print-readably* nil)
+        (value (symbol-value symbol)))
     (call/truncated-output-to-string
      75 (lambda (s)
-          (format s "~A => ~S" symbol (symbol-value symbol))))))
+          (without-printing-errors (:object value :stream s)
+            (format s "~A ~A~S" symbol *echo-area-prefix* value))))))
 
 
 (defslimefun complete-form (raw-form)