Common Lisp を学んでおり、hunchentoot を使用して Web アプリを開発しようとしています。
以下のコードでは、レトロゲーム関数定義で定義されたページをブラウザーで表示することができません。この関数によって生成されることを期待しています。
私は次のように住所を書きます:
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*)
最初の 2 回の読み込みは成功しました。
私は何が欠けていますか?