[slime-cvs] CVS slime

[CVS User heller]

Update of /project/slime/cvsroot/slime
In directory cl-net:/tmp/cvs-serv2258

Modified Files:
	ChangeLog swank-backend.lisp 
Log Message:
* swank-backend.lisp (warn-unimplemented-interfaces): Print the
names with pprint-fill.

--- /project/slime/cvsroot/slime/ChangeLog	2009/01/15 17:07:21	1.1665
+++ /project/slime/cvsroot/slime/ChangeLog	2009/01/16 15:49:25	1.1666
@@ -4,6 +4,11 @@
  	slot-boundp-using-class, slot-value-using-class and
  	slot-makunbound-using-class to account for MOP differences.
 	
+2009-01-16  Helmut Eller  <heller at common-lisp.net>
+
+	* swank-backend.lisp (warn-unimplemented-interfaces): Print the
+	names with pprint-fill.
+
 2009-01-10  Helmut Eller  <heller at common-lisp.net>
 
 	* swank-openmcl.lisp (install-debugger-globally): Set *break-in-sldb*.
--- /project/slime/cvsroot/slime/swank-backend.lisp	2009/01/10 12:25:16	1.169
+++ /project/slime/cvsroot/slime/swank-backend.lisp	2009/01/16 15:49:25	1.170
@@ -173,8 +173,8 @@
 (defun warn-unimplemented-interfaces ()
   "Warn the user about unimplemented backend features.
 The portable code calls this function at startup."
-  (warn "These Swank interfaces are unimplemented:~% ~A"
-        (sort (copy-list *unimplemented-interfaces*) #'string<)))
+  (warn "These Swank interfaces are unimplemented:~% ~:<~{~A~^ ~:_~}~:>"
+        (list (sort (copy-list *unimplemented-interfaces*) #'string<))))
 
 (defun import-to-swank-mop (symbol-list)
   (dolist (sym symbol-list)