diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2022-03-09 16:32:17 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2022-03-09 16:34:33 -0700 |
commit | 6d1d7ea0bbd0ef970e22f4c87775f95fb3b8452b (patch) | |
tree | 5c93462a94a019b5f8f3a55299d3f04fe6b2aedd /src/connection | |
parent | 7cc46462f5ca23723317c2b4b6099ac7daaf7258 (diff) | |
download | consfigurator-6d1d7ea0bbd0ef970e22f4c87775f95fb3b8452b.tar.gz |
add "local" and "remote" to the names of some exported symbols
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/connection')
-rw-r--r-- | src/connection/chroot.lisp | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/connection/chroot.lisp b/src/connection/chroot.lisp index 4c1db70..aeae134 100644 --- a/src/connection/chroot.lisp +++ b/src/connection/chroot.lisp @@ -46,7 +46,7 @@ should be the mount point, without the chroot's root prefixed.") (slot-value connection 'into)))) ;; We only mount when the target is not already a mount point, so we ;; don't shadow anything that the user has already set up. - (unless (mountpointp dest) + (unless (remote-mount-point-p dest) (setq mount-args (copy-list mount-args)) (setf (lastcar mount-args) dest) (apply #'mrun "mount" mount-args) @@ -57,7 +57,8 @@ should be the mount point, without the chroot's root prefixed.") (with-slots (into) connection ;; Ensure the chroot itself is a mountpoint so that findmnt(8) works ;; correctly within the chroot. - (unless (mountpointp into) (chroot-mount connection "--bind" into "/")) + (unless (remote-mount-point-p into) + (chroot-mount connection "--bind" into "/")) ;; Now set up the usual bind mounts. Help here from arch-chroot(8). (mount:assert-devtmpfs-udev-/dev) (dolist (mount mount:*standard-linux-vfs*) |