Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

* 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.
  • Loading branch information...
commit d2530653f90e292266906fe1a541c6b67016d526 1 parent d9c9df5
@trittweiler trittweiler authored
Showing with 16 additions and 0 deletions.
  1. +6 −0 ChangeLog
  2. +10 −0 swank-ecl.lisp
View
6 ChangeLog
@@ -1,5 +1,11 @@
2009-07-06 Tobias C. Rittweiler <tcr@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@freebits.de>
+
* swank.lisp (make-repl-input-stream): Make sure to redirect
output from slime requests to the REPL buffer for
communication-style=NIL.
View
10 swank-ecl.lisp
@@ -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
Please sign in to comment.
Something went wrong with that request. Please try again.