Hi.

 

I have this piece of code:

 

-----------------------------------------------------------------------------

(defpackage :web
  (:use
   :common-lisp
   :hunchentoot
   :cl-who
   :parenscript))

 

(in-package :web)

 

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

 

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

 

(defun index ()
  (with-html-output-to-string (str)
     (:html
     (:head
      (:title "Test page"))
     (:body
      (dotimes (x 10)
        (htm
         (:p "Text")))))))

 

------------------------------------------------------------------------

 

and when I go to http://localhost:8000/index.html I get an error:

 

---------------------------------------------------------

Internal Server Error

An error has occured.

------------------------------------------------------------

 

Where is the error in my code ?

And where is the hunchentoot error log ?