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

browser-gc no longer on ping by default, manual do after menus and trees

Browse source
This commit is contained in:
David Botton 2024-06-10 21:40:06 -04:00
parent 9d7d58c3b8
commit dd1ed6580c
6 changed files with 23 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

8
source/clog-connection-websockets.lisp
View file

@ -97,11 +97,13 @@
connection))
(websocket-driver:close-connection connection)) ; don't send the reason for better security
((equal (first ml) "0")
;; a ping - run browser gc
(execute connection-id
;; a ping
(when *browser-gc-on-ping*
;; run browser gc
(execute connection-id
"Object.entries(clog).forEach(function(c,i,a)
{if ((c[1] !== null) && (typeof c[1] === 'object') && (c[1].nodeType===1))
{if (c[1].isConnected===false) {delete clog[c[0]]}}})")
{if (c[1].isConnected===false) {delete clog[c[0]]}}})"))
(when *verbose-output*
(format t "Connection ~A Ping~%" connection-id)))
((equal (first ml) "E")