[slime-cvs] CVS update: slime/swank.lisp

[Helmut Eller]

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

Modified Files:
	swank.lisp 
Log Message:
(macro-indentation): Call clean-arglist.
Date: Mon Nov 29 18:31:54 2004
Author: heller

Index: slime/swank.lisp
diff -u slime/swank.lisp:1.266 slime/swank.lisp:1.267
--- slime/swank.lisp:1.266	Thu Nov 25 20:03:22 2004
+++ slime/swank.lisp	Mon Nov 29 18:31:53 2004
@@ -3404,7 +3404,7 @@
 
 (defun macro-indentation (arglist)
   (if (well-formed-list-p arglist)
-      (position '&body (remove '&whole arglist))
+      (position '&body (clean-arglist arglist))
       nil))
 
 (defun well-formed-list-p (list)