From be331e7fa0e414c3f2721e45de149e9f113c9519 Mon Sep 17 00:00:00 2001 From: Ralph Ronnquist Date: Tue, 18 Apr 2023 13:49:12 +1000 Subject: [PATCH] minor test update --- lsp-dbus-test.lsp | 13 ++++++------- 1 file changed, 6 insertions(+), 7 deletions(-) diff --git a/lsp-dbus-test.lsp b/lsp-dbus-test.lsp index 3482305..dd71083 100644 --- a/lsp-dbus-test.lsp +++ b/lsp-dbus-test.lsp @@ -9,8 +9,8 @@ ;; Request a bus name (println (if (:invoke Dbus:ROOT - (print "RequestName(su)") - (println (list (:bus-name au.rrq) 0))) + (print (:m ObjectManager "RequestName(su)")) + (println (list (:%name au.rrq) 0))) (!= ($it -1 -1 -1)) ; returns BOOLEAN )) (Dbus:process-all-pending) @@ -18,15 +18,14 @@ (println (if (:invoke Dbus:ROOT (print "GetNameOwner(s)") (println (list "org.bluez"))) - ($it -1 -1 -1) ; Returns value + ($it -1 -1 -1) ; Return value )) (Dbus:process-all-pending) -(setf org.bluez (Dbus "/org/bluez")) +(println (setf org.bluez (Dbus "/" "org.bluez"))) (println (if (:invoke org.bluez - (print "/:org.freedesktop.DBus.ObjectManager.GetManagedObjects()") - ) - ($it -1 -1 -1) ; Returns value + (println (:m ObjectManager "GetManagedObjects()"))) + ($it -1 -1 -1) ; Return value )) -- 2.39.2