diff --git a/compiler/debug.lisp b/compiler/debug.lisp index ec8771c71cad1dbf7738d2990a61d369eb0d4fa7..2c1280e113f9e4686fc9890de2a2f2d89b14bdc8 100644 --- a/compiler/debug.lisp +++ b/compiler/debug.lisp @@ -788,7 +788,9 @@ ;;; (defun check-tn-conflicts (component) (do-packed-tns (tn component) - (unless (or (tn-reads tn) (tn-writes tn)) + (unless (or (not (eq (tn-kind tn) :normal)) + (tn-reads tn) + (tn-writes tn)) (barf "No references to ~S." tn)) (unless (tn-sc tn) (barf "~S has no SC." tn)) @@ -797,7 +799,8 @@ (kind (tn-kind tn))) (cond ((eq kind :component) - (unless (member tn (ir2-component-component-tns component)) + (unless (member tn (ir2-component-component-tns + (component-info component))) (barf "~S not in Component-TNs for ~S." tn component))) ((eq kind :environment) (let ((env (tn-environment tn)))