[slime-cvs] CVS slime

[mbaringer]

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

Modified Files:
	swank-sbcl.lisp 
Log Message:
(inspect-for-emacs weak-pointer ...): Added method.


--- /project/slime/cvsroot/slime/swank-sbcl.lisp	2006/09/24 21:52:55	1.166
+++ /project/slime/cvsroot/slime/swank-sbcl.lisp	2006/10/17 10:48:35	1.167
@@ -935,6 +935,12 @@
                          (ash (sb-kernel:%code-code-size o) sb-vm:word-shift)
                          :stream s))))))))
 
+(defmethod inspect-for-emacs ((o sb-ext:weak-pointer) (inspector sbcl-inspector))
+  (declare (ignore inspector))
+  (values "A weak pointer."
+          (label-value-line*
+           (:value (sb-ext:weak-pointer-value o)))))
+
 (defmethod inspect-for-emacs ((o sb-kernel:fdefn) (inspector sbcl-inspector))
   (declare (ignore inspector))
   (values "A fdefn object."