X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fpolicies.lisp;h=5aac7788ec5496857fce160c32c52fe5926e3dbc;hb=40e3ba03d0e1b824e4d1ae75d74246b975b70964;hp=b62b239ff131cb25877afad60cba91b7408ced00;hpb=905a0fc4c21ff6c8c752b9436e0616b868f1dfcc;p=sbcl.git diff --git a/src/compiler/policies.lisp b/src/compiler/policies.lisp index b62b239..5aac778 100644 --- a/src/compiler/policies.lisp +++ b/src/compiler/policies.lisp @@ -27,7 +27,7 @@ (t 3)) ("no" "maybe" "yes" "yes")) -(define-optimization-quality let-convertion +(define-optimization-quality let-conversion (if (<= debug speed) 3 0) ("off" "maybe" "on" "on")) @@ -56,9 +56,9 @@ (define-optimization-quality stack-allocate-dynamic-extent (if (and (> (max speed space) (max debug safety)) - (< safety 3)) - 3 - 0) + (< safety 3)) + 3 + 0) ("no" "maybe" "yes" "yes")) (define-optimization-quality stack-allocate-vector