Style-warning can't be used from user program

[lenst]

Doing

 (princ (make-condition 'style-warning))

Results in a strange error:

 Slot CCL::WARNING-TYPE is unbound in #<STYLE-WARNING #x896DB36>

Style-warning has no standard slots.

[S11001001]

fix for this issue

[S11001001]

I have also encountered this issue while using a condition inheriting from style-warning; with the patch I just attached:

? (define-condition my-style-warning (style-warning) ())
MY-STYLE-WARNING
? (warn 'my-style-warning)
; Compiler warning: In a toplevel form: Nonspecific warning
; While executing: CCL::TOPLEVEL-EVAL, in process listener(1).
NIL

[gb]

Finally checked in the patch (thanks); mistakenly thought that that had been done many months ago.