[slime-cvs] CVS slime/contrib

[CVS User heller]

Update of /project/slime/cvsroot/slime/contrib
In directory tiger.common-lisp.net:/tmp/cvs-serv31416/contrib

Modified Files:
	ChangeLog swank-mit-scheme.scm 
Log Message:
Prettier arglists.

* swank-mit-scheme.scm (swank:operator-arglist): Remove trailing
newlines.

--- /project/slime/cvsroot/slime/contrib/ChangeLog	2012/04/13 16:16:11	1.545
+++ /project/slime/cvsroot/slime/contrib/ChangeLog	2012/04/20 05:54:21	1.546
@@ -1,3 +1,10 @@
+2012-04-20  John Smith <ohwoeowho at googlemail.com>
+
+	Prettier arglists.
+
+	* swank-mit-scheme.scm (swank:operator-arglist): Remove trailing
+	newlines.
+
 2012-04-13  Nikodemus Siivola  <nikodemus at random-state.net>
 
 	* slime-cl-indent.el (lisp-indent-259): If we are expecting a
--- /project/slime/cvsroot/slime/contrib/swank-mit-scheme.scm	2011/01/20 22:00:12	1.8
+++ /project/slime/cvsroot/slime/contrib/swank-mit-scheme.scm	2012/04/20 05:54:21	1.9
@@ -420,10 +420,11 @@
 (define (swank:operator-arglist socket name pack)
   (let ((v (ignore-errors
 	    (lambda ()
-	      (with-output-to-string 
-		(lambda ()
-		  (carefully-pa 
-		   (eval (read-from-string name) (user-env pack)))))))))
+              (string-trim-right
+               (with-output-to-string
+                 (lambda ()
+                   (carefully-pa
+                    (eval (read-from-string name) (user-env pack))))))))))
     (if (condition? v) 'nil v)))
 
 (define (carefully-pa o)