当我使用lisp构建我的网站时出现问题

时间:2014-12-02 13:35:36

标签: html web lisp hunchentoot

当我编写网页时,我选择使用常见的lisp来构建它。但我得到的只是一个网页的源代码。 但是当我将网页复制到我的emacs并重新打开它时,它可以工作。我不知道出了什么问题。

我在lisp中的代码是

(defmacro standard-page ((&key title) &body body)

(with-html-output-to-string(*standard-output* nil :prologue t :indent t)

 (:html :xmlns "http://www.w3.org/1999/xhtml"
    :xml\:lang "en"
    :lang "en"
    (:head 
     (:meta :http-equiv "Content-Type" :content "text/html;charset=utf-8")
     (:title ,title)
     (:link :type "text/css" :rel "stylesheet" :href "/site.css"))
    (:body
     ,@body))))

(hunchentoot:define-easy-handler (hello :uri "/hello") (name) 
  (setf (hunchentoot:content-type*) "text/plain")
  (standard-page (:title "something new")
          (:h1 "can i do this?")))

1 个答案:

答案 0 :(得分:2)

这看起来不对:

  (setf (hunchentoot:content-type*) "text/plain")

我认为应该是text/html而不是text/plain