From cc9bfaaeac5cb2c37e718080ed0e1a923f4a1d3f Mon Sep 17 00:00:00 2001 From: =?utf8?q?David=20V=C3=A1zquez?= Date: Fri, 5 Jul 2013 04:03:30 +0200 Subject: [PATCH] Fix temporal bug in tagbody --- src/compiler.lisp | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/src/compiler.lisp b/src/compiler.lisp index a6f435f..23752c6 100644 --- a/src/compiler.lisp +++ b/src/compiler.lisp @@ -857,11 +857,15 @@ (try (switch ,(make-symbol branch) ,@(with-collect + (collect `(case ,initag)) (dolist (form (cdr body)) (if (go-tag-p form) (let ((b (lookup-in-lexenv form *environment* 'gotag))) (collect `(case ,(second (binding-value b))))) - (collect (ls-compile form))))) + (progn + (collect (ls-compile form)) + ;; TEMPORAL! + (collect '(code ";")))))) default (break tbloop))) (catch (jump) -- 1.7.10.4