* lisp/emacs-lisp/cl-generic.el (cl--generic-lambda): Fix last change

diff --git a/lisp/emacs-lisp/cl-generic.el b/lisp/emacs-lisp/cl-generic.el
index 529de9346d08e8d4bc19974d0388c84bcdda4da7..8e36dbe4a36400b922a657e013dc51a8e7458241 100644 (file)
--- a/lisp/emacs-lisp/cl-generic.el
+++ b/lisp/emacs-lisp/cl-generic.el
@@ -370,7 +370,7 @@ the specializer used will be the one returned by BODY."
            (cons (not (not uses-cnm))
                  `#'(lambda (,@(if uses-cnm (list cnm)) ,@args)
                       ,@(car parsed-body)
-                      ,(if (not (memq nmp uses-cnm))
+                      ,(if (not (assq nmp uses-cnm))
                            nbody
                          `(let ((,nmp (lambda ()
                                         (cl--generic-isnot-nnm-p ,cnm))))