[slime-cvs] CVS slime/contrib

[CVS User sboukarev]

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

Modified Files:
	ChangeLog swank-arglists.lisp 
Log Message:
contrib/swank-arglists.lisp(find-subform-with-arglist): Return
 (values nil :not-available), not just NIL, when operator is
`quote' or `function'.
Fixes bug reported by Mark Harig.


--- /project/slime/cvsroot/slime/contrib/ChangeLog	2009/12/03 15:41:06	1.295
+++ /project/slime/cvsroot/slime/contrib/ChangeLog	2009/12/04 01:15:22	1.296
@@ -1,3 +1,10 @@
+2009-12-04  Stas Boukarev  <stassats at gmail.com>
+
+	* swank-arglists.lisp (find-subform-with-arglist): Return
+	 (values nil :not-available), not just NIL, when operator is
+	`quote' or `function'.
+	Fixes bug reported by Mark Harig.
+
 2009-12-03  Tobias C. Rittweiler  <tcr at freebits.de>
 
 	http://common-lisp.net/project/hyperdoc/
--- /project/slime/cvsroot/slime/contrib/swank-arglists.lisp	2009/12/03 15:36:59	1.44
+++ /project/slime/cvsroot/slime/contrib/swank-arglists.lisp	2009/12/04 01:15:22	1.45
@@ -1223,7 +1223,7 @@
                 (yield form local-ops))
                ;; Mostly uninteresting, hence skip.
                ((memq operator '(cl:quote cl:function))
-                nil)
+                (values nil :not-available))
                (t
                 (multiple-value-or (grovel-form last-subform local-ops)
                                    (yield form local-ops))))))))