1.0.17.20: NIL is a legal function name (regression 1.0.13.38)

[sbcl.git] / src / compiler / policies.lisp

diff --git a/src/compiler/policies.lisp b/src/compiler/policies.lisp
index 1ee4f10..0ab60a1 100644 (file)
--- a/src/compiler/policies.lisp
+++ b/src/compiler/policies.lisp
@@ -11,6 +11,12 @@
 
 (in-package "SB!C")
 
+(define-optimization-quality check-constant-modification
+    safety
+  ("no" "maybe" "yes" "yes")
+  "Control whether the compiler should check for constant
+modification. Defaults to SAFETY.")
+
 (define-optimization-quality type-check
     ;; FIXME: grepping the tree for "policy.*safety" yields some
     ;; places which might want to use this instead -- or
@@ -94,6 +100,13 @@ and will refer to the new function, bound to FOO.")
   "Control whether allocate objects, declared DYNAMIC-EXTENT, on
 stack.")
 
+(define-optimization-quality stack-allocate-value-cells
+    ;; FIXME, see bug 419
+    0
+  ("no" "maybe" "yes" "yes")
+  "Control whether allocate closure variable storage, declared
+DYNAMIC-EXTENT, on stack.")
+
 (define-optimization-quality stack-allocate-vector
     (cond ((= stack-allocate-dynamic-extent 0) 0)
           ((= safety 0) 3)