[slime-cvs] CVS slime

[mbaringer]

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

Modified Files:
	swank-backend.lisp 
Log Message:
(label-value-line): Add :newline as &key
argument; if true (the default) inserts a newline.


--- /project/slime/cvsroot/slime/swank-backend.lisp	2007/04/08 22:56:08	1.117
+++ /project/slime/cvsroot/slime/swank-backend.lisp	2007/04/19 16:36:12	1.118
@@ -880,9 +880,11 @@
 
 ;;; Utilities for inspector methods.
 ;;; 
-(defun label-value-line (label value)
-  "Create a control list which prints \"LABEL: VALUE\" in the inspector."
-  (list (princ-to-string label) ": " `(:value ,value) '(:newline)))
+(defun label-value-line (label value &key (newline t))
+  "Create a control list which prints \"LABEL: VALUE\" in the inspector.
+If NEWLINE is non-NIL a `(:newline)' is added to the result."
+  (list* (princ-to-string label) ": " `(:value ,value)
+         (if newline '((:newline)) nil)))
 
 (defmacro label-value-line* (&rest label-values)
   ` (append ,@(loop for (label value) in label-values