diff options
| author | Stefan Monnier | 2021-01-08 18:28:47 -0500 |
|---|---|---|
| committer | Stefan Monnier | 2021-01-08 18:28:47 -0500 |
| commit | 9d3d6f850060db078c7a6853aa3eb8f6e8dca520 (patch) | |
| tree | 329a028ee3bc3677c0dcd00459223e7644e243e1 | |
| parent | 768a35279388106f83842b7e029aa4a61b142df2 (diff) | |
| download | emacs-9d3d6f850060db078c7a6853aa3eb8f6e8dca520.tar.gz emacs-9d3d6f850060db078c7a6853aa3eb8f6e8dca520.zip | |
* lisp/emacs-lisp/cl-generic.el (cl--generic-lambda): Fix last change
| -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." | |||
| 370 | (cons (not (not uses-cnm)) | 370 | (cons (not (not uses-cnm)) |
| 371 | `#'(lambda (,@(if uses-cnm (list cnm)) ,@args) | 371 | `#'(lambda (,@(if uses-cnm (list cnm)) ,@args) |
| 372 | ,@(car parsed-body) | 372 | ,@(car parsed-body) |
| 373 | ,(if (not (memq nmp uses-cnm)) | 373 | ,(if (not (assq nmp uses-cnm)) |
| 374 | nbody | 374 | nbody |
| 375 | `(let ((,nmp (lambda () | 375 | `(let ((,nmp (lambda () |
| 376 | (cl--generic-isnot-nnm-p ,cnm)))) | 376 | (cl--generic-isnot-nnm-p ,cnm)))) |