[slime-devel] Re: fancy inspector problems

[Knut Olav Bøhmer]

Johannes Groedem wrote:
> * Johannes Groedem <johs at netfonds.no>:
>   
>>> When I inspect the object from lispworks it works
>>>       
>> It appears to be Lispworks-specific, by the way.  (Yes, I got the
>> same error, but not with CLISP or SBCL.)
>>     
>
> I'm not entirely sure that this is the proper fix, but if anyone wants
> to take a look, here's a patch that fixes it.  (WFM, anyway...)
>   

The patch is not in CVS yet.
Could someone put it inn? It's to bad to have a lisp that does not work
with slime.

> ------------------------------------------------------------------------
>
> Index: swank-lispworks.lisp
> ===================================================================
> RCS file: /project/slime/cvsroot/slime/swank-lispworks.lisp,v
> retrieving revision 1.92
> diff -u -r1.92 swank-lispworks.lisp
> --- swank-lispworks.lisp	23 Aug 2007 19:03:37 -0000	1.92
> +++ swank-lispworks.lisp	17 Sep 2007 13:32:35 -0000
> @@ -17,7 +17,9 @@
>  (import-swank-mop-symbols :clos '(:slot-definition-documentation
>                                    :eql-specializer
>                                    :eql-specializer-object
> -                                  :compute-applicable-methods-using-classes))
> +                                  :compute-applicable-methods-using-classes
> +                                  :slot-boundp-using-class
> +                                  :slot-value-using-class))
>  
>  (defun swank-mop:slot-definition-documentation (slot)
>    (documentation slot t))
> @@ -25,6 +27,12 @@
>  (defun swank-mop:compute-applicable-methods-using-classes (gf classes)
>    (clos::compute-applicable-methods-from-classes gf classes))
>  
> +(defun swank-mop:slot-boundp-using-class (class object slotd)
> +  (clos::slot-boundp-using-class class object (clos:slot-definition-name slotd)))
> +
> +(defun swank-mop:slot-value-using-class (class object slotd)
> +  (clos::slot-value-using-class class object (clos:slot-definition-name slotd)))
> +
>  ;; lispworks doesn't have the eql-specializer class, it represents
>  ;; them as a list of `(EQL ,OBJECT)
>  (deftype swank-mop:eql-specializer () 'cons)
>   
> ------------------------------------------------------------------------
>
> _______________________________________________
> slime-devel site list
> slime-devel at common-lisp.net
> http://common-lisp.net/mailman/listinfo/slime-devel


-- 
Free Software Consultant
Cell: +47 - 47 34 40 08
Phone: +47 - 21 53 69 00, Fax: +47 - 21 53 69 09
Addr: Slemdalsveien 70, PB 1 Vinderen, 0319 Oslo
<http://www.freecode.no/>

-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://mailman.common-lisp.net/pipermail/slime-devel/attachments/20071204/3f524d33/attachment.html>
-------------- next part --------------
A non-text attachment was scrubbed...
Name: logo_horizontal.png
Type: image/png
Size: 7619 bytes
Desc: not available
URL: <https://mailman.common-lisp.net/pipermail/slime-devel/attachments/20071204/3f524d33/attachment.png>