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

[Helmut Eller]

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

Modified Files:
	swank-sbcl.lisp 
Log Message:
(make-socket-io-stream): Add #+sb-unicode.
Date: Sat Nov 20 21:47:25 2004
Author: heller

Index: slime/swank-sbcl.lisp
diff -u slime/swank-sbcl.lisp:1.111 slime/swank-sbcl.lisp:1.112
--- slime/swank-sbcl.lisp:1.111	Sat Nov 20 21:13:54 2004
+++ slime/swank-sbcl.lisp	Sat Nov 20 21:47:25 2004
@@ -122,12 +122,15 @@
 (defun make-socket-io-stream (socket external-format)
   (let ((encoding (ecase external-format
                     (:iso-latin-1-unix :iso-8859-1)
+                    #+sb-unicode
                     (:utf-8-unix :utf-8))))
     (sb-bsd-sockets:socket-make-stream socket
                                        :output t
                                        :input t
                                        :element-type 'character
-                                       :external-format encoding)))
+                                       #+sb-unicode :external-format 
+                                       #+sb-unicode encoding
+                                       )))
 
 (defun accept (socket)
   "Like socket-accept, but retry on EAGAIN."