From 56507c1300a69c5a826e77fc992f4c765b1bf036 Mon Sep 17 00:00:00 2001
From: David Botton <david@botton.com>
Date: Thu, 27 Jun 2024 18:59:12 -0400
Subject: [PATCH] add pong

---
 source/clog-connection-websockets.lisp | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/source/clog-connection-websockets.lisp b/source/clog-connection-websockets.lisp
index 6ecd6fc..497a499 100644
--- a/source/clog-connection-websockets.lisp
+++ b/source/clog-connection-websockets.lisp
@@ -105,7 +105,8 @@
                              {if ((c[1] !== null) && (typeof c[1] === 'object') && (c[1].nodeType===1))
                              {if (c[1].isConnected===false) {$(clog['body']).trigger('gc', c[0])}}})"))
                (when *verbose-output*
-                 (format t "Connection ~A    Ping~%" connection-id)))
+                 (format t "Connection ~A    Ping~%" connection-id)
+                 (execute connection-id "null")))
               ((equal (first ml) "E")
                ;; an event
                (let* ((em (ppcre:split " " (second ml) :limit 2))