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