[slime-cvs] CVS slime/contrib

[CVS User sboukarev]

Update of /project/slime/cvsroot/slime/contrib
In directory tiger.common-lisp.net:/tmp/cvs-serv17495/contrib

Modified Files:
	ChangeLog slime-repl.el 
Log Message:
* swank.lisp (open-dedicated-output-stream): Open a stream with
the right coding system.
Change (:open-dedicated-output-stream port) message to
(:open-dedicated-output-stream port coding-system), because Emacs
can no longer determine the coding system based on the main
network streams since they are binary now.

* contrib/slime-repl.el (slime-open-stream-to-lisp): Set the process coding system
to the right coding system.


--- /project/slime/cvsroot/slime/contrib/ChangeLog	2011/11/12 14:43:02	1.505
+++ /project/slime/cvsroot/slime/contrib/ChangeLog	2011/11/16 10:01:19	1.506
@@ -1,3 +1,8 @@
+2011-11-16  Stas Boukarev  <stassats at gmail.com>
+
+	* slime-repl.el (slime-open-stream-to-lisp): Set the process coding system
+	to the right coding system.
+
 2011-11-12  Nikodemus Siivola  <nikodemus at random-state.net>
 
 	Fix DEFMETHOD indentation when the name is a SETF-name, and qualifiers
--- /project/slime/cvsroot/slime/contrib/slime-repl.el	2011/10/07 12:50:20	1.57
+++ /project/slime/cvsroot/slime/contrib/slime-repl.el	2011/11/16 10:01:19	1.58
@@ -180,15 +180,14 @@
 
 (defvar slime-open-stream-hooks)
 
-(defun slime-open-stream-to-lisp (port)
+(defun slime-open-stream-to-lisp (port coding-system)
   (let ((stream (open-network-stream "*lisp-output-stream*" 
                                      (slime-with-connection-buffer ()
                                        (current-buffer))
 				     slime-lisp-host port)))
     (slime-set-query-on-exit-flag stream)
     (set-process-filter stream 'slime-output-filter)
-    (let ((pcs (process-coding-system (slime-current-connection))))
-      (set-process-coding-system stream (car pcs) (cdr pcs)))
+    (set-process-coding-system stream coding-system coding-system)
     (when-let (secret (slime-secret))
       (slime-net-send secret stream))
     (run-hook-with-args 'slime-open-stream-hooks stream)
@@ -1678,8 +1677,8 @@
     ((:read-aborted thread tag)
      (slime-repl-abort-read thread tag)
      t)
-    ((:open-dedicated-output-stream port)
-     (slime-open-stream-to-lisp port)
+    ((:open-dedicated-output-stream port coding-system)
+     (slime-open-stream-to-lisp port coding-system)
      t)
     ((:new-package package prompt-string)
      (setf (slime-lisp-package) package)