Update of /project/slime/cvsroot/slime
In directory cl-net:/tmp/cvs-serv16012
Modified Files:
ChangeLog swank-abcl.lisp
Log Message:
* swank-abcl.lisp: Really commit Vodonosov's patch from
2009-03-09.
--- /project/slime/cvsroot/slime/ChangeLog 2009/04/29 22:29:18 1.1733
+++ /project/slime/cvsroot/slime/ChangeLog 2009/04/30 12:50:25 1.1734
@@ -1,5 +1,10 @@
2009-04-30 Tobias C. Rittweiler <tcr at freebits.de>
+ * swank-abcl.lisp: Really commit Vodonosov's patch from
+ 2009-03-09.
+
+2009-04-30 Tobias C. Rittweiler <tcr at freebits.de>
+
* swank-backend.lisp ([default] declaration-arglist): Add
arglist of DECLARATION declaration.
--- /project/slime/cvsroot/slime/swank-abcl.lisp 2009/01/10 12:25:16 1.63
+++ /project/slime/cvsroot/slime/swank-abcl.lisp 2009/04/30 12:50:25 1.64
@@ -132,8 +132,26 @@
(defimplementation accept-connection (socket
&key external-format buffering timeout)
- (declare (ignore buffering timeout external-format))
- (ext:get-socket-stream (ext:socket-accept socket)))
+ (declare (ignore buffering timeout))
+ (ext:get-socket-stream (ext:socket-accept socket)
+ :external-format external-format))
+
+;;;; External formats
+
+(defvar *external-format-to-coding-system*
+ '((:iso-8859-1 "latin-1" "iso-latin-1" "iso-8859-1")
+ ((:iso-8859-1 :eol-style :lf) "latin-1-unix" "iso-latin-1-unix" "iso-8859-1-unix")
+ (:utf-8 "utf-8")
+ ((:utf-8 :eol-style :lf) "utf-8-unix")
+ (:euc-jp "euc-jp")
+ ((:euc-jp :eol-style :lf) "euc-jp-unix")
+ (:us-ascii "us-ascii")
+ ((:us-ascii :eol-style :lf) "us-ascii-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