Skip to content
Snippets Groups Projects
Commit 803c69f3 authored by wlott's avatar wlott
Browse files

Changed ir2-block-count to look for the first block that has a non-nil

number before trying to add one to it.
parent f0f98b9a
No related branches found
No related tags found
No related merge requests found
...@@ -146,10 +146,12 @@ ...@@ -146,10 +146,12 @@
;;; ;;;
(defun ir2-block-count (component) (defun ir2-block-count (component)
(declare (type component component)) (declare (type component component))
(1+ (ir2-block-number (do ((2block (block-info (block-next (component-head component)))
(block-info (ir2-block-next 2block)))
(block-next ((null 2block)
(component-head component)))))) (error "What? No ir2 blocks have a non-nil number?"))
(when (ir2-block-number 2block)
(return (ir2-block-number 2block)))))
;;; Init-SB-Vectors -- Internal ;;; Init-SB-Vectors -- Internal
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment