[slime-cvs] CVS slime

[CVS User trittweiler]

Update of /project/slime/cvsroot/slime
In directory cl-net:/tmp/cvs-serv5781

Modified Files:
	swank-ecl.lisp ChangeLog 
Log Message:
	* swank-ecl.lisp (find-external-format): Copied from
	swank-sbcl.lisp. A lot of backends seem to share the same
	implementation, perhaps some refactoring is needed.


--- /project/slime/cvsroot/slime/swank-ecl.lisp	2009/07/01 03:38:54	1.43
+++ /project/slime/cvsroot/slime/swank-ecl.lisp	2009/07/06 12:32:12	1.44
@@ -72,6 +72,16 @@
 (defimplementation preferred-communication-style ()
   (values nil))
 
+(defvar *external-format-to-coding-system*
+  '((:iso-8859-1
+     "latin-1" "latin-1-unix" "iso-latin-1-unix" 
+     "iso-8859-1" "iso-8859-1-unix")
+    (:utf-8 "utf-8" "utf-8-unix")))
+
+(defimplementation find-external-format (coding-system)
+  (car (rassoc-if (lambda (x) (member coding-system x :test #'equal))
+                  *external-format-to-coding-system*)))
+
 
 ;;;; Unix signals
 
--- /project/slime/cvsroot/slime/ChangeLog	2009/07/06 11:22:47	1.1807
+++ /project/slime/cvsroot/slime/ChangeLog	2009/07/06 12:32:12	1.1808
@@ -1,5 +1,11 @@
 2009-07-06  Tobias C. Rittweiler  <tcr at freebits.de>
 
+	* swank-ecl.lisp (find-external-format): Copied from
+	swank-sbcl.lisp. A lot of backends seem to share the same
+	implementation, perhaps some refactoring is needed.
+
+2009-07-06  Tobias C. Rittweiler  <tcr at freebits.de>
+
 	* swank.lisp (make-repl-input-stream): Make sure to redirect
 	output from slime requests to the REPL buffer for
 	communication-style=NIL.