Quoth Edi Weitz edi@agharta.de:
A standard Hunchentoot handler must return its output as a string and not send it to *standard-output*.
This should make things a little clearer:
;;; define *http-stream* as a special variable ;;; (so that it can be used anywhere, not just in function 'index') (defvar *http-stream* nil)
(defun reapeat-para (stream body n) (with-html-output (stream) (dotimes (i n) (:htm (:p (str body))))))
(defun index () (with-html-output-to-string (*http-stream* nil :indent t) (:html (:head (:title "The first dissenter")) (:body (repeat-para *http-stream* "Romans go home" 100)))))
Untested, but it should help.
Seb