From ba08acb6b17f938c164f26cc1fe07cf9eb1d8069 Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Tue, 13 Feb 1990 15:02:23 +0000
Subject: [PATCH] Allow :COMPUTE-ONLY value for SAVE-P.

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

diff --git a/compiler/vmdef.lisp b/compiler/vmdef.lisp
index 4cfc6f1cc..1cea78cb6 100644
--- a/compiler/vmdef.lisp
+++ b/compiler/vmdef.lisp
@@ -496,7 +496,7 @@
   (policy :fast :type policies)
   ;;
   ;; Stuff used by life analysis.
-  (save-p nil :type (member t nil :force-to-stack)))
+  (save-p nil :type (member t nil :compute-only :force-to-stack)))
 
 (defprinter vop-parse
   name
@@ -1176,7 +1176,8 @@
        (setf (vop-parse-policy parse) (vop-spec-arg spec 'policies)))
       (:save-p
        (setf (vop-parse-save-p parse)
-	     (vop-spec-arg spec '(member t nil :force-to-stack))))
+	     (vop-spec-arg spec
+			   '(member t nil :compute-only :force-to-stack))))
       (t
        (error "Unknown option specifier: ~S." (first spec)))))
   (undefined-value))
@@ -1632,7 +1633,7 @@
       form returns NIL, then emission of this VOP is prohibited even when
       all other restrictions are met.
 
-  :Save-P {T | NIL | :Force-To-Stack}
+  :Save-P {NIL | T | :Compute-Only | :Force-To-Stack}
       Indicates how a VOP wants live registers saved."
   
   (check-type name symbol)
-- 
GitLab