diff options
| author | Mattias Engdegård <mattiase@acm.org> | 2021-12-20 17:29:17 +0100 |
|---|---|---|
| committer | Mattias Engdegård <mattiase@acm.org> | 2021-12-20 17:29:51 +0100 |
| commit | de797bb853e85e3cc3c9ec71f51e4e78e41af4ab (patch) | |
| tree | d3087d713b6de89e76b2b8b5aa4c355a7d248e32 | |
| parent | 19206fd1e764cfe89234ae9245bafa88ef1ec354 (diff) | |
| download | emacs-de797bb853e85e3cc3c9ec71f51e4e78e41af4ab.tar.gz | |
; * lisp/emacs-lisp/cl-macs.el (cl--self-tco): fix bootstrapping
| -rw-r--r-- | lisp/emacs-lisp/cl-macs.el | 4 |
1 files 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)))) |