From dcd92090950929eeea3040fcac0294b7a4d839f0 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Wed, 28 Jun 2023 09:24:30 -0400 Subject: [PATCH] * lisp/emacs-lisp/cl-macs.el (cl--slet): Fix bug#64315 --- lisp/emacs-lisp/cl-macs.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/lisp/emacs-lisp/cl-macs.el b/lisp/emacs-lisp/cl-macs.el index aadb498609a..0a3181561bd 100644 --- a/lisp/emacs-lisp/cl-macs.el +++ b/lisp/emacs-lisp/cl-macs.el @@ -246,10 +246,10 @@ The name is made by appending a number to PREFIX, default \"T\"." (defun cl--slet (bindings body &optional nowarn) "Like `cl--slet*' but for \"parallel let\"." (let ((dyns nil)) ;Vars declared as dynbound among the bindings? - ;; `seq-some' lead to bootstrap problems. - (dolist (binding bindings) - (when (macroexp--dynamic-variable-p (car binding)) - (push (car binding) dyns))) + (when lexical-binding + (dolist (binding bindings) ;; `seq-some' lead to bootstrap problems. + (when (macroexp--dynamic-variable-p (car binding)) + (push (car binding) dyns)))) (cond (dyns (let ((form `(funcall (lambda (,@(mapcar #'car bindings)) -- 2.39.2