X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fpolicies.lisp;h=14a0867c6adbe1f01fbe2e5135b507e69744a493;hb=3a618201c9f2370bb8784217a866d000371769e5;hp=780ee7ced3d5b97da42022b7049d3b0fee54549b;hpb=d3b83f6dd38eb620ed0377f71d601a07b21146b0;p=sbcl.git

diff --git a/src/compiler/policies.lisp b/src/compiler/policies.lisp
index 780ee7c..14a0867 100644
--- a/src/compiler/policies.lisp
+++ b/src/compiler/policies.lisp
@@ -56,3 +56,7 @@
 	3
 	0)
   ("no" "maybe" "yes" "yes"))
+
+(define-optimization-quality float-accuracy
+    3
+  ("degraded" "full" "full" "full"))