From de797bb853e85e3cc3c9ec71f51e4e78e41af4ab Mon Sep 17 00:00:00 2001 From: Mattias Engdegård Date: Mon, 20 Dec 2021 17:29:17 +0100 Subject: ; * lisp/emacs-lisp/cl-macs.el (cl--self-tco): fix bootstrapping --- lisp/emacs-lisp/cl-macs.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/emacs-lisp/cl-macs.el b/lisp/emacs-lisp/cl-macs.el index 9e93e8775d5..87f7e078516 100644 --- 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)))) -- cgit v1.2.3