diff options
| author | Gemini Lasswell <gazally@runbox.com> | 2017-11-01 17:07:40 -0700 |
|---|---|---|
| committer | Gemini Lasswell <gazally@runbox.com> | 2017-11-01 17:07:40 -0700 |
| commit | 460a25f2127390ace71e7dd7b5f079efa07c99d7 (patch) | |
| tree | 9846e448e5d4d271dd53eadd36803a184aee2d46 /lisp/emacs-lisp/cl-generic.el | |
| parent | dc0a25c2f9b44c697194bd0ec21c942125160544 (diff) | |
| download | emacs-460a25f2127390ace71e7dd7b5f079efa07c99d7.tar.gz emacs-460a25f2127390ace71e7dd7b5f079efa07c99d7.tar.bz2 emacs-460a25f2127390ace71e7dd7b5f079efa07c99d7.zip | |
Handle generic variables in cl-defgeneric Edebug spec
*lisp/emacs-lisp/cl-generic.el (cl-defgeneric): Fix Edebug spec to
match (setf name) and replace incorrect cl-lambda-list with listp
(Bug#27747).
Diffstat (limited to 'lisp/emacs-lisp/cl-generic.el')
| -rw-r--r-- | lisp/emacs-lisp/cl-generic.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/cl-generic.el b/lisp/emacs-lisp/cl-generic.el index 62befd4742a..00278996792 100644 --- a/lisp/emacs-lisp/cl-generic.el +++ b/lisp/emacs-lisp/cl-generic.el @@ -206,7 +206,8 @@ DEFAULT-BODY, if present, is used as the body of a default method. \(fn NAME ARGS [DOC-STRING] [OPTIONS-AND-METHODS...] &rest DEFAULT-BODY)" (declare (indent 2) (doc-string 3) (debug - (&define name cl-lambda-list lambda-doc + (&define [&or name ("setf" name :name setf)] listp + lambda-doc [&rest [&or ("declare" &rest sexp) (":argument-precedence-order" &rest sexp) |