(do ((2block (ir2-block-next 2block)
(ir2-block-next 2block)))
((null 2block) nil)
- (cond ((eq target (ir2-block-%label 2block))
+ (cond ((ir2-block-%trampoline-label 2block)
+ (return nil))
+ ((eq target (ir2-block-%label 2block))
(return t))
((ir2-block-start-vop 2block)
(return nil)))))))