[Portableaserve-discuss] process-yield thingie.

[Wojciech S. <wo...@ne...>]

hey,

one place in which process-yield should be is line 1295 in publish.cl:

                          (with-http-body (req ent)
                            (loop
                              (if* (<= size 0) then (return))
                              (let ((got (read-sequence buffer
                                                        p :end
                                                        (min size 1024))))
                                (if* (<= got 0) then (return))
                                (write-sequence buffer 
(request-reply-stream req)
                                                :end got)
                                (decf size got)))))))

inside the above code.  we should also check whether the target stream 
is ready to accept data (i.e. the sendqueue isn't full), and then we 
will have code that should work under all conditions.. i hope :)

if i make a patch, where should i mail it?  or should i not make patches?

greetings,
Wojtek

-- 
Wojciech Sobczuk
NEMO Labs
http://www.nemo.pl/