- quality spec))
- ((not (typep raw-value 'policy-quality))
- (compiler-warn "ignoring bad optimization value ~S in ~S"
- raw-value spec))
- (t
- ;; we can't do this yet, because CLOS macros expand
- ;; into code containing INHIBIT-WARNINGS.
- #+nil
- (when (eql quality 'sb!ext:inhibit-warnings)
- (compiler-style-warn "~S is deprecated: use ~S instead"
- quality 'sb!ext:muffle-conditions))
- (push (cons quality raw-value)
- result)))))
+ quality spec))
+ ((not (typep raw-value 'policy-quality))
+ (compiler-warn "ignoring bad optimization value ~S in ~S"
+ raw-value spec))
+ (t
+ ;; we can't do this yet, because CLOS macros expand
+ ;; into code containing INHIBIT-WARNINGS.
+ #+nil
+ (when (eql quality 'sb!ext:inhibit-warnings)
+ (compiler-style-warn "~S is deprecated: use ~S instead"
+ quality 'sb!ext:muffle-conditions))
+ (push (cons quality raw-value)
+ result)))))