Index: swank-lispworks.lisp
===================================================================
RCS file: /project/slime/cvsroot/slime/swank-lispworks.lisp,v
retrieving revision 1.99
diff -u -b -r1.99 swank-lispworks.lisp
--- swank-lispworks.lisp	17 Apr 2008 14:56:43 -0000	1.99
+++ swank-lispworks.lisp	18 Jun 2008 10:58:29 -0000
@@ -17,7 +17,10 @@
 (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
+                                  :slot-makunbound-using-class))
 
 (defun swank-mop:slot-definition-documentation (slot)
   (documentation slot t))
@@ -25,6 +28,18 @@
 (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)))
+
+(defun (setf swank-mop:slot-value-using-class) (new-val class object slotd)
+  (setf (clos::slot-value-using-class class object (clos:slot-definition-name slotd)) new-val))
+
+(defun swank-mop:slot-makunbound-using-class (class object slotd)
+  (clos::slot-makunbound-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)