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*))