add "local" and "remote" to the names of some exported symbols

Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>

1 files changed, 5 insertions, 5 deletions

diff --git a/src/connection.lisp b/src/connection.lisp
index 9a7584f..d5d1618 100644
--- a/src/connection.lisp
+++ b/src/connection.lisp
@@ -521,10 +521,10 @@ expected."
 (defun runlines (&rest args)
   (lines (apply #'run args)))
 
-(defun test (&rest args)
+(defun remote-test (&rest args)
   (zerop (apply #'mrun :for-exit "test" args)))
 
-(defun mountpointp (path)
+(defun remote-mount-point-p (path)
   "Is PATH a mount point?
 
 Uses mountpoint(1) from util-linux, so add a property requiring OS:LINUX or a
@@ -543,9 +543,9 @@ subclass to the :HOSTATTRS subroutine of properties calling this."
 (defun remote-exists-p (&rest paths)
   "Does each of PATHS exists?
 PATH may be any kind of file, including directories."
-  (apply #'test (loop for path on paths
-                      nconc (list "-e" (car path))
-                      when (cdr path) collect "-a")))
+  (apply #'remote-test (loop for path on paths
+                             nconc (list "-e" (car path))
+                             when (cdr path) collect "-a")))
 
 (defun remote-file-stats (path)
   "Get the numeric mode, size in bytes and mtime of PATH, or NIL if it does not