[slime-cvs] CVS slime/contrib

[CVS User trittweiler]

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

Modified Files:
	swank-arglists.lisp ChangeLog 
Log Message:
	* swank-arglists.lisp (*swank-debug-arglists*): Removed.
	(arglist-for-echo-area): Use DEBUG-ON-SWANK-ERROR instead.


--- /project/slime/cvsroot/slime/contrib/swank-arglists.lisp	2009/12/04 01:15:22	1.45
+++ /project/slime/cvsroot/slime/contrib/swank-arglists.lisp	2009/12/10 23:26:07	1.46
@@ -1107,15 +1107,13 @@
 ;;; %CURSOR-MARKER%)). Only the forms up to point should be
 ;;; considered.
 
-(defvar *swank-debug-arglists* nil)
-
 (defslimefun arglist-for-echo-area (raw-form &key print-right-margin print-lines)
   "Return a string representing the arglist for the deepest subform in
 RAW-FORM that does have an arglist. The highlighted parameter is
 wrapped in ===> X <===."
   (handler-bind ((serious-condition
                   #'(lambda (c)
-                      (unless *swank-debug-arglists*
+                      (unless (debug-on-swank-error)
                         (let ((*print-right-margin* print-right-margin)
                               (*print-lines* print-lines))
                           (return-from arglist-for-echo-area
--- /project/slime/cvsroot/slime/contrib/ChangeLog	2009/12/04 01:15:22	1.296
+++ /project/slime/cvsroot/slime/contrib/ChangeLog	2009/12/10 23:26:07	1.297
@@ -1,3 +1,8 @@
+2009-12-11  Tobias C. Rittweiler  <tcr at freebits.de>
+
+	* swank-arglists.lisp (*swank-debug-arglists*): Removed.
+	(arglist-for-echo-area): Use DEBUG-ON-SWANK-ERROR instead.
+
 2009-12-04  Stas Boukarev  <stassats at gmail.com>
 
 	* swank-arglists.lisp (find-subform-with-arglist): Return