From feb866a4733f645095ffda6d1afd6399c0a798ab Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Thu, 8 Mar 1990 13:40:22 +0000
Subject: [PATCH] Changed comment in NLX-INFO to reflect the fact that
 environment analysis now changes escape function exit continuations over to
 the %NLX-ENTRY.

---
 compiler/node.lisp | 16 ++++++++++------
 1 file changed, 10 insertions(+), 6 deletions(-)

diff --git a/compiler/node.lisp b/compiler/node.lisp
index 888fc9dd6..8a2b8f54a 100644
--- a/compiler/node.lisp
+++ b/compiler/node.lisp
@@ -488,12 +488,16 @@
   ;; what kind of exit is being done.
   (cleanup nil :type cleanup)
   ;;
-  ;; The continuation exited to (the CONT of the EXIT nodes.)  This is
-  ;; primarily an indication of where this exit delivers its values to (if
-  ;; any), but it is also used as a sort of name to allow us to find the
-  ;; NLX-Info that corresponds to a given exit.  For this purpose, the Entry
-  ;; must also be used to disambiguate, since exits to different places may
-  ;; deliver their result to the same continuation.
+  ;; The continuation exited to (the CONT of the EXIT nodes.)  If this exit is
+  ;; from an escape function (CATCH or UNWIND-PROTECT), then environment
+  ;; analysis deletes the escape function and instead has the %NLX-ENTRY use
+  ;; this continuation.
+  ;;
+  ;; This slot is primarily an indication of where this exit delivers its
+  ;; values to (if any), but it is also used as a sort of name to allow us to
+  ;; find the NLX-Info that corresponds to a given exit.  For this purpose, the
+  ;; Entry must also be used to disambiguate, since exits to different places
+  ;; may deliver their result to the same continuation.
   (continuation nil :type continuation)
   ;;
   ;; The entry stub inserted by environment analysis.  This is a block
-- 
GitLab