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