[slime-cvs] CVS slime/contrib

[CVS User sboukarev]

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

Modified Files:
	ChangeLog slime-repl.el 
Log Message:
* slime-repl.el (slime-open-stream-to-lisp): Convert "utf-8-unix"
to 'utf-8-unix.


--- /project/slime/cvsroot/slime/contrib/ChangeLog	2011/11/19 16:41:33	1.507
+++ /project/slime/cvsroot/slime/contrib/ChangeLog	2011/11/23 00:56:01	1.508
@@ -1,3 +1,8 @@
+2011-11-23  Stas Boukarev  <stassats at gmail.com>
+
+	* slime-repl.el (slime-open-stream-to-lisp): Convert "utf-8-unix"
+	to 'utf-8-unix.
+
 2011-11-19  Nikodemus Siivola  <nikodemus at random-state.net>
 
 	* slime-cl-indent.el ("sbcl"): Add indentation alias for !def-debug-command.
--- /project/slime/cvsroot/slime/contrib/slime-repl.el	2011/11/16 10:01:19	1.58
+++ /project/slime/cvsroot/slime/contrib/slime-repl.el	2011/11/23 00:56:01	1.59
@@ -184,10 +184,13 @@
   (let ((stream (open-network-stream "*lisp-output-stream*" 
                                      (slime-with-connection-buffer ()
                                        (current-buffer))
-				     slime-lisp-host port)))
+				     slime-lisp-host port))
+        (emacs-coding-system (car (find coding-system
+                                        slime-net-valid-coding-systems
+                                        :key #'third))))
     (slime-set-query-on-exit-flag stream)
     (set-process-filter stream 'slime-output-filter)
-    (set-process-coding-system stream coding-system coding-system)
+    (set-process-coding-system stream emacs-coding-system emacs-coding-system)
     (when-let (secret (slime-secret))
       (slime-net-send secret stream))
     (run-hook-with-args 'slime-open-stream-hooks stream)