X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fpolicies.lisp;h=19e3b0300c9c1485a529a381f3435e3fffbd5d09;hb=3b6e07c0fcb050fa86c7c42db33f49107e3097e6;hp=78759f47fefa55d515ac6da93af31a7322b9652f;hpb=68165e850aa0700741756fead44a53642194aa39;p=sbcl.git

diff --git a/src/compiler/policies.lisp b/src/compiler/policies.lisp
index 78759f4..19e3b03 100644
--- a/src/compiler/policies.lisp
+++ b/src/compiler/policies.lisp
@@ -87,3 +87,13 @@
         3
         0)
   ("no" "no" "no" "yes"))
+
+(define-optimization-quality insert-array-bounds-checks
+    (if (= safety 0) 0 3)
+  ("no" "yes" "yes" "yes"))
+
+(define-optimization-quality store-xref-data
+    (if (= space 3)
+        0
+        3)
+  ("no" "yes" "yes" "yes"))