[slime-devel] Patch: Fix defmethod arglist when using closer-mop

[Max Mikhanosha]

When inside a package that uses closer-mop, defmethod does not display
generic function arglist.

Testcase:

(defpackage :foo (:use :closer-common-lisp :sb-gray))
(in-package :foo)

Type "(defmethod stream-read-char (" into REPL

Message area displays: "(defmethod name &body body)
Expected result is: "(defmethod stream-read-char (stream) &body body)

Fix:

*** swank-arglists.lisp.~1.70.~	2011-06-06 10:02:49.000000000 -0400
--- swank-arglists.lisp	2011-10-02 19:01:11.246673986 -0400
***************
*** 1544,1547 ****
--- 1544,1551 ----
  (test-print-arglist)
  (test-arglist-ref)
  
+ #+closer-mop
+ (defmethod arglist-dispatch ((operator (eql 'closer-mop:defmethod)) arguments)
+   (arglist-dispatch 'cl:defmethod arguments))
+ 
  (provide :swank-arglists)