Commit 4674d916 authored by Robert Goldman's avatar Robert Goldman

Patch UIOP/LISP-BUILD:GET-OPTIMIZATION-SETTINGS for SBCL.

Patch from Douglas Katzman to properly get optimization settings on
SBCL, using accessor function instead of ASSOC.
parent 55d8be11
......@@ -92,7 +92,7 @@ This can help you produce more deterministic output for FASLs."))
(case x (compilation-speed 'c::cspeed)
(otherwise x)))
#+lispworks (slot-value compiler::*optimization-level* x)
#+sbcl (cdr (assoc x sb-c::*policy*)))
#+sbcl (sb-c::policy-quality sb-c::*policy* x))
:when y :collect (list x y))))
(defun proclaim-optimization-settings ()
"Proclaim the optimization settings in *OPTIMIZATION-SETTINGS*"
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment