[slime-cvs] CVS slime

[mkoeppe]

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

Modified Files:
	swank.lisp 
Log Message:
(arglist-for-echo-area): Fix when arg-indices are not given.


--- /project/slime/cvsroot/slime/swank.lisp	2006/03/22 16:40:01	1.368
+++ /project/slime/cvsroot/slime/swank.lisp	2006/03/22 20:01:44	1.369
@@ -1369,7 +1369,8 @@
                   (format-arglist-for-echo-area
                    form operator-name
                    :print-right-margin print-right-margin
-                   :highlight (and (not (zerop arg-index))
+                   :highlight (and arg-index
+                                   (not (zerop arg-index))
                                    ;; don't highlight the operator
                                    arg-index))))))))
     (error (cond)