X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fpolicies.lisp;h=0ab60a1cc85e15ae114b353ceabf5788eb00f0b4;hb=74a1797f60e26c7adbc491840f89bbaab08e504d;hp=9164e6b0ccb7f2916501aef7323c88122f4d8f4f;hpb=62da111c412394c9099cc8d35cd6dc06c5bf867b;p=sbcl.git

diff --git a/src/compiler/policies.lisp b/src/compiler/policies.lisp
index 9164e6b..0ab60a1 100644
--- a/src/compiler/policies.lisp
+++ b/src/compiler/policies.lisp
@@ -100,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)