aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorStefan Monnier2017-02-21 21:32:27 -0500
committerStefan Monnier2017-02-21 21:32:27 -0500
commit3f1cd957ff319ce4b2ae94d656c9c702fa9ce653 (patch)
treec0f5439a68532c507d9171ecb480bb1e2a114a89
parentcd191c80344ce444a2845147d7e77e4330f2e993 (diff)
downloademacs-3f1cd957ff319ce4b2ae94d656c9c702fa9ce653.tar.gz
emacs-3f1cd957ff319ce4b2ae94d656c9c702fa9ce653.zip
* lisp/emacs-lisp/cl-generic.el (cl-defgeneric): Fix last change
-rw-r--r--lisp/emacs-lisp/cl-generic.el2
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/cl-generic.el b/lisp/emacs-lisp/cl-generic.el
index d9321b13565..b7695af32f6 100644
--- a/lisp/emacs-lisp/cl-generic.el
+++ b/lisp/emacs-lisp/cl-generic.el
@@ -231,9 +231,9 @@ DEFAULT-BODY, if present, is used as the body of a default method.
231 (defalias ',name 231 (defalias ',name
232 (cl-generic-define ',name ',args ',(nreverse options)) 232 (cl-generic-define ',name ',args ',(nreverse options))
233 ,(help-add-fundoc-usage doc args)) 233 ,(help-add-fundoc-usage doc args))
234 :autoload-end
234 ,@(mapcar (lambda (method) `(cl-defmethod ,name ,@method)) 235 ,@(mapcar (lambda (method) `(cl-defmethod ,name ,@method))
235 (nreverse methods))) 236 (nreverse methods)))
236 :autoload-end
237 ,@(mapcar (lambda (declaration) 237 ,@(mapcar (lambda (declaration)
238 (let ((f (cdr (assq (car declaration) 238 (let ((f (cdr (assq (car declaration)
239 defun-declarations-alist)))) 239 defun-declarations-alist))))