From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Sat, 9 Jan 2021 16:35:53 +0000 (-0500)
Subject: * lisp/emacs-lisp/cl-macs.el (cl--self-tco): Fix build of gnus-agent.el
X-Git-Tag: emacs-28.0.90~4333
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=981d5eaba8e9fe3f48e74d957b2b409c32cb258e;p=emacs.git

* lisp/emacs-lisp/cl-macs.el (cl--self-tco): Fix build of gnus-agent.el

Don't burp on "naked" variable let bindings.
---

diff --git a/lisp/emacs-lisp/cl-macs.el b/lisp/emacs-lisp/cl-macs.el
index 4cee091e60d..c2bf02ccece 100644
--- a/lisp/emacs-lisp/cl-macs.el
+++ b/lisp/emacs-lisp/cl-macs.el
@@ -2121,7 +2121,8 @@ Like `cl-flet' but the definitions can refer to previous ones.
                    ;; Note: it's OK for this `let' to shadow any
                    ;; of the formal arguments since we will only
                    ;; setq the fresh new `ofargs' vars instead ;-)
-                   (let ((shadowings (mapcar #'car bindings)))
+                   (let ((shadowings
+                          (mapcar (lambda (b) (if (consp b) (car b) b)) bindings)))
                      ;; If `var' is shadowed, then it clearly can't be
                      ;; tail-called any more.
                      (not (memq var shadowings)))))