This is intended to be used interactively, to facilitate recompiling large
bodies of code with eg. a known minimum safety.
+See also :POLICY option in WITH-COMPILATION-UNIT.
+
EXPERIMENTAL INTERFACE: Subject to change."
(declare (type policy-quality min))
(when quality
(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.