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

[Helmut Eller]

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

Modified Files:
	swank-abcl.lisp 
Log Message:
(accept-connection): Accept :external-format as argument.
Date: Fri Nov 19 20:04:52 2004
Author: heller

Index: slime/swank-abcl.lisp
diff -u slime/swank-abcl.lisp:1.21 slime/swank-abcl.lisp:1.22
--- slime/swank-abcl.lisp:1.21	Tue Nov 16 00:08:44 2004
+++ slime/swank-abcl.lisp	Fri Nov 19 20:04:51 2004
@@ -109,8 +109,8 @@
 (defimplementation close-socket (socket)
   (ext:server-socket-close socket))
 
-
-(defimplementation accept-connection (socket)
+(defimplementation accept-connection (socket &key external-format)
+  (assert (eq external-format :iso-latin-1-unix))
   (ext:get-socket-stream (ext:socket-accept socket)))
 
 ;;;; Unix signals