- (style-warn "in #S ~S, the use of non-keywords ~
- as slot specifiers is deprecated: ~S."
- (car body) slot-name)))
+ (warn 'structure-initarg-not-keyword
+ :format-control
+ "in #S ~S, the use of non-keywords ~
+ as slot specifiers is deprecated: ~S."
+ :format-arguments
+ (list (car body) slot-name))))