added new-path method

[rrq/lsp-utils.git] / lsp-dbus / lsp-dbus.lsp

diff --git a/lsp-dbus/lsp-dbus.lsp b/lsp-dbus/lsp-dbus.lsp
index 8a4f7c47d2ee07524b7ac74c04dd7f40a15fc23a..a8109981268bc9e61fdc1dfb03c602ee529a78f3 100644 (file)
--- 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)