+;;; Is it deprecated?
+(defun policy-quality-deprecation-warning (quality)
+ (when (member quality '(stack-allocate-dynamic-extent stack-allocate-vector
+ stack-allocate-value-cells))
+ (deprecation-warning :late "1.0.19.7" quality '*stack-allocate-dynamic-extent*
+ :runtime-error nil)
+ t))
+