Find file
Fetching contributors…
Cannot retrieve contributors at this time
19 lines (16 sloc) 538 Bytes
;;; -*- 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)
(deftransport tcp (address)
(let ((host (server-address-value address "host"))
(port (parse-integer (server-address-value address "port"))))
:remote-host host
:remote-port port))
(t (c)
(warn "Unable to connect to to dbus via unix transport: ~A" c)
;;; EOF