Index: slime.el
===================================================================
RCS file: /project/slime/cvsroot/slime/slime.el,v
retrieving revision 1.539
diff -u -r1.539 slime.el
--- slime.el	9 Sep 2005 17:10:18 -0000	1.539
+++ slime.el	10 Sep 2005 03:30:52 -0000
@@ -1552,7 +1552,8 @@
     (iso-8859-1-unix  nil :iso-latin-1-unix)
     (binary           nil :iso-latin-1-unix)
     (utf-8-unix       t   :utf-8-unix)
-    (emacs-mule-unix  t   :emacs-mule-unix))
+    (emacs-mule-unix  t   :emacs-mule-unix)
+    (euc-jp-unix      t   :euc-jp-unix))
   "A list of valid coding systems. 
 Each element is of the form: (NAME MULTIBYTEP CL-NAME)")
 
Index: swank-clisp.lisp
===================================================================
RCS file: /project/slime/cvsroot/slime/swank-clisp.lisp,v
retrieving revision 1.54
diff -u -r1.54 swank-clisp.lisp
--- swank-clisp.lisp	22 Aug 2005 04:30:30 -0000	1.54
+++ swank-clisp.lisp	10 Sep 2005 03:30:52 -0000
@@ -122,6 +122,8 @@
     (:iso-latin-1-unix (ext:make-encoding :charset 'charset:iso-8859-1
 					  :line-terminator :unix))
     (:utf-8-unix (ext:make-encoding :charset 'charset:utf-8
+				    :line-terminator :unix))
+    (:euc-jp-unix (ext:make-encoding :charset 'charset:euc-jp
 				    :line-terminator :unix))))
   
 (defimplementation accept-connection (socket
Index: swank-sbcl.lisp
===================================================================
RCS file: /project/slime/cvsroot/slime/swank-sbcl.lisp,v
retrieving revision 1.143
diff -u -r1.143 swank-sbcl.lisp
--- swank-sbcl.lisp	29 Aug 2005 11:23:55 -0000	1.143
+++ swank-sbcl.lisp	10 Sep 2005 03:30:52 -0000
@@ -123,7 +123,9 @@
   (ecase coding-system
     (:iso-latin-1-unix :iso-8859-1)
     #+sb-unicode
-    (:utf-8-unix :utf-8)))
+    (:utf-8-unix :utf-8)
+    #+sb-unicode
+    (:euc-jp-unix :euc-jp)))
 
 (defun make-socket-io-stream (socket external-format)
   (let ((ef (find-external-format external-format)))
Index: swank.lisp
===================================================================
RCS file: /project/slime/cvsroot/slime/swank.lisp,v
retrieving revision 1.330
diff -u -r1.330 swank.lisp
--- swank.lisp	5 Sep 2005 13:54:02 -0000	1.330
+++ swank.lisp	10 Sep 2005 03:30:53 -0000
@@ -220,7 +220,8 @@
   ;; The coding system for network streams.
   (external-format *coding-system* :type (member :iso-latin-1-unix 
                                                  :emacs-mule-unix
-                                                 :utf-8-unix)))
+                                                 :utf-8-unix
+                                                 :euc-jp-unix)))
 
 (defun print-connection (conn stream depth)
   (declare (ignore depth))