lisp - 使用 hunchentoot 我无法生成网页

Question

我正在学习 common lisp 并尝试使用 hunchentoot 开发网络应用。

使用下面的代码，我无法在浏览器上看到 retro-games 函数定义中定义的页面。我希望它由这个函数生成。

我把地址写成:

http://localhost:8080/retro-games.htm.

浏览器上显示的是Resource/retro-games.htm not found，默认页面的消息和lisp标志，我可以显示。我可以显示 hunchentoot 的默认页面。

(ql:quickload "hunchentoot")
(ql:quickload "cl-who")

(defpackage :retro-games
  (:use :cl :cl-who :hunchentoot))
(in-package :retro-games);i evaluate this from toplevel otherwise it does not change to this package.

(start (make-instance 'hunchentoot:acceptor :port 8080))

(defun retro-games ()
    (with-html-output (*standard-output* nil :prologue t)
      (:html (:body "Not much there"))
      (values)))

(push (create-prefix-dispatcher "/retro-games.htm" 'retro-games) *dispatch-table*)

一开始的两次加载成功

我错过了什么？

Answer 1

Hunchentoot 的 API 自编写以来发生了一些变化。该文章假定的 acceptor 行为现在可以在 easy-acceptor 中找到。 Acceptor 现在是一个更通用的类，如果您愿意，可以将其用于您自己的调度机制。

因此，使用 (make-instance 'hunchentoot:easy-acceptor #|... |#)，它应该可以工作。