diff options
| author | Stefan Monnier | 2017-02-21 21:32:27 -0500 |
|---|---|---|
| committer | Stefan Monnier | 2017-02-21 21:32:27 -0500 |
| commit | 3f1cd957ff319ce4b2ae94d656c9c702fa9ce653 (patch) | |
| tree | c0f5439a68532c507d9171ecb480bb1e2a114a89 | |
| parent | cd191c80344ce444a2845147d7e77e4330f2e993 (diff) | |
| download | emacs-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.el | 2 |
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)))) |