(mb:load "eow")
+(setf hunchentoot:*message-log-pathname* "/tmp/hunchentoot-message.log")
+(setf hunchentoot:*access-log-pathname* "/tmp/hunchentoot-access.log")
(setf *webserver*
(hunchentoot:start (make-instance 'hunchentoot:acceptor :port 4242)))
;; (hunchentoot:stop-server *webserver*)