From 62a34b3b693e98c76db49bf794164f0b265b7856 Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Thu, 8 Mar 1990 13:32:35 +0000
Subject: [PATCH] In CONTINUATION-DELAYED-LEAF, removed the hack that checked
 for the continuation being a NLX continuation.  This should no longer be
 necessary now that environment analysis always leaves the exit continuation
 with a use representing the NLX value.

---
 compiler/ltn.lisp | 5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

diff --git a/compiler/ltn.lisp b/compiler/ltn.lisp
index 77af273b5..cb0d74e70 100644
--- a/compiler/ltn.lisp
+++ b/compiler/ltn.lisp
@@ -77,15 +77,12 @@
 ;;; Continuation-Delayed-Leaf  --  Internal
 ;;;
 ;;;    If Cont is used only by a Ref to a leaf that can be delayed, then return
-;;; the leaf, otherwise return NIL.  We have to explicitly check for NLX
-;;; continuations, since they are sleazily referenced by IR2 conversion.
+;;; the leaf, otherwise return NIL.
 ;;;
 (defun continuation-delayed-leaf (cont)
   (declare (type continuation cont)) 
   (let ((use (continuation-use cont)))
     (and (ref-p use)
-	 (not (find cont (environment-nlx-info (node-environment use))
-		    :key #'nlx-info-continuation))
 	 (let ((leaf (ref-leaf use)))
 	   (etypecase leaf
 	     (lambda-var (if (null (lambda-var-sets leaf)) leaf nil))
-- 
GitLab