From 6d1d7ea0bbd0ef970e22f4c87775f95fb3b8452b Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Wed, 9 Mar 2022 16:32:17 -0700 Subject: add "local" and "remote" to the names of some exported symbols Signed-off-by: Sean Whitton --- src/property/mount.lisp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'src/property/mount.lisp') 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 -- cgit v1.2.3