[slime-cvs] CVS slime/contrib

[heller]

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

Modified Files:
	ChangeLog swank-arglists.lisp 
Log Message:
* swank-arglists.lisp (variable-desc-for-echo-area): Limit the
length to one line to avoid (some) problems with big or circular
values.  Reported by Stas Boukarev.

--- /project/slime/cvsroot/slime/contrib/ChangeLog	2008/08/22 21:15:01	1.124
+++ /project/slime/cvsroot/slime/contrib/ChangeLog	2008/08/27 17:53:11	1.125
@@ -1,3 +1,9 @@
+2008-08-27  Helmut Eller  <heller at common-lisp.net>
+
+	* swank-arglists.lisp (variable-desc-for-echo-area): Limit the
+	length to one line to avoid (some) problems with big or circular
+	values.  Reported by Stas Boukarev.
+
 2008-08-22  Stelian Ionescu <sionescu at common-lisp.net>
 
 	* swank-listener-hooks.lisp: Add missing IN-PACKAGE.
--- /project/slime/cvsroot/slime/contrib/swank-arglists.lisp	2008/04/14 11:36:16	1.21
+++ /project/slime/cvsroot/slime/contrib/swank-arglists.lisp	2008/08/27 17:53:12	1.22
@@ -476,9 +476,11 @@
   (with-buffer-syntax ()
     (let ((sym (parse-symbol variable-name)))
       (if (and sym (boundp sym))
-          (let ((*print-pretty* nil) (*print-level* 4)
-                (*print-length* 10) (*print-circle* t))
-             (format nil "~A => ~A" sym (symbol-value sym)))))))
+          (let ((*print-pretty* t) (*print-level* 4)
+                (*print-length* 10) (*print-lines* 1))
+	    (call/truncated-output-to-string 
+	     75 (lambda (s)
+		  (format s "~A => ~A" sym (symbol-value sym)))))))))
 
 (defun decode-required-arg (arg)
   "ARG can be a symbol or a destructuring pattern."