如何启动Hunchentoot？

Question

如何在项目中启动Hunchentoot？我看了一下Edi Weitz的指南，一切都很顺利，直到安装完成。列出的教程要么不完整，要么略过了服务器的实际使用情况。

我有我的asdf文件，用quicklisp安装了依赖项，并设置了调度表。如何让Hunchentoot使用这些东西？

Answer 1

为了更新，我对Svante的答案进行了改进：

(defun start-server ()
  (stop-server)
  (start (setf *acceptor*
               (make-instance 'easy-acceptor
                              :port 4242))))

(defun stop-server ()
  (when *acceptor*
    (when started-p *acceptor*
     (stop *acceptor*))))

在启动服务器之前，接受者为nil。服务器启动后(即使它随后被停止)，它不再是nil。started-p测试检查初始化的easy-acceptor是否已启动。如果您试图停止一个已经停止的接受器，您会收到一个错误。

Answer 2

您可以在acceptor的实例上调用start。

如果您使用hunchentoot附带的基本easy-handler机制，那么它将是一个easy-acceptor。

你需要一种机制来启动和停止你的服务器。它可能看起来像这样：

(defvar *acceptor* nil)

(defun start-server ()
  (stop-server)
  (start (setf *acceptor*
               (make-instance 'easy-acceptor
                              :port 4242))))

(defun stop-server ()
  (when *acceptor*
    (stop *acceptor*)))

Answer 3

(start (defparameter hunchentoot-listener
         (make-instance 'easy-acceptor
                        :port 4242
                        :document-root #p"/path/to/your/html/")))

将在端口4242 (http://localhost:4242/)上获得一个正在运行的web服务器