From 7d67e4a64774ecc8826bec24622b70a6803d198e Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Fri, 13 Jul 1990 11:59:13 +0000
Subject: [PATCH] Changed (vop-info-name (ir2-block-last-vop 2block)) to
 (vop-info-name (vop-info (ir2-block-last-vop 2block))).

---
 compiler/pack.lisp | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/compiler/pack.lisp b/compiler/pack.lisp
index 53aeec425..da0e849e4 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)))
 
-- 
GitLab