[slime-cvs] CVS slime

[CVS User sboukarev]

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

Modified Files:
	ChangeLog swank.lisp 
Log Message:
* swank.lisp (setup-server): Check the coding system before doing
anything, otherwise it may be eaten by ignore-errors later.


--- /project/slime/cvsroot/slime/ChangeLog	2010/08/13 07:25:23	1.2124
+++ /project/slime/cvsroot/slime/ChangeLog	2010/08/15 19:13:56	1.2125
@@ -1,3 +1,8 @@
+2010-08-15  Stas Boukarev  <stassats at gmail.com>
+
+	* swank.lisp (setup-server): Check the coding system before doing
+	anything, otherwise it may be eaten by ignore-errors later.
+
 2010-08-13  Helmut Eller  <heller at common-lisp.net>
 
 	Find definition for (def-vm-support-routine NAME ...)
--- /project/slime/cvsroot/slime/swank.lisp	2010/08/11 12:40:03	1.724
+++ /project/slime/cvsroot/slime/swank.lisp	2010/08/15 19:13:57	1.725
@@ -817,6 +817,7 @@
 (defun setup-server (port announce-fn style dont-close coding-system)
   (declare (type function announce-fn))
   (init-log-output)
+  (find-external-format-or-lose coding-system)
   (let* ((socket (create-socket *loopback-interface* port))
          (local-port (local-port socket)))
     (funcall announce-fn local-port)
@@ -826,7 +827,7 @@
         (:spawn
          (initialize-multiprocessing
           (lambda ()
-            (spawn (lambda () 
+            (spawn (lambda ()
                      (cond ((not dont-close) (serve))
                            (t (loop (ignore-errors (serve))))))
                    :name (cat "Swank " (princ-to-string port))))))