Permalink
Switch branches/tags
Nothing to show
Find file
Fetching contributors…
Cannot retrieve contributors at this time
26 lines (22 sloc) 825 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 unix (address)
(handler-case
(let ((abstract (server-address-value address "abstract"))
(path (server-address-value address "path")))
(net.sockets:make-socket
:address-family :local
:external-format :ascii
:remote-filename (net.sockets:ensure-address
(or abstract path)
:family :local
:abstract (if abstract
t
nil))))
(t (c)
(warn "Unable to connect to to dbus via unix transport: ~A" c)
nil)))
;;; EOF