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
* Johannes Groedem <johs@netfonds.no>:When I inspect the object from lispworks it worksIt 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...)
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@common-lisp.net http://common-lisp.net/mailman/listinfo/slime-devel