X-Git-Url: http://git.kpe.io/?p=cl-modlisp.git;a=blobdiff_plain;f=base.lisp;h=59c6f05fafc47b2a09ecb0c6cd2ffccf3765b8ea;hp=b50a088867a8f6865923fdf69839e98fab86364a;hb=af822a09967eb5334753e5c1207702bf63198313;hpb=5d2bcfdcac799dc94da51d29953cbe713b99de16

diff --git a/base.lisp b/base.lisp
index b50a088..59c6f05 100644
--- a/base.lisp
+++ b/base.lisp
@@ -7,22 +7,26 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Dec 2002
 ;;;;
-;;;; $Id: base.lisp,v 1.10 2003/07/10 18:58:29 kevin Exp $
+;;;; $Id: base.lisp,v 1.11 2003/07/11 02:38:00 kevin Exp $
 ;;;; *************************************************************************
 
 (in-package #:modlisp)
 
 (defun modlisp-start (&key (port +default-modlisp-port+)
-			   (processor 'demo-modlisp-command-processor)
-			   (processor-args nil)
-			   (catch-errors t))
+		      (processor 'demo-modlisp-command-processor)
+		      (processor-args nil)
+		      (catch-errors t)
+		      timeout
+		      number-fixed-workers)
   (let ((listener (make-instance 'listener :port port
 				 :base-name "modlisp"			 
 				 :function 'modlisp-command-issuer
 				 :function-args (cons processor processor-args)
 				 :format :text
 				 :wait nil
-				 :catch-errors catch-errors)))
+				 :catch-errors catch-errors
+				 :timeout timeout
+				 :number-fixed-workers number-fixed-workers)))
     (init/listener listener :start)))
 
 
@@ -43,7 +47,7 @@
 	   (do ((command (read-modlisp-command) (read-modlisp-command)))
 	       ((null command))
 	     (apply processor command args)
-	     (force-output *modlisp-socket*)
+	     (finish-output *modlisp-socket*)
 	     (incf *number-worker-requests*)
 	     (incf *number-server-requests*)
 	     (when *close-modlisp-socket*