diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2021-05-31 14:29:08 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-05-31 14:29:08 -0700 |
| commit | 3781191a87bb3ef02515e8d6ef761246c6d1d43f (patch) | |
| tree | 41ec568027220687351e9f970cc585384250cd4a /src/property/disk.lisp | |
| parent | 195f95efd1d28523eee9fdebd316501a87c163c7 (diff) | |
| download | consfigurator-3781191a87bb3ef02515e8d6ef761246c6d1d43f.tar.gz | |
fix type of DISK::HOST-LVM-LOGICAL-VOLUMES-EXIST
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/property/disk.lisp')
| -rw-r--r-- | src/property/disk.lisp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/property/disk.lisp b/src/property/disk.lisp index 5afd4e3..ad505de 100644 --- a/src/property/disk.lisp +++ b/src/property/disk.lisp @@ -490,7 +490,7 @@ We do not specify what logical volumes it contains.")) (mrun :inform "vgextend" (volume-group volume) file) (mrun :inform "vgcreate" "--systemid" "" (volume-group volume) file))) -(defprop host-lvm-logical-volumes-exist :posix () +(defprop host-lvm-logical-volumes-exist :lisp () (:desc "Host LVM logical volumes all exist") (:apply (loop initially (assert-euid-root) |