[bknr-cvs] hans changed trunk/projects/hello-web/src/init.lisp

[BKNR Commits]

Revision: 4436
Author: hans
URL: http://bknr.net/trac/changeset/4436

port to hunchentoot-1.0
U   trunk/projects/hello-web/src/init.lisp

Modified: trunk/projects/hello-web/src/init.lisp
===================================================================
--- trunk/projects/hello-web/src/init.lisp	2009-07-06 12:02:30 UTC (rev 4435)
+++ trunk/projects/hello-web/src/init.lisp	2009-07-11 22:06:37 UTC (rev 4436)
@@ -1,6 +1,6 @@
 (in-package :hello-web)
 
-(defun startup (&key debug (port *webserver-port*))
+(defun startup (&key (port *webserver-port*))
   (close-store)
   ;; XXX hack hack hack
   (mapcar #'cl-gd::load-foreign-library
@@ -22,7 +22,7 @@
     (make-rss-channel "default" "BKNR Hello Web" "default RSS channel of the BKNR hello web site" *website-url*))
   
   (publish-hello-web)
-  (setq hunchentoot:*catch-errors-p* (not debug))
   (when *webserver*
-    (hunchentoot:stop-server *webserver*))
-  (setq *webserver* (hunchentoot:start-server :port port)))
+    (hunchentoot:stop *webserver*))
+  (setq *webserver* (make-instance 'hunchentoot:acceptor :port port))
+  (hunchentoot:start *webserver*))