<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
  <meta content="text/html;charset=ISO-8859-1" http-equiv="Content-Type">
</head>
<body bgcolor="#ffffff" text="#000000">
Johannes Groedem wrote:
<blockquote cite="midkr7impe7fr.fsf@netfonds.no" type="cite">
  <pre wrap="">* Johannes Groedem <a class="moz-txt-link-rfc2396E" href="mailto:johs@netfonds.no"><johs@netfonds.no></a>:
  </pre>
  <blockquote type="cite">
    <blockquote type="cite">
      <pre wrap="">When I inspect the object from lispworks it works
      </pre>
    </blockquote>
    <pre wrap="">It appears to be Lispworks-specific, by the way.  (Yes, I got the
same error, but not with CLISP or SBCL.)
    </pre>
  </blockquote>
  <pre wrap=""><!---->
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...)
  </pre>
</blockquote>
<br>
The patch is not in CVS yet.<br>
Could someone put it inn? It's to bad to have a lisp that does not work
with slime.<br>
<br>
<blockquote cite="midkr7impe7fr.fsf@netfonds.no" type="cite">
  <pre wrap=""></pre>
  <pre wrap=""><hr size="4" width="90%">
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)
  </pre>
  <pre wrap="">
<hr size="4" width="90%">
_______________________________________________
slime-devel site list
<a class="moz-txt-link-abbreviated" href="mailto:slime-devel@common-lisp.net">slime-devel@common-lisp.net</a>
<a class="moz-txt-link-freetext" href="http://common-lisp.net/mailman/listinfo/slime-devel">http://common-lisp.net/mailman/listinfo/slime-devel</a></pre>
</blockquote>
<br>
<br>
<div class="moz-signature">-- <br>
<title>FreeCode Signature</title>
<meta http-equiv="Content-Type" content="text/html; ">
<style type="text/css">
            body {
                font-family: Helvetica, Verdana, "Tahoma MS", Arial, Sans-Serif;
                color: black;
                font-size: 11pt;
            }
            .name {
                color: #072669;
                font-weight: bold;
            }
            .pos {
                color: #cd071e;
                font-weight: bold;
            }
            .cat {
                color: #cd071e;
                font-size: 10pt;
                font-weight: normal;
            }
            .val {
                color: #072669;
                font-weight: normal;
            }
            .quote {
                color: gray;
                font-size: 9pt;
                font-weight: normal;
            }
        </style>
<span class="name">Free Software Consultant</span><br>
<span class="val">Cell:</span> <span class="val">+47 - 47 34 40 08</span><br>
<span class="val">Phone:</span> <span class="val">+47 - 21 53 69 00, </span><span
 class="val">Fax:</span> <span class="val">+47 - 21 53 69 09</span><br>
<span class="val">Addr:</span> <span class="val">Slemdalsveien 70, PB 1
Vinderen, 0319 Oslo</span><br>
<a href="http://www.freecode.no/" style="text-decoration: none;"><img
 style="border: medium none ; padding: 7px 0px 0px;"
 src="cid:part1.00090600.00030505@online.no" alt="" height="56"
 width="370"></a><br>
<pre class="quote">
</pre>
</div>
</body>
</html>