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

[Helmut Eller]

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

Modified Files:
	swank-openmcl.lisp 
Log Message:
(swank-accept-connection): Accept multiple connections.  Patch by
Marco Baringer.

Date: Fri Dec 12 17:47:24 2003
Author: heller

Index: slime/swank-openmcl.lisp
diff -u slime/swank-openmcl.lisp:1.31 slime/swank-openmcl.lisp:1.32
--- slime/swank-openmcl.lisp:1.31	Fri Dec 12 07:38:23 2003
+++ slime/swank-openmcl.lisp	Fri Dec 12 17:47:24 2003
@@ -13,7 +13,7 @@
 ;;; The LLGPL is also available online at
 ;;; http://opensource.franz.com/preamble.html
 ;;;
-;;;   $Id: swank-openmcl.lisp,v 1.31 2003/12/12 12:38:23 heller Exp $
+;;;   $Id: swank-openmcl.lisp,v 1.32 2003/12/12 22:47:24 heller Exp $
 ;;;
 
 ;;;
@@ -87,7 +87,7 @@
                               server-socket)))
 
 (defun swank-accept-connection (server-socket)
-  (request-loop (ccl:accept-connection server-socket :wait t)))
+  (loop (request-loop (ccl:accept-connection server-socket :wait t))))
 
 (defun request-loop (*emacs-io*)
   "Thread function for a single Swank connection.  Processes requests
@@ -434,6 +434,8 @@
                          (t 
                           (find-source-locations caller (to-string caller))))))
              callers))))
+
+(defslimefun-unimplemented list-callees (symbol-name))
 
 (defslimefun-unimplemented who-calls (symbol-name))
 (defslimefun-unimplemented who-references (symbol-name package-name))