[Openmcl-devel] problem with style-warning

[Gary Byers]

This was reported several months ago:

<http://trac.clozure.com/openmcl/ticket/321>

A few months later, someone contributed a patch:

<http://trac.clozure.com/openmcl/attachment/ticket/321/ccl.subtype-style-warning.diff>

A few minutes ago, I actually applied that patch and checkes in the changes.
I'm sorry it took so long.

(There are other ways to fix the problem and it's certainly possible to
get lost in reverie thinking about them.  It's even possible to think
that one of those fixes had been applied a long time ago, despite the
evidence to the contrary.)


On Sat, 31 Jan 2009, Daniel Herring wrote:

> Issue the following at a clozure prompt:  (warn 'style-warning)
>
> Clozure responds with
> Slot CCL::WARNING-TYPE is unbound in #<STYLE-WARNING #x300042DE883D>
>    [Condition of type UNBOUND-SLOT]
>
> It appears that report-compiler-warning assumes the warning-type slot is
> always bound, though it isn't specified in CLHS.
>
>
> This issue came up when trying to use the current version of metabang-bind
> (0.7.2 or later) with clozure.  Metabang-bind triggers this problem with
> the following code.
>
> (define-condition simple-style-warning (style-warning simple-warning)
>   ())
>
> (defun simple-style-warning (message &rest args)
>   (warn 'simple-style-warning :format-control message :format-arguments args))
>
>
> Is this a bug in clozure, metabang-bind, both?  Please advise how to
> proceed.
>
> Thanks,
> Daniel
> _______________________________________________
> Openmcl-devel mailing list
> Openmcl-devel at clozure.com
> http://clozure.com/mailman/listinfo/openmcl-devel
>
>