Christoph,
thank you for the report, what you see is actually a bug. I was able to pinpoint some possible causes for the problem, but have not yet fixed the issue. I will let the list know once it is fixed.
-Hans
On Wed, Jan 28, 2009 at 12:37, css css@swissjabber.ch wrote:
Hello.
I havent used hunchentoot for a while now, so I checked out the svn-repository on http://bknr.net/svn/ediware/ (I hope this is the correct one) and Installed the packages. The server seems to work, but unfortunately, the following code seems not to do:
(defun http-seite () (with-html-output (out (send-headers)) (:html (:head (:title "Hallo-Welt-Seite")) (:body (:h1 "Hallo Welt"))))) (setf *dispatch-table* (list (create-prefix-dispatcher "/hallo-welt" 'http-seite))) (defvar *server* (start-server :port 8000))
When calling http://localhost:8000/hallo-welt, I only get an empty page. For any other URL, i get a "not found" error.
When defining the function differently, returning a string, say
(defun http-seite () (with-html-output-to-string (bla) (:html (:head (:title "Hallo-Welt-Seite")) (:body (:h1 "Hallo Welt")))))
the whole thing works. Also the more trivial functions
(defun http-2 () (write-char #\A (send-headers)))
and
(defun http-2 () (write-char #\A (send-headers)) (finish-output (send-headers)))
do not produce any output. I read the included documentation, but it seems like (send-headers) hasnt changed its meening according to it, and also the code doesnt say anything else.
Any Ideas what I could be doing wrong?
Greetings Christoph
tbnl-devel site list tbnl-devel@common-lisp.net http://common-lisp.net/mailman/listinfo/tbnl-devel