[slime-cvs] CVS update: slime/swank-abcl.lisp slime/swank-sbcl.lisp slime/swank-cmucl.lisp slime/swank-allegro.lisp slime/swank-clisp.lisp slime/swank-openmcl.lisp

[Helmut Eller]

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

Modified Files:
	swank-abcl.lisp swank-sbcl.lisp swank-cmucl.lisp 
	swank-allegro.lisp swank-clisp.lisp swank-openmcl.lisp 
Log Message:
(accept-connection): The :external-format argument defaults now to 
:iso-latin-1-unix.

Date: Mon Nov 29 18:35:03 2004
Author: heller

Index: slime/swank-abcl.lisp
diff -u slime/swank-abcl.lisp:1.22 slime/swank-abcl.lisp:1.23
--- slime/swank-abcl.lisp:1.22	Fri Nov 19 20:04:51 2004
+++ slime/swank-abcl.lisp	Mon Nov 29 18:35:03 2004
@@ -109,7 +109,8 @@
 (defimplementation close-socket (socket)
   (ext:server-socket-close socket))
 
-(defimplementation accept-connection (socket &key external-format)
+(defimplementation accept-connection (socket 
+                                      &key (external-format :iso-latin-1-unix))
   (assert (eq external-format :iso-latin-1-unix))
   (ext:get-socket-stream (ext:socket-accept socket)))
 


Index: slime/swank-sbcl.lisp
diff -u slime/swank-sbcl.lisp:1.114 slime/swank-sbcl.lisp:1.115
--- slime/swank-sbcl.lisp:1.114	Thu Nov 25 20:05:46 2004
+++ slime/swank-sbcl.lisp	Mon Nov 29 18:35:03 2004
@@ -69,7 +69,8 @@
   (sb-sys:invalidate-descriptor (socket-fd socket))
   (sb-bsd-sockets:socket-close socket))
 
-(defimplementation accept-connection (socket &key external-format)
+(defimplementation accept-connection (socket 
+                                      &key (external-format :iso-latin-1-unix))
   (make-socket-io-stream (accept socket) external-format))
 
 (defvar *sigio-handlers* '()


Index: slime/swank-cmucl.lisp
diff -u slime/swank-cmucl.lisp:1.131 slime/swank-cmucl.lisp:1.132
--- slime/swank-cmucl.lisp:1.131	Fri Nov 26 08:06:31 2004
+++ slime/swank-cmucl.lisp	Mon Nov 29 18:35:03 2004
@@ -89,7 +89,8 @@
   (sys:invalidate-descriptor socket)
   (ext:close-socket (socket-fd socket)))
 
-(defimplementation accept-connection (socket &key external-format)
+(defimplementation accept-connection (socket 
+                                      &key (external-format :iso-latin-1-unix))
   (assert (eq external-format ':iso-latin-1-unix))
   (make-socket-io-stream (ext:accept-tcp-connection socket)))
 


Index: slime/swank-allegro.lisp
diff -u slime/swank-allegro.lisp:1.64 slime/swank-allegro.lisp:1.65
--- slime/swank-allegro.lisp:1.64	Wed Nov 24 20:49:18 2004
+++ slime/swank-allegro.lisp	Mon Nov 29 18:35:03 2004
@@ -51,7 +51,8 @@
 (defimplementation close-socket (socket)
   (close socket))
 
-(defimplementation accept-connection (socket &key external-format)
+(defimplementation accept-connection (socket 
+                                      &key (external-format :iso-latin-1-unix))
   (let ((s (socket:accept-connection socket :wait t)))
     (set-external-format s external-format)
     s))


Index: slime/swank-clisp.lisp
diff -u slime/swank-clisp.lisp:1.42 slime/swank-clisp.lisp:1.43
--- slime/swank-clisp.lisp:1.42	Fri Nov 19 20:05:49 2004
+++ slime/swank-clisp.lisp	Mon Nov 29 18:35:03 2004
@@ -158,7 +158,8 @@
     (:utf-8-unix (ext:make-encoding :charset 'charset:utf-8
 				    :line-terminator :unix))))
   
-(defimplementation accept-connection (socket &key external-format)
+(defimplementation accept-connection (socket
+				      &key (external-format :iso-latin-1-unix))
   (socket:socket-accept socket
 			:buffered nil ;; XXX should be t
 			:element-type 'character


Index: slime/swank-openmcl.lisp
diff -u slime/swank-openmcl.lisp:1.91 slime/swank-openmcl.lisp:1.92
--- slime/swank-openmcl.lisp:1.91	Sat Nov 20 13:06:32 2004
+++ slime/swank-openmcl.lisp	Mon Nov 29 18:35:03 2004
@@ -136,7 +136,8 @@
 (defimplementation close-socket (socket)
   (close socket))
 
-(defimplementation accept-connection (socket &key external-format)
+(defimplementation accept-connection (socket 
+                                      &key (external-format :iso-latin-1-unix))
   (assert (eq external-format :iso-latin-1-unix))
   (ccl:accept-connection socket :wait t))