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

[Helmut Eller]

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

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

Index: slime/swank-openmcl.lisp
diff -u slime/swank-openmcl.lisp:1.89 slime/swank-openmcl.lisp:1.90
--- slime/swank-openmcl.lisp:1.89	Wed Nov 17 16:17:26 2004
+++ slime/swank-openmcl.lisp	Fri Nov 19 20:06:21 2004
@@ -136,7 +136,8 @@
 (defimplementation close-socket (socket)
   (close socket))
 
-(defimplementation accept-connection (socket)
+(defimplementation accept-connection (socket &key external-format)
+  (assert (eq external-format :iso-latin-1-unix))
   (ccl:accept-connection socket :wait t))
 
 (defimplementation emacs-connected ()