(defmacro render-page (page)
  `(format nil
           (with-html-string
             (:doctype
              (:html
               (:head
                ,@(access page :head))
               (:body
                ,@(access page :body)))))))