diff --git a/compiler/pack.lisp b/compiler/pack.lisp index 07ac4b133f279891a48f9429336a972dfdd52434..3c271d57b2e9b8bb5c5bfd967ef4813f3f916b74 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