From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Wed, 28 Jun 2023 13:24:30 +0000 (-0400)
Subject: * lisp/emacs-lisp/cl-macs.el (cl--slet): Fix bug#64315
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=dcd92090950929eeea3040fcac0294b7a4d839f0;p=emacs.git

* lisp/emacs-lisp/cl-macs.el (cl--slet): Fix bug#64315
---

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))