From: Ralph Ronnquist Date: Tue, 18 Apr 2023 01:49:27 +0000 (+1000) Subject: removed debugging X-Git-Url: https://git.rrq.au/?a=commitdiff_plain;h=f3b4415f3d3d0f5972234690581b82b324056c94;p=rrq%2Flsp-utils.git removed debugging --- diff --git a/lsp-dbus/lsp-dbus-events.lsp b/lsp-dbus/lsp-dbus-events.lsp index 3bde661..5770604 100644 --- a/lsp-dbus/lsp-dbus-events.lsp +++ b/lsp-dbus/lsp-dbus-events.lsp @@ -44,9 +44,7 @@ (write-line 2 (format "** No handler %s for:\n%s" KEY (string MSG)))) (define (process-message MSG) - ;;(die nil (list 'process-message MSG)) (let ((KEY (message-key MSG))) - ;;(die nil "Dbus:process-message" KEY (and (RECV KEY) true)) (if (RECV KEY) ($it (lookup "" MSG)) (no-handler KEY MSG)))) @@ -58,7 +56,6 @@ ;; asyncronous events (define (main-loop S) (let ((FDS (list 0 (:%socket SYSTEM-BUS))) (FD nil)) - ;;(die nil "Dbus:main-loop" (length pending) "pending") (write 2 (string "> ")) (while (or pending (not (member 0 (net-select FDS "r" -1)))) (if (pop pending) (process-message $it) @@ -69,7 +66,6 @@ ;; Send message, then keep reading messages until there is a reply (define (send-recv-message MSG) - ;;(die nil (list 'send-recv-message (octals-string MSG))) (net-send (:%socket SYSTEM-BUS) MSG) (let ((REPLY nil)) (while (nil? REPLY)