-(setf org.bluez (Dbus "/org/bluez"))
-(println (if (:invoke org.bluez
- (print "/:org.freedesktop.DBus.ObjectManager.GetManagedObjects()")
- )
- ($it -1 -1 -1) ; Returns value
+(println (setf org.bluez (Dbus "/" "org.bluez")))
+(println (if (:invoke org.bluez (:m ObjectManager "GetManagedObjects()"))
+ ($it -1 -1 -1) ; Return value