diff options
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/cl-generic.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/emacs-lisp/cl-generic.el b/lisp/emacs-lisp/cl-generic.el index 72ec8ec1801..42e637958b1 100644 --- a/lisp/emacs-lisp/cl-generic.el +++ b/lisp/emacs-lisp/cl-generic.el @@ -355,8 +355,8 @@ which case this method will be invoked when the argument is `eql' to VAL. (let ((m (car methods))) (not (and (equal (cl--generic-method-specializers m) specializers) (equal (cl--generic-method-qualifiers m) qualifiers))))) - (setq methods (cdr methods)) - methods)) + (setq methods (cdr methods))) + methods) ;;;###autoload (defun cl-generic-define-method (name qualifiers args uses-cnm function) |