[slime-cvs] CVS update: slime/swank-clisp.lisp slime/swank-sbcl.lisp

[Helmut Eller]

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

Modified Files:
	swank-clisp.lisp swank-sbcl.lisp 
Log Message:
Add EUC-JP as coding system.  This patch eliminates the requirement of
Mule-UCS to use Japanese characters.  (Nice for pre-22 Emacs
users.)  Patch from NIIMI Satoshi.

Date: Tue Sep 13 00:58:17 2005
Author: heller

Index: slime/swank-clisp.lisp
diff -u slime/swank-clisp.lisp:1.54 slime/swank-clisp.lisp:1.55
--- slime/swank-clisp.lisp:1.54	Mon Aug 22 06:30:30 2005
+++ slime/swank-clisp.lisp	Tue Sep 13 00:58:17 2005
@@ -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: slime/swank-sbcl.lisp
diff -u slime/swank-sbcl.lisp:1.143 slime/swank-sbcl.lisp:1.144
--- slime/swank-sbcl.lisp:1.143	Mon Aug 29 13:23:55 2005
+++ slime/swank-sbcl.lisp	Tue Sep 13 00:58:17 2005
@@ -122,8 +122,8 @@
 (defun find-external-format (coding-system)
   (ecase coding-system
     (:iso-latin-1-unix :iso-8859-1)
-    #+sb-unicode
-    (:utf-8-unix :utf-8)))
+    (:utf-8-unix :utf-8)
+    (:euc-jp-unix :euc-jp)))
 
 (defun make-socket-io-stream (socket external-format)
   (let ((ef (find-external-format external-format)))