3 Oct
2011
3 Oct
'11
1:04 a.m.
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)