[slime-cvs] CVS slime

[CVS User heller]

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

Modified Files:
	ChangeLog swank.lisp 
Log Message:
* swank.lisp (operator-arglist): Don't use pprint-fill
for people with wide screens.

--- /project/slime/cvsroot/slime/ChangeLog	2009/07/02 04:13:10	1.1802
+++ /project/slime/cvsroot/slime/ChangeLog	2009/07/02 14:14:16	1.1803
@@ -1,3 +1,8 @@
+2009-07-02  Helmut Eller  <heller at common-lisp.net>
+
+	* swank.lisp (operator-arglist): Don't use pprint-fill
+	for people with wide screens.
+
 2009-07-02  Stas Boukarev  <stassats at gmail.com>
 
 	* slime.el (slime-net-coding-system): make it customizable.
--- /project/slime/cvsroot/slime/swank.lisp	2009/06/29 04:24:51	1.652
+++ /project/slime/cvsroot/slime/swank.lisp	2009/07/02 14:14:16	1.653
@@ -3002,10 +3002,9 @@
 
 (defslimefun operator-arglist (name package)
   (ignore-errors
-    (let ((args (arglist (parse-symbol name (guess-buffer-package package))))
-          (*print-escape* nil))
+    (let ((args (arglist (parse-symbol name (guess-buffer-package package)))))
       (cond ((eq args :not-available) nil)
-	    (t (format nil "(~a ~/pprint-fill/)" name args))))))
+	    (t (princ-to-string (cons name args)))))))
 
 
 ;;;; Documentation