X-Git-Url: https://git.rrq.au/?a=blobdiff_plain;f=lsp-dbus%2Flsp-dbus-events.lsp;h=634ab07ae2b33a12fef672e637456536d8a9c324;hb=5623d41029f2f5e3a980408942ee4a87fbcdd451;hp=5770604bd3752025102d91c64b548c2c01298be2;hpb=daab5a6aed7f5823ad847b32e1f28caafa4a9685;p=rrq%2Flsp-utils.git

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)