From 8096537c7a8d4297ddd0a086716304a2809eff5e Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Daniel=20Kochma=C5=84ski?= <daniel@turtleware.eu>
Date: Fri, 20 Jan 2017 11:27:20 +0100
Subject: [PATCH] dolist: wrap body in tagbody explicitly

Adding LET caused scope problems.
---
 src/lsp/export.lsp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/lsp/export.lsp b/src/lsp/export.lsp
index 06c7e1046..8742a5da0 100644
--- 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))