[slime-cvs] CVS slime

[msimmons]

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

Modified Files:
	ChangeLog swank-lispworks.lisp 
Log Message:
(lispworks-inspect): Fix hanging caused by
mapcan, i.e. nconc, on a constant list returned by
label-value-line.


--- /project/slime/cvsroot/slime/ChangeLog	2007/05/17 15:29:16	1.1132
+++ /project/slime/cvsroot/slime/ChangeLog	2007/05/17 16:52:31	1.1133
@@ -1,3 +1,9 @@
+2007-05-17  Martin Simmons <martin at lispworks.com>
+
+	* swank-lispworks.lisp (lispworks-inspect): Fix hanging caused by
+	mapcan, i.e. nconc, on a constant list returned by
+	label-value-line.
+
 2007-05-17  Tobias C. Rittweiler <tcr at freebits.de>
 
 	* slime.el (slime-complete-form): Only insert a closing
--- /project/slime/cvsroot/slime/swank-lispworks.lisp	2007/02/04 22:28:51	1.90
+++ /project/slime/cvsroot/slime/swank-lispworks.lisp	2007/05/17 16:52:31	1.91
@@ -665,7 +665,9 @@
     (values "A value."
             (append 
              (label-value-line "Type" type)
-             (mapcan #'label-value-line names values)))))
+             (loop for name in names
+                   for value in values
+                   append (label-value-line name value))))))
 
 ;;; Miscellaneous