Ticket #321 (closed defect: fixed)

Opened 6 years ago

Last modified 6 years ago

Style-warning can't be used from user program

Reported by: lenst Owned by: 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 Download (1.2 KB) - added by S11001001 6 years ago.
fix for this issue

Change History

Changed 6 years ago by S11001001

fix for this issue

comment:1 Changed 6 years ago by S11001001

  • Cc S11001001 added

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

comment:2 Changed 6 years ago by gb

  • Status changed from new to closed
  • Resolution set to fixed

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

Note: See TracTickets for help on using tickets.