diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2021-07-10 19:02:50 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-07-10 21:49:23 -0700 |
| commit | b1b4001db08c9a0b094523df18d287336651eeef (patch) | |
| tree | ce0b5e962a73daf3790d496f8b6f16947ffe935f /src/property/mount.lisp | |
| parent | 102214763c91bb4b4f75bccd28f0e481f5eed8f8 (diff) | |
| download | consfigurator-b1b4001db08c9a0b094523df18d287336651eeef.tar.gz | |
factor out MOUNTPOINTP
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/property/mount.lisp')
| -rw-r--r-- | src/property/mount.lisp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/property/mount.lisp b/src/property/mount.lisp index 21d5530..e0c3430 100644 --- a/src/property/mount.lisp +++ b/src/property/mount.lisp @@ -109,7 +109,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 (zerop (mrun :for-exit "mountpoint" "-q" "/dev")) + (unless (and (mountpointp "/dev") (string= "devtmpfs udev" (stripln (run "findmnt" "-nro" "fstype,source" "/dev")))) (failed-change |