X-Git-Url: https://git.rrq.au/?a=blobdiff_plain;f=lsp-dbus-test.lsp;h=94981b521d1dcf647392c7a123772b27ddedf945;hb=4d9a34c5fb5811b6498bfa531402ac77c2711aec;hp=dd710834fef5d8f4bbe28af37e372fc503e9f015;hpb=99e9ef6c571e7181bdedc4986242b2e50bdd51ac;p=rrq%2Flsp-utils.git

diff --git a/lsp-dbus-test.lsp b/lsp-dbus-test.lsp
index dd71083..94981b5 100644
--- a/lsp-dbus-test.lsp
+++ b/lsp-dbus-test.lsp
@@ -23,8 +23,7 @@
 (Dbus:process-all-pending)
 
 (println (setf org.bluez (Dbus "/" "org.bluez")))
-(println (if (:invoke org.bluez
-                      (println (:m ObjectManager "GetManagedObjects()")))
+(println (if (:invoke org.bluez (:m ObjectManager "GetManagedObjects()"))
              ($it -1 -1 -1) ; Return value
            ))