From b83f37d8b948c089ea418582490e1208cd5363aa Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Mon, 23 Apr 1990 16:48:30 +0000
Subject: [PATCH] Put the 1+ back into ir2-block-count.  (oops)

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

diff --git a/compiler/pack.lisp b/compiler/pack.lisp
index 07ac4b133..3c271d57b 100644
--- a/compiler/pack.lisp
+++ b/compiler/pack.lisp
@@ -151,7 +151,7 @@
       ((null 2block)
        (error "What?  No ir2 blocks have a non-nil number?"))
     (when (ir2-block-number 2block)
-      (return (ir2-block-number 2block)))))
+      (return (1+ (ir2-block-number 2block))))))
 
 
 ;;; Init-SB-Vectors  --  Internal
-- 
GitLab