<!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>