[slime-cvs] CVS slime

[CVS User sboukarev]

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

Modified Files:
	ChangeLog swank-ecl.lisp 
Log Message:
* swank-ecl.lisp (grovel-docstring-for-arglist): ECL's arglists
for macros include macro name at the first place, unlike arglists
for functions. cdr arglists only for macros and special operators.
Reported by Andy Hefner.


--- /project/slime/cvsroot/slime/ChangeLog	2009/11/05 16:43:05	1.1912
+++ /project/slime/cvsroot/slime/ChangeLog	2009/11/06 16:30:00	1.1913
@@ -1,3 +1,10 @@
+2009-11-06  Stas Boukarev  <stassats at gmail.com>
+
+	* swank-ecl.lisp (grovel-docstring-for-arglist): ECL's arglists
+	for macros include macro name at the first place, unlike arglists
+	for functions. cdr arglists only for macros and special operators.
+	Reported by Andy Hefner.
+
 2009-11-05  Tobias C. Rittweiler <tcr at freebits.de>
 
 	Make C-c C-c operate on region if mark is active (and Transient
--- /project/slime/cvsroot/slime/swank-ecl.lisp	2009/07/27 04:08:41	1.45
+++ /project/slime/cvsroot/slime/swank-ecl.lisp	2009/11/06 16:30:00	1.46
@@ -198,7 +198,11 @@
                 (values (read-from-string docstring t nil :start pos)))
             (if (or errorp (not (listp arglist)))
                 :not-available
-                (cdr arglist)))
+                ; ECL for some reason includes macro name at the first place
+                (if (or (macro-function name)
+                        (special-operator-p name)) 
+                    (cdr arglist)
+                    arglist)))
           :not-available ))))
 
 (defimplementation arglist (name)