abcl
abcl copied to clipboard
Compile problems with TAGBODY <http://abcl.org/trac/ticket/454>
(compile nil '(lambda () (tagbody (catch 'c 100)))) ==>
COMPILE-TAGBODY: tag not found: 100 [Condition of type SIMPLE-ERROR]
p1-tagbody runs p1 on every subform for p2-tagbody-node to use (stored in tagbody-form), however that means that e.g. (catch 'c 100) is already expanded to 100 when labels are being looked up. Quick fix would be to retain the original and expanded form and iterate simultaneously through them maybe (as in, that works but might not be the greatest fix)?
Possible fix here https://github.com/Ferada/abcl/commit/af26d6c47d80371a5f6d2c61e8958f286bd5b45e.