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

[Helmut Eller]

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

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

Index: slime/swank-lispworks.lisp
diff -u slime/swank-lispworks.lisp:1.60 slime/swank-lispworks.lisp:1.61
--- slime/swank-lispworks.lisp:1.60	Tue Nov 16 00:05:34 2004
+++ slime/swank-lispworks.lisp	Fri Nov 19 20:06:04 2004
@@ -108,8 +108,9 @@
 (defimplementation close-socket (socket)
   (comm::close-socket (socket-fd socket)))
 
-(defimplementation accept-connection (socket)
-  (let ((fd (comm::get-fd-from-socket socket)))
+(defimplementation accept-connection (socket &key external-format)
+  (assert (eq external-format :iso-latin-1-unix))
+  (let* ((fd (comm::get-fd-from-socket socket)))
     (assert (/= fd -1))
     (make-instance 'comm:socket-stream :socket fd :direction :io 
                    :element-type 'base-char)))