(use (prefix dbus dbus:))

(define rc-car-context (dbus:make-context
	bus: dbus:session-bus 	;; would be the session-bus by default anyway
	service: 'com.trolltech.CarExample
	interface: 'com.trolltech.Examples.CarInterface
	path: '/Car))

(let loop ()
	(dbus:call rc-car-context "turnRight"
	 (dbus:make-variant `#(("Method" . ,(dbus:make-variant "method"))
	 					   ("Address" . ,(dbus:make-variant "address"))
	 					   ("Netmask" . ,(dbus:make-variant "netmask"))
	 					   ("Gateway" . ,(dbus:make-variant "gateway")))))
	(loop))