- (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")))))