From: David Vázquez <davazp@gmail.com>
Date: Sun, 12 May 2013 20:23:10 +0000 (+0100)
Subject: Fix TAGBODY
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=a194f39c3a1cc846869734c1337e8a07ad50c82f;p=jscl.git

Fix TAGBODY
---

diff --git a/experimental/compiler.lisp b/experimental/compiler.lisp
index d66a3df..9162fe1 100644
--- a/experimental/compiler.lisp
+++ b/experimental/compiler.lisp
@@ -524,7 +524,7 @@
       ;; block in a alist in TAG-BLOCKS.
       (let ((*cursor* *cursor*))
         (dolist (tag tags)
-          (set-cursor :block (split-block))
+          (setq *cursor* (cursor :block (split-block)))
           (push-binding tag 'tag (current-block))
           (if (assoc tag tag-blocks)
               (error "Duplicated tag `~S' in tagbody." tag)