Adding mmap API with test and documentation.

[rrq/lsp-utils.git] / lsp-dbus-test.lsp

diff --git a/lsp-dbus-test.lsp b/lsp-dbus-test.lsp
index 82c5ecb4fa8a2402527ff3329e45d9de07e95cbd..94981b521d1dcf647392c7a123772b27ddedf945 100644 (file)
--- 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,10 +18,16 @@
 (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)
 
+(println (setf org.bluez (Dbus "/" "org.bluez")))
+(println (if (:invoke org.bluez (:m ObjectManager "GetManagedObjects()"))
+             ($it -1 -1 -1) ; Return value
+           ))
+
+
 (reset) ; 
 
 "lsp-dbus-test.lsp"