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)