Ticket #321 (new defect)

Opened 5 months ago

Last modified 3 months ago

Style-warning can't be used from user program

Reported by: lenst Assigned to: gb
Priority: major Milestone:
Component: ANSI CL Compliance Version:
Keywords: Cc: S11001001

Description

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.

Attachments

ccl.subtype-style-warning.diff (1.2 kB) - added by S11001001 on 09/28/08 16:01:11.
fix for this issue

Change History

09/28/08 16:01:11 changed by S11001001

  • attachment ccl.subtype-style-warning.diff added.

fix for this issue

09/28/08 16:04:01 changed by S11001001

  • cc set to 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