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

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)