X-Git-Url: http://git.kpe.io/?p=cl-modlisp.git;a=blobdiff_plain;f=base.lisp;fp=base.lisp;h=04cfa381d42324476b2605e930c6082e986076ea;hp=bcf84b5e049c22fb46e56ababd74bf9ab3c4d1e2;hb=4545c194136bd916c6fd240a148804c5cccfec63;hpb=a4aca48b40116aa221beefeb849bd8a9e7f14fcf

diff --git a/base.lisp b/base.lisp
index bcf84b5..04cfa38 100644
--- 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)