Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
branch: master
Fetching contributors…

Octocat-spinner-32-eaf2f5

Cannot retrieve contributors at this time

file 21 lines (17 sloc) 0.69 kb
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
;;; -*- Mode: Lisp -*-
;;; Copyright (c) 2008 Julian Stecklina
;;;
;;; This file is part of CL-DBUS. Look into LICENSE for license terms.

(in-package :blitz.desktop.dbus)

(defun try-to-send-hello ()
  (let ((con (dbus-connect "unix:path=/tmp/dbus-test,guid=7ec02b0af9c2b6e23f10880449051a5a")))
    (unwind-protect
         (dbus-method-call con
                           :path "/org/freedesktop/DBus"
                           :destination "org.freedesktop.DBus"
                           :interface "org.freedesktop.DBus"
                           :member "Hello"
                           :signature ""
                           :arguments ())
      (dbus-close con))))

;;; EOF
Something went wrong with that request. Please try again.