LOOP
(let ((error (generate-error-code nil unseen-throw-tag-error target)))
(inst bc := nil catch zero-tn error))
(loadw tag catch catch-block-tag-slot)
(inst comb :<> tag target loop :nullify t)
(loadw catch catch catch-block-previous-catch-slot)
LOOP
(let ((error (generate-error-code nil unseen-throw-tag-error target)))
(inst bc := nil catch zero-tn error))
(loadw tag catch catch-block-tag-slot)
(inst comb :<> tag target loop :nullify t)
(loadw catch catch catch-block-previous-catch-slot)