mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2025-12-28 04:41:48 -08:00
Code Issues Projects Releases Wiki Activity

Close long polling first connection sooner

Browse source
This commit is contained in:
David Botton 2022-05-23 21:47:05 -04:00
parent 617c86c71b
commit b85c539cca
1 changed files with 6 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

11
source/clog-connection.lisp
View file

@ -424,11 +424,12 @@ brower."
(format t "Condition caught connection ~A - ~A.~&" id c)
(values 0 c))))
(when *long-poll-first*
(handler-case
(finish-output stream)
(t (c)
(format t "Condition caught finish-output ~A - ~A.~&" id c)
(values 0 c))))
(setf *long-poll-first* nil)
(handler-case
(finish-output stream)
(t (c)
(format t "Condition caught finish-output ~A - ~A.~&" id c)
(values 0 c))))
(format t "HTML connection closed - ~A~%" id)))))
(t
(lambda (responder)