[slime-cvs] CVS slime

[CVS User trittweiler]

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

Modified Files:
	swank-backend.lisp ChangeLog 
Log Message:
	* swank-backend.lisp (warn-unimplemented-interfaces):
	Bind *PRINT-PRETTY* to T. Otherwise no sugar formatting on CCL.


--- /project/slime/cvsroot/slime/swank-backend.lisp	2009/02/22 14:18:47	1.173
+++ /project/slime/cvsroot/slime/swank-backend.lisp	2009/02/26 19:57:35	1.174
@@ -173,8 +173,9 @@
 (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~^ ~:_~}~:>"
-        (list (sort (copy-list *unimplemented-interfaces*) #'string<))))
+  (let ((*print-pretty* t))
+    (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)
--- /project/slime/cvsroot/slime/ChangeLog	2009/02/26 18:41:23	1.1690
+++ /project/slime/cvsroot/slime/ChangeLog	2009/02/26 19:57:35	1.1691
@@ -1,5 +1,10 @@
 2009-02-26  Tobias C. Rittweiler  <tcr at freebits.de>
 
+	* swank-backend.lisp (warn-unimplemented-interfaces):
+	Bind *PRINT-PRETTY* to T. Otherwise no sugar formatting on CCL.
+
+2009-02-26  Tobias C. Rittweiler  <tcr at freebits.de>
+
 	* slime.el (slime-pretty-package-name): Signalled an error on
 	simple symbols; fix that!