r5277: *** empty log message ***

diff --git a/base.lisp b/base.lisp
index b50a088867a8f6865923fdf69839e98fab86364a..59c6f05fafc47b2a09ecb0c6cd2ffccf3765b8ea 100644 (file)
--- 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 fe10081cf9693eb40eb2e2b91f2dbe622067e655..387fa7396c706497a05308637ed4c40eaec900bc 100644 (file)
--- 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)