dolist: wrap body in tagbody explicitly

Adding LET caused scope problems.
2026-01-18 23:32:17 -08:00 · 2017-01-20 11:27:20 +01:00 · 2017-01-20 11:27:20 +01:00 · 8096537c7a
commit 8096537c7a
parent 80533261a1
1 changed files with 1 additions and 1 deletions
--- a/src/lsp/export.lsp
+++ b/src/lsp/export.lsp
@ -88,7 +88,7 @@
                      (si::while %dolist-var
                        (let ((,var (car %dolist-var)))
                          (declare ,@declarations)
-                          ,@body
+                          (tagbody ,@body)
                          (setq %dolist-var (cons-cdr %dolist-var))))
                      ,(when exit
                         `(let ((,var nil))