From 2d022be8ae5d58db0182807ca725cbc0efbeda88 Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Mon, 23 Jul 1990 14:26:04 +0000
Subject: [PATCH] Deal with :block and :tagbody being seprate cleanup-kinds
 now.

---
 compiler/gtn.lisp | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/compiler/gtn.lisp b/compiler/gtn.lisp
index 1223e1bd4..54c891eb4 100644
--- a/compiler/gtn.lisp
+++ b/compiler/gtn.lisp
@@ -212,7 +212,8 @@
     (dolist (nlx (environment-nlx-info env))
       (setf (nlx-info-info nlx)
 	    (make-ir2-nlx-info
-	     :home (when (eq (cleanup-kind (nlx-info-cleanup nlx)) :entry)
+	     :home (when (member (cleanup-kind (nlx-info-cleanup nlx))
+				 '(:block :tagbody))
 		     (make-normal-tn *any-primitive-type*))
 	     :save-sp (make-nlx-sp-tn env)))))
   (undefined-value))
-- 
GitLab