Servir des pages Web dynamiques à l'aide de Hunchentoot/html-template/Lisp

Question

Le code suivant utilisant Hunchentoot et html-template me permettait de servir des pages Web dynamiques jusqu'à récemment lorsque je mettais à niveau Hunchentoot vers la dernière version. Quelqu'un peut-il s'il vous plaît suggérer où je me suis trompé avec le code ci-dessous? Je suppose que le problème est dans la définition de la macro?

(defmacro define-url-fn ((name) &body body) 
    `(progn 
    (defun ,name() 
     ,@body) 
    (push (create-prefix-dispatcher ,(format nil "/~(~a~).html" name) ',name) *dispatch-table*))) 

(define-url-fn (sign-up) 
    (with-output-to-string (stream) 
    (let* ((values (list :username-error-msg *register-error*))) 
     (fill-and-print-template #p"/ELEPHUND/INTERFACE/sign-up.tmpl" values :stream stream)))) 

Answer 1

J'ai également eu quelques problèmes avec Hunchentoot après la mise à niveau vers la version 1.2.0. Si vous instanciez un objet d'accepteur de classe, comme je l'étais, vous devrez peut-être le changer pour utiliser la classe easy-acceptor à la place. Vous pouvez continuer à utiliser create-prefix-dispatcher comme précédemment.