[slime-cvs] CVS slime/contrib

[trittweiler]

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

Modified Files:
	swank-arglists.lisp 
Log Message:

* swank-arglists.lisp (arglist-dispatch 'defmethod): Use
  VALID-FUNCTION-NAME-P. Fixes error on certain `(defmethod (setf	...))'
  forms.


--- /project/slime/cvsroot/slime/contrib/swank-arglists.lisp	2007/11/27 17:27:12	1.14
+++ /project/slime/cvsroot/slime/contrib/swank-arglists.lisp	2007/11/29 12:38:01	1.15
@@ -1006,7 +1006,6 @@
           (split-form-spec form-spec)
         (arglist-dispatch type operator arguments :remove-args remove-args))))
 
-
 (defmacro with-availability ((var) form &body body)
   `(let ((,var ,form))
      (if (eql ,var :not-available)
@@ -1043,9 +1042,7 @@
 	     (not (null arguments)) ;have generic function name
 	     (notany #'listp (rest arguments))) ;don't have arglist yet 
     (let* ((gf-name (first arguments))
-	   (gf (and (or (symbolp gf-name)
-			(and (listp gf-name)
-			     (eql (first gf-name) 'setf)))
+	   (gf (and (valid-function-name-p gf-name)
 		    (fboundp gf-name)
 		    (fdefinition gf-name))))
       (when (typep gf 'generic-function)