- ** make STYLE-WARN parallel WARN more closely (by accepting
- a condition type, which should be a subtype of
- STYLE-WARNING, and initargs, as well as a format
- string and format arguments for SIMPLE-STYLE-WARNING.
- (WARN can also be used to signal STYLE-WARNINGs, but
- STYLE-WARN helps to document the code)