r5258: *** empty log message ***

[cl-modlisp.git] / base.lisp

diff --git a/base.lisp b/base.lisp
index bcf84b5e049c22fb46e56ababd74bf9ab3c4d1e2..04cfa381d42324476b2605e930c6082e986076ea 100644 (file)
--- a/base.lisp
+++ b/base.lisp
@@ -7,20 +7,22 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Dec 2002
 ;;;;
-;;;; $Id: base.lisp,v 1.6 2003/07/08 06:40:00 kevin Exp $
+;;;; $Id: base.lisp,v 1.7 2003/07/08 14:00:53 kevin Exp $
 ;;;; *************************************************************************
 
 (in-package #:modlisp)
 
 (defun modlisp-start (&key (port +default-apache-port+)
                           (processor 'demo-apache-command-processor)
-                          (processor-args nil))
+                          (processor-args nil)
+                          (catch-errors t))
   (let ((listener (make-instance 'listener :port port
                                 :name (next-server-name)
                                 :function 'apache-command-issuer
                                 :function-args (cons processor processor-args)
                                 :format :text
-                                :wait nil)))
+                                :wait nil
+                                :catch-errors catch-errors)))
     (handler-case
        (make-socket-server listener)
       (error (e)