diff --git a/compiler/pack.lisp b/compiler/pack.lisp index 53aeec425175204f39a6dd2550ff8f8948b6c557..da0e849e47309e5eed6f25b57ba4dde550c72eda 100644 --- a/compiler/pack.lisp +++ b/compiler/pack.lisp @@ -826,7 +826,8 @@ (let ((next-lab (block-label (ir2-block-block (ir2-block-next 2block))))) (add-to-emit-order new-2block 2block) - (unless (eq (vop-info-name (ir2-block-last-vop 2block)) 'branch) + (unless (eq (vop-info-name (vop-info (ir2-block-last-vop 2block))) + 'branch) (vop branch node 2block next-lab))) (undefined-value)))