* lisp/emacs-lisp/cl-generic.el (cl--generic-member-method): Fix paren typo.

2 files changed, 4 insertions, 2 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a76d83a69dd..9e473e21626 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2015-02-04  Stefan Monnier  <monnier@iro.umontreal.ca>
 
+        * emacs-lisp/cl-generic.el (cl--generic-member-method): Fix paren typo.
+
         * textmodes/flyspell.el: Use lexical-binding and cl-lib.
         (mail-mode-flyspell-verify): Fix last change.
         (flyspell-external-point-words, flyspell-large-region):
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)