[slime-cvs] CVS slime

[heller]

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

Modified Files:
	slime.el 
Log Message:
(slime-init-command): Send a single form.


--- /project/slime/cvsroot/slime/slime.el	2006/10/16 13:54:54	1.661
+++ /project/slime/cvsroot/slime/slime.el	2006/10/16 19:57:41	1.662
@@ -1617,9 +1617,13 @@
                     slime-backend
                   (concat slime-path slime-backend)))
         (encoding (slime-coding-system-cl-name coding-system)))
-    (format "%S\n%S\n\n"
-            `(load ,loader :verbose t)
-            `(swank:start-server ,port-filename :external-format ,encoding))))
+    ;; Return a single form to avoid problems with buffered input.
+    (format "%S\n\n"
+            `(progn
+               (load ,loader :verbose t)
+               (funcall (read-from-string "swank:start-server")
+                        ,port-filename
+                        :external-format ,encoding)))))
 
 (defun slime-swank-port-file ()
   "Filename where the SWANK server writes its TCP port number."