diff options
| author | Stefan Monnier | 2017-07-25 10:12:58 -0400 |
|---|---|---|
| committer | Stefan Monnier | 2017-07-25 10:12:58 -0400 |
| commit | 24b91584c214caadff0f2394cf1f021bf480b624 (patch) | |
| tree | 590e1dfc4c5249f5d0478dd2a31b2512699e5be7 | |
| parent | ea5789dac36adc0aaa76c7ca3aa497e7acd06b7a (diff) | |
| download | emacs-24b91584c214caadff0f2394cf1f021bf480b624.tar.gz emacs-24b91584c214caadff0f2394cf1f021bf480b624.zip | |
* lisp/emacs-lisp/eieio-compat.el (eieio--defgeneric-init-form):
Adjust to change in cl-generic-ensure-function.
| -rw-r--r-- | lisp/emacs-lisp/eieio-compat.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/eieio-compat.el b/lisp/emacs-lisp/eieio-compat.el index e6e6d118709..8403a8a655f 100644 --- a/lisp/emacs-lisp/eieio-compat.el +++ b/lisp/emacs-lisp/eieio-compat.el | |||
| @@ -165,7 +165,8 @@ Summary: | |||
| 165 | (if (memq method '(no-next-method no-applicable-method)) | 165 | (if (memq method '(no-next-method no-applicable-method)) |
| 166 | (symbol-function method) | 166 | (symbol-function method) |
| 167 | (let ((generic (cl-generic-ensure-function method))) | 167 | (let ((generic (cl-generic-ensure-function method))) |
| 168 | (symbol-function (cl--generic-name generic))))) | 168 | (or (symbol-function (cl--generic-name generic)) |
| 169 | (cl--generic-make-function generic))))) | ||
| 169 | 170 | ||
| 170 | ;;;###autoload | 171 | ;;;###autoload |
| 171 | (defun eieio--defmethod (method kind argclass code) | 172 | (defun eieio--defmethod (method kind argclass code) |