From 5623d41029f2f5e3a980408942ee4a87fbcdd451 Mon Sep 17 00:00:00 2001 From: Ralph Ronnquist Date: Tue, 18 Apr 2023 13:47:40 +1000 Subject: [PATCH] added debugging support; commented out --- lsp-dbus/lsp-dbus-events.lsp | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/lsp-dbus/lsp-dbus-events.lsp b/lsp-dbus/lsp-dbus-events.lsp index 5770604..634ab07 100644 --- a/lsp-dbus/lsp-dbus-events.lsp +++ b/lsp-dbus/lsp-dbus-events.lsp @@ -64,8 +64,12 @@ )) "main-loop: ")) +(define (human-msg MSG) + (human-bytes (unpack (dup "b" (length MSG)) MSG))) + ;; Send message, then keep reading messages until there is a reply (define (send-recv-message MSG) + ;;(die nil (list 'send-recv-message (human-msg MSG))) (net-send (:%socket SYSTEM-BUS) MSG) (let ((REPLY nil)) (while (nil? REPLY) -- 2.39.2