On Fri, Oct 03, 2008 at 09:32:43PM +1000, konrad Zielinski wrote:
> (de mydata2 ()
>       (httpHead "text/xml; charset=utf-8" 1)
>       (xml? T)
>       (xml '(root NIL "Document 2"))
>       )
> mydata works perfectly. mydata2 fails to roduce any output. Now the

Not sure what the problem is, but two things come to mind:

1. In which context is 'mydata2' called? If the connection is not closed
   for some reason, you could try to call (flush) after sending the

2. If the initial request from the browser was HTTP/1.1, then the global
   '*Http1' is set to '1', causing the picoLisp server to initiate a
   chunked transfer. You could try

      (let (*Http1 0  *Chunked NIL)
         (httpHead "text/xml; charset=utf-8" 1) )

- Alex

Reply via email to