[cl-who-devel] empty web page

[a]

Hi.

When I try to open a web page generated by cl-who I get an empty web page:

------------------------------------------------------------
(start (make-instance 'acceptor :port 8000))

(push (create-prefix-dispatcher "/index.html" 'index) *dispatch-table*)

(defun index ()
  (with-html-output (*standard-output* nil :indent t)
    (:html
     (:head
      (:title "Test page"))
     (:body
      (dotimes (x 10)
        (:htm
         (:p "Text"))))))
-----------------------------------------------------------

and page on http://localhost:8000/index.html is empty.
The source of the page is just:
----------------
  </body>
</html>
--------------

Where is the problem ?
If I remove dynamic code "(dotimes (x 10) ..."
then it renders the page correctly.

Thanks
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://mailman.common-lisp.net/pipermail/cl-who-devel/attachments/20100531/ef15ab1d/attachment.html>