diff options
| author | Philipp Stephani <phst@google.com> | 2020-08-02 16:01:47 +0200 |
|---|---|---|
| committer | Philipp Stephani <phst@google.com> | 2020-08-02 16:06:41 +0200 |
| commit | e6eb554b95327549992c3684910921db9181ffb6 (patch) | |
| tree | d34af948d645331bad7ec177b4d7a69425ea9f85 /lisp/emacs-lisp/cl-generic.el | |
| parent | 418ea25bbf306c448516ea79c9eaf25b904e62e4 (diff) | |
| download | emacs-e6eb554b95327549992c3684910921db9181ffb6.tar.gz emacs-e6eb554b95327549992c3684910921db9181ffb6.tar.bz2 emacs-e6eb554b95327549992c3684910921db9181ffb6.zip | |
Don’t generate duplicate symbols for secondary CL methods (Bug#42671)
* lisp/emacs-lisp/edebug.el
(edebug-match-cl-generic-method-qualifier): Add matcher for
‘cl-defmethod’ qualifier.
* lisp/emacs-lisp/cl-generic.el (cl-defmethod): Use it.
* test/lisp/emacs-lisp/edebug-tests.el
(edebug-cl-defmethod-qualifier): New unit test.
Diffstat (limited to 'lisp/emacs-lisp/cl-generic.el')
| -rw-r--r-- | lisp/emacs-lisp/cl-generic.el | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/lisp/emacs-lisp/cl-generic.el b/lisp/emacs-lisp/cl-generic.el index 4e8423eb5b1..c67681b0960 100644 --- a/lisp/emacs-lisp/cl-generic.el +++ b/lisp/emacs-lisp/cl-generic.el @@ -432,9 +432,8 @@ The set of acceptable TYPEs (also called \"specializers\") is defined (&define ; this means we are defining something [&or name ("setf" name :name setf)] ;; ^^ This is the methods symbol - [ &rest atom ] ; Multiple qualifiers are allowed. - ; Like in CLOS spec, we support - ; any non-list values. + [ &rest cl-generic-method-qualifier ] + ;; Multiple qualifiers are allowed. cl-generic-method-args ; arguments lambda-doc ; documentation string def-body))) ; part to be debugged |