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

catch errors on disconects

Browse source
This commit is contained in:
David Botton 2022-05-16 12:52:01 -04:00
parent 34bc4577ee
commit c3e7223077
2 changed files with 6 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

6
source/clog-connection.lisp
View file

@ -424,7 +424,11 @@ brower."
(format t "Condition caught connection ~A - ~A.~&" id c)
(values 0 c))))
(when *long-poll-first*
(finish-output stream))
(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)