diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2021-01-08 18:28:47 -0500 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2021-01-08 18:28:47 -0500 |
| commit | 9d3d6f850060db078c7a6853aa3eb8f6e8dca520 (patch) | |
| tree | 329a028ee3bc3677c0dcd00459223e7644e243e1 /lisp/emacs-lisp/cl-generic.el | |
| parent | 768a35279388106f83842b7e029aa4a61b142df2 (diff) | |
| download | emacs-9d3d6f850060db078c7a6853aa3eb8f6e8dca520.tar.gz emacs-9d3d6f850060db078c7a6853aa3eb8f6e8dca520.tar.bz2 emacs-9d3d6f850060db078c7a6853aa3eb8f6e8dca520.zip | |
* lisp/emacs-lisp/cl-generic.el (cl--generic-lambda): Fix last change
Diffstat (limited to 'lisp/emacs-lisp/cl-generic.el')
| -rw-r--r-- | lisp/emacs-lisp/cl-generic.el | 2 |
1 files changed, 1 insertions, 1 deletions
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)))) |