From 9763d630a3d0bfe0a323a4dc52785aca4d1a69bc Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Tue, 13 Nov 1990 22:44:00 +0000
Subject: [PATCH] Changed variable dumping to realize that a TN can have no
 refs even when its leaf has refs (due to IR2 optimization.)

---
 compiler/debug-dump.lisp | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/compiler/debug-dump.lisp b/compiler/debug-dump.lisp
index 957774dd3..5ad007303 100644
--- a/compiler/debug-dump.lisp
+++ b/compiler/debug-dump.lisp
@@ -399,7 +399,7 @@
   (collect ((vars))
     (labels ((frob-leaf (leaf tn gensym-p)
 	       (let ((name (leaf-name leaf)))
-		 (when (and name (leaf-refs leaf)
+		 (when (and name (leaf-refs leaf) (tn-offset tn)
 			    (or gensym-p (symbol-package name)))
 		   (vars (cons leaf tn)))))
 	     (frob-lambda (x gensym-p)
@@ -449,7 +449,8 @@
   (let ((res (gethash var var-locs)))
     (cond (res)
 	  (t
-	   (assert (null (leaf-refs var)))
+	   (assert (or (null (leaf-refs var))
+		       (not (tn-offset (leaf-info var)))))
 	   'deleted))))
 
 
-- 
GitLab