diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2017-07-25 10:12:58 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2017-07-25 10:12:58 -0400 |
| commit | 24b91584c214caadff0f2394cf1f021bf480b624 (patch) | |
| tree | 590e1dfc4c5249f5d0478dd2a31b2512699e5be7 /lisp/emacs-lisp/eieio-compat.el | |
| parent | ea5789dac36adc0aaa76c7ca3aa497e7acd06b7a (diff) | |
| download | emacs-24b91584c214caadff0f2394cf1f021bf480b624.tar.gz | |
* lisp/emacs-lisp/eieio-compat.el (eieio--defgeneric-init-form):
Adjust to change in cl-generic-ensure-function.
Diffstat (limited to 'lisp/emacs-lisp/eieio-compat.el')
| -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: (if (memq method '(no-next-method no-applicable-method)) (symbol-function method) (let ((generic (cl-generic-ensure-function method))) - (symbol-function (cl--generic-name generic))))) + (or (symbol-function (cl--generic-name generic)) + (cl--generic-make-function generic))))) ;;;###autoload (defun eieio--defmethod (method kind argclass code) |