From 912942457d93850b2d444cf25cf7e71e79259357 Mon Sep 17 00:00:00 2001 From: Gemini Lasswell Date: Mon, 23 Oct 2017 10:13:00 -0700 Subject: [PATCH] Handle generic variables in cl-defgeneric Edebug spec *lisp/emacs-lisp/cl-generic.el (cl-defgeneric): Match (setf name) and replace incorrect cl-lambda-args with listp in Edebug spec. --- lisp/emacs-lisp/cl-generic.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lisp/emacs-lisp/cl-generic.el b/lisp/emacs-lisp/cl-generic.el index 62befd4742..0027899679 100644 --- a/lisp/emacs-lisp/cl-generic.el +++ b/lisp/emacs-lisp/cl-generic.el @@ -206,7 +206,8 @@ cl-defgeneric \(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) -- 2.14.2