[slime-cvs] CVS slime

[CVS User heller]

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

Modified Files:
	ChangeLog swank-cmucl.lisp 
Log Message:
* swank-cmucl.lisp (make-socket-io-stream): Create a character
stream if external-format is non-nil.

--- /project/slime/cvsroot/slime/ChangeLog	2011/11/27 19:24:33	1.2248
+++ /project/slime/cvsroot/slime/ChangeLog	2011/11/27 19:24:53	1.2249
@@ -1,5 +1,9 @@
 2011-11-27  Helmut Eller  <heller at common-lisp.net>
 
+	* swank-cmucl.lisp (make-socket-io-stream): Create character
+	stream if external-format is non-nil.
+
+2011-11-27  Helmut Eller  <heller at common-lisp.net>
 	* swank.lisp (create-server): Remove coding-system argument.
 	([defstruct] connection): Remove coding-system slot.
 	(connection.external-format, *coding-system*): Deleted.
--- /project/slime/cvsroot/slime/swank-cmucl.lisp	2011/11/21 19:52:25	1.237
+++ /project/slime/cvsroot/slime/swank-cmucl.lisp	2011/11/27 19:24:53	1.238
@@ -137,11 +137,9 @@
     (car (ext:host-entry-addr-list hostent))))
 
 (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")
+  '((:iso-8859-1 "iso-latin-1-unix")
     #+unicode
-    (:utf-8 "utf-8" "utf-8-unix")))
+    (:utf-8 "utf-8-unix")))
 
 (defimplementation find-external-format (coding-system)
   (car (rassoc-if (lambda (x) (member coding-system x :test #'equal))
@@ -149,9 +147,9 @@
 
 (defun make-socket-io-stream (fd buffering external-format)
   "Create a new input/output fd-stream for FD."
-  (cond ((and external-format (ext:featurep :unicode))
+  (cond (external-format
          (sys:make-fd-stream fd :input t :output t 
-                             :element-type '(unsigned-byte 8)
+                             :element-type 'character
                              :buffering buffering
                              :external-format external-format))
         (t