diff --git a/compiler/vop.lisp b/compiler/vop.lisp index 5bc7fc1a66b46dd2c8a49d7ce30049b23140b62e..bf937881e0970680a19b395ebf38e289e420b7f5 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