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

[Luke Gorrie]

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

Modified Files:
	swank-clisp.lisp 
Log Message:
Updated for new network interface but not tested!
Probably slightly broken.

Date: Mon Jan 12 23:23:12 2004
Author: lgorrie

Index: slime/swank-clisp.lisp
diff -u slime/swank-clisp.lisp:1.6 slime/swank-clisp.lisp:1.7
--- slime/swank-clisp.lisp:1.6	Mon Jan 12 01:05:52 2004
+++ slime/swank-clisp.lisp	Mon Jan 12 23:23:12 2004
@@ -25,7 +25,6 @@
   (use-package "GRAY"))
 
 (setq *use-dedicated-output-stream* nil)
-(setq *start-swank-in-background* nil)
 ;(setq *redirect-output* nil)
 
 #+linux
@@ -79,15 +78,13 @@
 
 ;;; TCP Server
 
-(defmethod create-socket-server (init-fn &key announce-fn (port 0)
-					 (accept-background nil)
-					 (handle-background nil)
-					 (loop nil)
-					 (reuse-address nil))
-  (declare (ignore loop reuse-address accept-background handle-background))
+(defmethod accept-socket/stream (&key (port 0) announce-fn)
+  (get-socket-stream port announce-fn))
+
+(defmethod accept-socket/run (&key (port 0) announce-fn init-fn)
   (let* ((slime-stream (get-socket-stream port announce-fn))
 	 (handler-fn (funcall init-fn slime-stream)))
-      (loop (funcall handler-fn))))
+    (loop while t do (funcall handler-fn))))
 
 (defun get-socket-stream (port announce)
   (let ((socket (socket:socket-server port)))