From af822a09967eb5334753e5c1207702bf63198313 Mon Sep 17 00:00:00 2001
From: "Kevin M. Rosenberg" <kevin@rosenberg.net>
Date: Fri, 11 Jul 2003 02:38:00 +0000
Subject: [PATCH] r5277: *** empty log message ***

---
 base.lisp  | 16 ++++++++++------
 utils.lisp |  4 ++--
 2 files changed, 12 insertions(+), 8 deletions(-)

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*
diff --git a/utils.lisp b/utils.lisp
index fe10081..387fa73 100644
--- a/utils.lisp
+++ b/utils.lisp
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Dec 2002
 ;;;;
-;;;; $Id: utils.lisp,v 1.5 2003/07/10 18:58:29 kevin Exp $
+;;;; $Id: utils.lisp,v 1.6 2003/07/11 02:38:00 kevin Exp $
 ;;;; *************************************************************************
 
 (in-package #:modlisp)
@@ -49,7 +49,7 @@
 	 (write-string "end" *modlisp-socket*)
 	 (write-char #\NewLine *modlisp-socket*)
 	 (write-string ,outstr *modlisp-socket*)
-	 (force-output *modlisp-socket*)
+	 (finish-output *modlisp-socket*)
 	 (setq *close-modlisp-socket* nil))
 	(t
 	 (setq *close-modlisp-socket* t)
-- 
2.34.1