X-Git-Url: https://git.rrq.au/?a=blobdiff_plain;f=lsp-dbus%2Flsp-dbus.lsp;h=a8109981268bc9e61fdc1dfb03c602ee529a78f3;hb=c1126d9819f511a13e36867bb6d291170627fb8f;hp=8a4f7c47d2ee07524b7ac74c04dd7f40a15fc23a;hpb=d2f65fd6ffba389bb091e81fe4cca1e29ebf763c;p=rrq%2Flsp-utils.git

diff --git a/lsp-dbus/lsp-dbus.lsp b/lsp-dbus/lsp-dbus.lsp
index 8a4f7c4..a810998 100644
--- a/lsp-dbus/lsp-dbus.lsp
+++ b/lsp-dbus/lsp-dbus.lsp
@@ -69,6 +69,10 @@
 (define (Dbus:Dbus PATH (NAME (replace "/" (1 PATH) ".")) (BUS 'SYSTEM-BUS))
   (list (context) PATH NAME BUS))
 
+;; Method to clone a proxy for a given path/object.
+(define (new-path PATH)
+  (list (context) PATH (%name) (%bus)))
+
 ;; Update the connection serial and return it
 (define (connection++)
   (case (%bus)