From 90e871adbef72ed838434281b1be4c93a820a130 Mon Sep 17 00:00:00 2001
From: Ralph Ronnquist <ralph.ronnquist@gmail.com>
Date: Sun, 16 Apr 2023 11:46:18 +1000
Subject: [PATCH] Test
 (org.bluez)/:org.freedesktop.DBus.ObjectManager.GetManagedObjects

---
 lsp-dbus-test.lsp | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/lsp-dbus-test.lsp b/lsp-dbus-test.lsp
index 82c5ecb..3482305 100644
--- a/lsp-dbus-test.lsp
+++ b/lsp-dbus-test.lsp
@@ -22,6 +22,14 @@
            ))
 (Dbus:process-all-pending)
 
+(setf org.bluez (Dbus "/org/bluez"))
+(println (if (:invoke org.bluez
+                      (print "/:org.freedesktop.DBus.ObjectManager.GetManagedObjects()")
+                      )
+             ($it -1 -1 -1) ; Returns value
+           ))
+
+
 (reset) ; 
 
 "lsp-dbus-test.lsp"
-- 
2.39.2