; * lisp/emacs-lisp/cl-macs.el (cl--self-tco): fix bootstrapping

diff --git a/lisp/emacs-lisp/cl-macs.el b/lisp/emacs-lisp/cl-macs.el
index 9e93e8775d510be73ee4f40644e33ddd7b9c0218..87f7e0785162ddb9fbec3c770595ac6564979155 100644 (file)
--- a/lisp/emacs-lisp/cl-macs.el
+++ b/lisp/emacs-lisp/cl-macs.el
@@ -2145,8 +2145,8 @@ Like `cl-flet' but the definitions can refer to previous ones.
                       (not (memq var shadowings))
                       ;; If any of the new bindings is a dynamic
                       ;; variable, the body is not in tail position.
-                      (not (cl-some #'macroexp--dynamic-variable-p
-                                    shadowings))))))
+                      (not (delq nil (mapcar #'macroexp--dynamic-variable-p
+                                             shadowings)))))))
              `(,(car exp) ,bindings . ,(funcall opt-exps exps)))
             ((and `(condition-case ,err-var ,bodyform . ,handlers)
                   (guard (not (eq err-var var))))