[slime-cvs] CVS slime

[CVS User msimmons]

Update of /project/slime/cvsroot/slime
In directory cl-net:/tmp/cvs-serv26908

Modified Files:
	ChangeLog swank-lispworks.lisp 
Log Message:
swank-lispworks.lisp: wrapper functions for swank-mop
slot-boundp-using-class, slot-value-using-class and
slot-makunbound-using-class to account for MOP differences.



--- /project/slime/cvsroot/slime/ChangeLog	2009/01/10 12:40:13	1.1664
+++ /project/slime/cvsroot/slime/ChangeLog	2009/01/15 17:07:21	1.1665
@@ -1,3 +1,9 @@
+2009-01-15  Martin Simmons  <martin at lispworks.com>
+
+	* swank-lispworks.lisp: wrapper functions for swank-mop
+ 	slot-boundp-using-class, slot-value-using-class and
+ 	slot-makunbound-using-class to account for MOP differences.
+	
 2009-01-10  Helmut Eller  <heller at common-lisp.net>
 
 	* swank-openmcl.lisp (install-debugger-globally): Set *break-in-sldb*.
--- /project/slime/cvsroot/slime/swank-lispworks.lisp	2009/01/10 12:25:16	1.128
+++ /project/slime/cvsroot/slime/swank-lispworks.lisp	2009/01/15 17:07:21	1.129
@@ -15,6 +15,9 @@
   (import-from :stream *gray-stream-symbols* :swank-backend))
 
 (import-swank-mop-symbols :clos '(:slot-definition-documentation
+                                  :slot-boundp-using-class
+                                  :slot-value-using-class
+                                  :slot-makunbound-using-class
                                   :eql-specializer
                                   :eql-specializer-object
                                   :compute-applicable-methods-using-classes))
@@ -22,6 +25,23 @@
 (defun swank-mop:slot-definition-documentation (slot)
   (documentation slot t))
 
+(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) (value class object slotd)
+  (setf (clos:slot-value-using-class class object
+                                     (clos:slot-definition-name slotd))
+        value))
+
+(defun swank-mop:slot-makunbound-using-class (class object slotd)
+  (clos:slot-makunbound-using-class class object
+                                    (clos:slot-definition-name slotd)))
+
 (defun swank-mop:compute-applicable-methods-using-classes (gf classes)
   (clos::compute-applicable-methods-from-classes gf classes))