Ticket #321 (closed defect: fixed)

Opened 9 years ago

Last modified 8 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



 (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.


ccl.subtype-style-warning.diff Download (1.2 KB) - added by S11001001 9 years ago.
fix for this issue

Change History

Changed 9 years ago by S11001001

fix for this issue

comment:1 Changed 9 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) ())
? (warn 'my-style-warning)
; Compiler warning: In a toplevel form: Nonspecific warning
; While executing: CCL::TOPLEVEL-EVAL, in process listener(1).

comment:2 Changed 8 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.