(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
))