X-Git-Url: https://git.rrq.au/?a=blobdiff_plain;f=lsp-dbus-test.lsp;h=3482305526c5ea7b6bc6cee82d7575c66ca991bb;hb=5623d41029f2f5e3a980408942ee4a87fbcdd451;hp=82c5ecb4fa8a2402527ff3329e45d9de07e95cbd;hpb=121167c737403e2f49231fd5704aae86850b5b38;p=rrq%2Flsp-utils.git

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"