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

[Helmut Eller]

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

Modified Files:
	swank.lisp 
Log Message:
(create-swank-server): Take announce-fn as optional argument.
Date: Tue Jan 20 18:41:31 2004
Author: heller

Index: slime/swank.lisp
diff -u slime/swank.lisp:1.104 slime/swank.lisp:1.105
--- slime/swank.lisp:1.104	Mon Jan 19 15:12:28 2004
+++ slime/swank.lisp	Tue Jan 20 18:41:31 2004
@@ -183,8 +183,9 @@
                 *swank-in-background*))
                      
 (defun create-swank-server (&optional (port 4005) 
-                            (background *swank-in-background*))
-  (setup-server port #'simple-announce-function background))
+                            (background *swank-in-background*)
+                            (announce-fn #'simple-announce-function))
+  (setup-server port announce-fn background))
 
 (defun setup-server (port announce-fn background)
   (setq *write-lock* (make-lock :name "Swank write lock"))