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