[slime-cvs] CVS slime

[aruttenberg]

Update of /project/slime/cvsroot/slime
In directory clnet:/tmp/cvs-serv23945

Modified Files:
	swank-abcl.lisp ChangeLog 
Log Message:
2006-05-27  Alan Ruttenberg <alanr-l at mumble.net>
	* swank-abcl: slot-boundp-using-class slot-value-using-class  so you 
	can inspect instances


--- /project/slime/cvsroot/slime/swank-abcl.lisp	2006/05/24 21:26:19	1.36
+++ /project/slime/cvsroot/slime/swank-abcl.lisp	2006/05/27 04:18:13	1.37
@@ -59,6 +59,11 @@
 (defun method-function (method)
   (mop::%method-function method))
 
+(defun slot-boundp-using-class (class object slotdef)
+  (system::slot-boundp object (slot-definition-name slotdef)))
+
+(defun slot-value-using-class (class object slotdef)
+  (system::slot-value object (slot-definition-name slotdef)))
 
 (import-to-swank-mop
  '( ;; classes
@@ -104,7 +109,10 @@
    slot-definition-name
    slot-definition-type ;;dummy
    mop::slot-definition-readers
-   mop::slot-definition-writers))
+   mop::slot-definition-writers
+   slot-boundp-using-class
+   slot-value-using-class
+   ))
 
 ;;;; TCP Server
 
--- /project/slime/cvsroot/slime/ChangeLog	2006/05/26 20:13:41	1.899
+++ /project/slime/cvsroot/slime/ChangeLog	2006/05/27 04:18:13	1.900
@@ -1,3 +1,7 @@
+2006-05-27  Alan Ruttenberg <alanr-l at mumble.net>
+	* swank-abcl: slot-boundp-using-class slot-value-using-class  so you 
+	can inspect instances
+
 2006-05-26  Tobias C. Rittweiler <tcr at freebits.de>
 	
 	* slime.el (slime-eval-macroexpand-inplace): Fix out-of-range