diff --git a/compiler/debug.lisp b/compiler/debug.lisp index 2c1280e113f9e4686fc9890de2a2f2d89b14bdc8..efc82a226f5469c8a085860b833278dc57312506 100644 --- a/compiler/debug.lisp +++ b/compiler/debug.lisp @@ -759,8 +759,7 @@ "~%TNs: ~D local, ~D temps, ~D constant, ~D env, ~D comp, ~D global.~@ Wired: ~D, Unused: ~D. ~D block~:P, ~D global conflict~:P.~%" local temps const environment comp global wired unused - (1+ (ir2-block-number - (block-info (block-next (component-head component))))) + (ir2-block-count component) confs)) (undefined-value))