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

[Marco Baringer]

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

Modified Files:
	swank.lisp 
Log Message:
(inspect-for-emacs): Fix bug in handling of arrays with fill-pointers.

Date: Thu Nov 18 18:35:01 2004
Author: mbaringer

Index: slime/swank.lisp
diff -u slime/swank.lisp:1.261 slime/swank.lisp:1.262
--- slime/swank.lisp:1.261	Mon Nov 15 23:48:39 2004
+++ slime/swank.lisp	Thu Nov 18 18:34:55 2004
@@ -2657,7 +2657,7 @@
             ("Total size" (array-total-size array))
             ("Adjustable" (adjustable-array-p array)))
            (when (array-has-fill-pointer-p array)
-             `(("Fill pointer" (fill-pointer array))))
+             (label-value-line "Fill pointer" (fill-pointer array)))
            '("Contents:" (:newline))
            (let ((darray (make-array (array-total-size array)
                                      :element-type (array-element-type array)