[slime-cvs] CVS slime

[alendvai]

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

Modified Files:
	swank.lisp 
Log Message:
Turn off right margin for restart printing, too


--- /project/slime/cvsroot/slime/swank.lisp	2006/12/19 10:57:40	1.436
+++ /project/slime/cvsroot/slime/swank.lisp	2006/12/20 14:12:04	1.437
@@ -2809,9 +2809,10 @@
 (defun format-restarts-for-emacs ()
   "Return a list of restarts for *swank-debugger-condition* in a
 format suitable for Emacs."
-  (loop for restart in *sldb-restarts*
-	collect (list (princ-to-string (restart-name restart))
-		      (princ-to-string restart))))
+  (let ((*print-right-margin* most-positive-fixnum))
+    (loop for restart in *sldb-restarts*
+          collect (list (princ-to-string (restart-name restart))
+                        (princ-to-string restart)))))
 
 
 ;;;;; SLDB entry points