diff options
| author | Stefan Monnier | 2023-06-28 09:24:30 -0400 |
|---|---|---|
| committer | Stefan Monnier | 2023-06-28 09:24:30 -0400 |
| commit | dcd92090950929eeea3040fcac0294b7a4d839f0 (patch) | |
| tree | e85687032742b7794183f83e89baf2429137b97e | |
| parent | 85335157dd4a8bf6a0c92525360ec35362750c30 (diff) | |
| download | emacs-dcd92090950929eeea3040fcac0294b7a4d839f0.tar.gz emacs-dcd92090950929eeea3040fcac0294b7a4d839f0.zip | |
* lisp/emacs-lisp/cl-macs.el (cl--slet): Fix bug#64315
| -rw-r--r-- | lisp/emacs-lisp/cl-macs.el | 8 |
1 files 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\"." | |||
| 246 | (defun cl--slet (bindings body &optional nowarn) | 246 | (defun cl--slet (bindings body &optional nowarn) |
| 247 | "Like `cl--slet*' but for \"parallel let\"." | 247 | "Like `cl--slet*' but for \"parallel let\"." |
| 248 | (let ((dyns nil)) ;Vars declared as dynbound among the bindings? | 248 | (let ((dyns nil)) ;Vars declared as dynbound among the bindings? |
| 249 | ;; `seq-some' lead to bootstrap problems. | 249 | (when lexical-binding |
| 250 | (dolist (binding bindings) | 250 | (dolist (binding bindings) ;; `seq-some' lead to bootstrap problems. |
| 251 | (when (macroexp--dynamic-variable-p (car binding)) | 251 | (when (macroexp--dynamic-variable-p (car binding)) |
| 252 | (push (car binding) dyns))) | 252 | (push (car binding) dyns)))) |
| 253 | (cond | 253 | (cond |
| 254 | (dyns | 254 | (dyns |
| 255 | (let ((form `(funcall (lambda (,@(mapcar #'car bindings)) | 255 | (let ((form `(funcall (lambda (,@(mapcar #'car bindings)) |