From d201cc82ec3b5f0ed34d4c48e4d05de18e8476f9 Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Mon, 5 Mar 1990 12:22:56 +0000
Subject: [PATCH] Fixed comment in TN structure to describe new convention for
 save TN conflict info.

---
 compiler/vop.lisp | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/compiler/vop.lisp b/compiler/vop.lisp
index 5bc7fc1a6..bf937881e 100644
--- a/compiler/vop.lisp
+++ b/compiler/vop.lisp
@@ -861,9 +861,10 @@
   ;;   :Save
   ;;   :Save-Once
   ;;        A TN used for saving a :Normal TN across function calls.  The
-  ;;        lifetime information slots are copied from the saved TN.  Save-Once
-  ;;        is like :Save, except that it is only save once at the single
-  ;;        writer of the original TN.
+  ;;        lifetime information slots are unitialized: get the original TN our
+  ;;        of the SAVE-TN slot and use it for conflicts. Save-Once is like
+  ;;        :Save, except that it is only save once at the single writer of the
+  ;;        original TN.
   ;;
   ;;   :Load
   ;;        A load-TN used to compute an argument or result that is restricted
-- 
GitLab