[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

master 9d3d6f8: * lisp/emacs-lisp/cl-generic.el (cl--generic-lambda): Fi

From: Stefan Monnier
Subject: master 9d3d6f8: * lisp/emacs-lisp/cl-generic.el (cl--generic-lambda): Fix last change
Date: Fri, 8 Jan 2021 18:28:55 -0500 (EST)

branch: master
commit 9d3d6f850060db078c7a6853aa3eb8f6e8dca520
Author: Stefan Monnier <monnier@iro.umontreal.ca>
Commit: Stefan Monnier <monnier@iro.umontreal.ca>

    * lisp/emacs-lisp/cl-generic.el (cl--generic-lambda): Fix last change
 lisp/emacs-lisp/cl-generic.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lisp/emacs-lisp/cl-generic.el b/lisp/emacs-lisp/cl-generic.el
index 529de93..8e36dbe 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))
                          `(let ((,nmp (lambda ()
                                         (cl--generic-isnot-nnm-p ,cnm))))

reply via email to

[Prev in Thread] Current Thread [Next in Thread]