(setf hunchentoot:*message-log-pathname* "/tmp/hunchentoot-message.log")
(setf hunchentoot:*access-log-pathname* "/tmp/hunchentoot-access.log")
(setf *webserver*
(setf hunchentoot:*message-log-pathname* "/tmp/hunchentoot-message.log")
(setf hunchentoot:*access-log-pathname* "/tmp/hunchentoot-access.log")
(setf *webserver*