From 9d506f6bdee01bce3dfe2fed8d159dfd4ce9d0ef Mon Sep 17 00:00:00 2001 From: akater Date: Sun, 29 Aug 2021 10:38:12 +0000 Subject: [PATCH 2/2] ; * lisp/emacs-lisp/cl-generic.el (cl--generic-lambda): Cleanup --- lisp/emacs-lisp/cl-generic.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/emacs-lisp/cl-generic.el b/lisp/emacs-lisp/cl-generic.el index 8fdd905785..fd57599b1e 100644 --- a/lisp/emacs-lisp/cl-generic.el +++ b/lisp/emacs-lisp/cl-generic.el @@ -415,9 +415,9 @@ defun cl--generic-lambda (args body) (cl-pushnew nmp uses-cnm :test #'eq))) (cl--labels-convert f))) newenv))))) - ;; FIXME: Also, optimize the case where call-next-method is + ;; FIXME: Optimize the case where call-next-method is ;; only called with explicit arguments. - (uses-cnm uses-cnm)) + ) (cons (not (not uses-cnm)) `#'(lambda (,@(if uses-cnm (list cnm)) ,@args) ,@(car parsed-body) -- 2.31.1