X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fpolicy.lisp;h=413e42531497686a2736112727867d692aebe9ab;hb=77ae1e21c9418325b78e639a37634213b7222789;hp=34b027d38a1bbb1d942b828a35280ba4dcc6ba1c;hpb=5f466d0621f0cb549b80d48abfa7af8d7dc01a34;p=sbcl.git

diff --git a/src/compiler/policy.lisp b/src/compiler/policy.lisp
index 34b027d..413e425 100644
--- a/src/compiler/policy.lisp
+++ b/src/compiler/policy.lisp
@@ -75,14 +75,12 @@ EXPERIMENTAL INTERFACE: Subject to change."
       (assq x *policy-dependent-qualities*)))
 
 ;;; Is it deprecated?
-(defun policy-quality-deprecation-warning (quality spec)
+(defun policy-quality-deprecation-warning (quality)
   (when (member quality '(stack-allocate-dynamic-extent stack-allocate-vector
                           stack-allocate-value-cells))
-    (make-instance 'simple-reference-warning
-                   :format-control "~@<Ignoring deprecated optimization quality ~S in:~_ ~S~:>"
-                   :format-arguments (list quality spec)
-                   :references (list '(:sbcl :variable *stack-allocate-dynamic-extent*)
-                                     '(:sbcl :node "Dynamic-extent allocation")))))
+    (deprecation-warning :late "1.0.19.7" quality '*stack-allocate-dynamic-extent*
+                         :runtime-error nil)
+    t))
 
 ;;; *POLICY* holds the current global compiler policy information, as
 ;;; an alist mapping from optimization quality name to quality value.