[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master de797bb: ; * lisp/emacs-lisp/cl-macs.el (cl--self-tco): fix boots
From: |
Mattias Engdegård |
Subject: |
master de797bb: ; * lisp/emacs-lisp/cl-macs.el (cl--self-tco): fix bootstrapping |
Date: |
Mon, 20 Dec 2021 11:31:02 -0500 (EST) |
branch: master
commit de797bb853e85e3cc3c9ec71f51e4e78e41af4ab
Author: Mattias Engdegård <mattiase@acm.org>
Commit: Mattias Engdegård <mattiase@acm.org>
; * 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 9e93e87..87f7e07 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))))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master de797bb: ; * lisp/emacs-lisp/cl-macs.el (cl--self-tco): fix bootstrapping,
Mattias Engdegård <=