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

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

1 files changed, 3 insertions, 3 deletions

diff --git a/src/property/mount.lisp b/src/property/mount.lisp
index f4a06ed..dc6a559 100644
--- a/src/property/mount.lisp
+++ b/src/property/mount.lisp
@@ -82,10 +82,10 @@ and unless DIR is itself a mount point, also remove DIR."
   (:desc #?"${dir} unmounted below and emptied/removed")
   (:hostattrs (os:required 'os:linux))
   (:check (or (not (remote-exists-p dir))
-              (and (mountpointp dir)
+              (and (remote-mount-point-p dir)
                    (null (runlines "find" dir "-not" "-path" dir)))))
   (:apply (ignoring-hostattrs (unmounted-below dir :and-at nil))
-          (if (mountpointp dir)
+          (if (remote-mount-point-p dir)
               (empty-remote-directory dir)
               (delete-remote-trees dir))))
 
@@ -119,7 +119,7 @@ After mounting /sys, mount this when /sys/firmware/efi/efivars exists.")
 
 (defun assert-devtmpfs-udev-/dev ()
   "On a system with the Linux kernel, assert that /dev has fstype devtmpfs."
-  (unless (and (mountpointp "/dev")
+  (unless (and (remote-mount-point-p "/dev")
                (string= "devtmpfs udev"
                         (stripln (run "findmnt" "-nro" "fstype,source" "/dev"))))
     (failed-change