diff --git a/compiler/tn.lisp b/compiler/tn.lisp index 9e2fee84803e2535a2a93c295281e87b87e36155..ea0a1afa0e1c0a3db61c7d694d1501730c30e5dc 100644 --- a/compiler/tn.lisp +++ b/compiler/tn.lisp @@ -50,7 +50,9 @@ `(let ((prev nil)) (do ((tn ,name (tn-next tn))) ((null tn)) - (cond ((or (tn-reads tn) (tn-writes tn)) + (cond ((or (not (eq (tn-kind tn) :normal)) + (tn-reads tn) + (tn-writes tn)) (setq prev tn)) (t (if prev