procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Stefan Monnier 2023-06-28 09:24:30 -04:00
parent 85335157dd
commit dcd9209095
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lisp/emacs-lisp/cl-macs.el
View file

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