Commit 3f1cd957 authored by Stefan Monnier's avatar Stefan Monnier

* lisp/emacs-lisp/cl-generic.el (cl-defgeneric): Fix last change

parent cd191c80
...@@ -231,9 +231,9 @@ DEFAULT-BODY, if present, is used as the body of a default method. ...@@ -231,9 +231,9 @@ DEFAULT-BODY, if present, is used as the body of a default method.
(defalias ',name (defalias ',name
(cl-generic-define ',name ',args ',(nreverse options)) (cl-generic-define ',name ',args ',(nreverse options))
,(help-add-fundoc-usage doc args)) ,(help-add-fundoc-usage doc args))
:autoload-end
,@(mapcar (lambda (method) `(cl-defmethod ,name ,@method)) ,@(mapcar (lambda (method) `(cl-defmethod ,name ,@method))
(nreverse methods))) (nreverse methods)))
:autoload-end
,@(mapcar (lambda (declaration) ,@(mapcar (lambda (declaration)
(let ((f (cdr (assq (car declaration) (let ((f (cdr (assq (car declaration)
defun-declarations-alist)))) defun-declarations-alist))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment