[slime-cvs] CVS slime/contrib

[CVS User sboukarev]

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

Modified Files:
	ChangeLog swank-arglists.lisp 
Log Message:
* swank-arglists.lisp (decode-arglist): Handle (x . y) macro arglists.


--- /project/slime/cvsroot/slime/contrib/ChangeLog	2010/05/14 14:34:22	1.381
+++ /project/slime/cvsroot/slime/contrib/ChangeLog	2010/05/16 06:11:44	1.382
@@ -1,3 +1,7 @@
+2010-05-16  Stas Boukarev  <stassats at gmail.com>
+
+	* swank-arglists.lisp (decode-arglist): Handle (x . y) macro arglists.
+
 2010-05-14  Tobias C. Rittweiler <tcr at freebits.de>
 
 	* slime-highlight-edits.el, slime-hyperdoc.el, slime-mrepl.el,
--- /project/slime/cvsroot/slime/contrib/swank-arglists.lisp	2010/05/13 04:59:11	1.66
+++ /project/slime/cvsroot/slime/contrib/swank-arglists.lisp	2010/05/16 06:11:45	1.67
@@ -519,8 +519,9 @@
     for arg = (if (consp arglist)
                   (pop arglist)
                   (progn
-                    (setf mode '&rest)
-                    arglist))
+                    (prog1 arglist
+                      (setf mode '&rest
+                            arglist nil))))
     do (cond
          ((eql mode '&unknown-junk)
           ;; don't leave this mode -- we don't know how the arglist
@@ -567,7 +568,7 @@
                (push arg (arglist.known-junk result)))
             (&any
                (push arg (arglist.any-args result))))))
-    until (atom arglist)
+        until (null arglist)
     finally (nreversef (arglist.required-args result))
     finally (nreversef (arglist.optional-args result))
     finally (nreversef (arglist.keyword-args result))