diff options
Diffstat (limited to 'src/property/mount.lisp')
-rw-r--r-- | src/property/mount.lisp | 16 |
1 files changed, 9 insertions, 7 deletions
diff --git a/src/property/mount.lisp b/src/property/mount.lisp index 98013a2..733f0b5 100644 --- a/src/property/mount.lisp +++ b/src/property/mount.lisp @@ -103,19 +103,21 @@ Uses findmnt(8), so Linux-specific." ;;;; Utilities for :LISP properties -(defparameter *linux-basic-vfs* '( +(define-constant +linux-basic-vfs+ '( ("-t" "proc" "-o" "nosuid,noexec,nodev" "proc" "/proc") ("-t" "sysfs" "-o" "nosuid,noexec,nodev,ro" "sys" "/sys") ("-t" "devtmpfs" "-o" "mode=0755,nosuid" "udev" "/dev") ("-t" "devpts" "-o" "mode=0620,gid=5,nosuid,noexec" "devpts" "/dev/pts") ("-t" "tmpfs" "-o" "mode=1777,nosuid,nodev" "shm" "/dev/shm") -("-t" "tmpfs" "-o" "mode=1777,strictatime,nodev,nosuid" "tmp" "/tmp"))) +("-t" "tmpfs" "-o" "mode=1777,strictatime,nodev,nosuid" "tmp" "/tmp")) + :test #'equal) -(defparameter *linux-efivars-vfs* - '("-t" "efivarfs" "-o" "nosuid,noexec,nodev" "efivarfs" - "/sys/firmware/efi/efivars") - "Arguments to mount(8) to mount the UEFI NVRAM. -After mounting /sys, mount this when /sys/firmware/efi/efivars exists.") +(define-constant +linux-efivars-vfs+ + '("-t" "efivarfs" "-o" "nosuid,noexec,nodev" "efivarfs" + "/sys/firmware/efi/efivars") + :documentation "Arguments to mount(8) to mount the UEFI NVRAM. +After mounting /sys, mount this when /sys/firmware/efi/efivars exists." + :test #'equal) (defun assert-devtmpfs-udev-/dev () "On a system with the Linux kernel, assert that /dev has fstype devtmpfs." |