From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Fri, 8 Jan 2021 23:28:47 +0000 (-0500)
Subject: * lisp/emacs-lisp/cl-generic.el (cl--generic-lambda): Fix last change
X-Git-Tag: emacs-28.0.90~4338
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9d3d6f850060db078c7a6853aa3eb8f6e8dca520;p=emacs.git

* 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 529de9346d0..8e36dbe4a36 100644
--- 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))))