[slime-devel] lispworks 5.1 conditions

[Peter Denno]

On Thursday 27 March 2008 18:09, Martin Simmons wrote:
> >>>>> On Thu, 27 Mar 2008 17:07:23 -0400, Peter Denno said:
> >
> > Delivered-To: slime-devel at common-lisp.net
> >
> > Hi,
> >
> > I just tried lispworks 5.1/linux (released today) with Slime CVS
> > HEAD. I'm not a Slime hacker, but it appears that the argument to
> > swank-backend::lispworks-severity in this version of LW can be a
> > dotted list of the form:
> >
> >  (#<CONDITIONS::SIMPLE-STYLE-WARNING 200BF8A7> . 15798)
> >
> > Thus the etypecase in lispworks-severity can fail. So, a naive
> > patch:
> >
> > (defun lispworks-severity (condition)
> >   (cond ((not condition) :warning)
> >              (t (etypecase
> >                       #+:lispworks5.1 (car condition)
> >                       #-lispworks5.1 condition
> >              (error :error)
> >              (style-warning :warning)
> >              (warning :warning)))))
> >
> > I don't doubt that this should be taken care of elsewhere, before
> > the call to lispworks-severity. The list structure seems to have
> > consequences elsewhere. e.g warnings now look like this:
> >
> > -+  Warnings (1)
> >  `-- (*ZIPPY* assumed special in SETQ . 15798)
>
> Can you try the CVS HEAD again now please?  I've just updated
> swank-backend::map-error-database with a similar fix.

That works fine for me. Thanks!

>
> __Martin