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