[slime-cvs] CVS update: slime/swank-cmucl.lisp

[Helmut Eller]

Update of /project/slime/cvsroot/slime
In directory common-lisp.net:/tmp/cvs-serv30585

Modified Files:
	swank-cmucl.lisp 
Log Message:
(inspected-parts-of-value-cell): Was lost during the inspector refactoring.

Date: Sun Jan 18 02:39:56 2004
Author: heller

Index: slime/swank-cmucl.lisp
diff -u slime/swank-cmucl.lisp:1.54 slime/swank-cmucl.lisp:1.55
--- slime/swank-cmucl.lisp:1.54	Sun Jan 18 02:10:21 2004
+++ slime/swank-cmucl.lisp	Sun Jan 18 02:39:56 2004
@@ -1127,6 +1127,10 @@
 				  collect (cons (format nil "~D" i) value)))))
 	     (values text parts))))))
 
+(defun inspected-parts-of-value-cell (o)
+  (values (format nil "~A~% is a value cell." o)
+	  (list (cons "Value" (c:value-cell-ref o)))))
+
 (defmethod inspected-parts ((o function))
   (let ((header (kernel:get-type o)))
     (cond ((= header vm:function-header-type)