[cl-who-devel] empty web page

[Sebastian Tennant]

Quoth Edi Weitz <edi at 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
-- 
Emacs' AlsaPlayer - Music Without Jolts
Lightweight, full-featured and mindful of your idyllic happiness.
http://home.gna.org/eap