[slime-cvs] CVS slime/contrib

[CVS User trittweiler]

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

Modified Files:
	swank-arglists.lisp ChangeLog 
Log Message:

	* swank-arglists.lisp (format-arglist-for-echo-area): Catch errors
	and die gracefully.


--- /project/slime/cvsroot/slime/contrib/swank-arglists.lisp	2008/12/30 17:12:11	1.24
+++ /project/slime/cvsroot/slime/contrib/swank-arglists.lisp	2008/12/31 16:55:26	1.25
@@ -458,7 +458,12 @@
 	     print-right-margin print-lines)
   "Formats ARGLIST (given as string) for Emacs' echo area."
   (declare (ignore operator highlight package print-right-margin print-lines))
-  (apply #'decoded-arglist-to-string (decode-arglist (read-from-string arglist)) args))
+  (handler-case
+      (apply #'decoded-arglist-to-string
+             (decode-arglist (read-from-string arglist))
+             args)
+    (error (e)
+      (format nil "ARGLIST (error): ~A" e))))
 
 (defun decoded-arglist-to-string (decoded-arglist
                                   &key operator highlight (package *package*)
--- /project/slime/cvsroot/slime/contrib/ChangeLog	2008/12/31 12:31:32	1.159
+++ /project/slime/cvsroot/slime/contrib/ChangeLog	2008/12/31 16:55:26	1.160
@@ -1,5 +1,10 @@
 2008-12-31  Tobias C. Rittweiler  <tcr at freebits.de>
 
+	* swank-arglists.lisp (format-arglist-for-echo-area): Catch errors
+	and die gracefully.
+
+2008-12-31  Tobias C. Rittweiler  <tcr at freebits.de>
+
 	* swank-sbcl-exts.lisp: Wrap file in a big #+sbcl (PROGN ...), so
 	users can use the `slime-sbcl-exts' contrib in their .emacs
 	nevermind what implementation they actually use.