diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2021-04-29 11:06:47 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-04-29 11:08:03 -0700 |
commit | 8f97a9ca77df73daf7074b6dd78d2f5ba0f97bee (patch) | |
tree | 2d339b027fb42ef91748b30e1113f6aa5957986f /src | |
parent | 37d41fbf8bbc217d31f6e691bb1ca0126e6c90d4 (diff) | |
download | consfigurator-8f97a9ca77df73daf7074b6dd78d2f5ba0f97bee.tar.gz |
minor style tweaks
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src')
-rw-r--r-- | src/property/disk.lisp | 17 | ||||
-rw-r--r-- | src/property/fstab.lisp | 2 |
2 files changed, 8 insertions, 11 deletions
diff --git a/src/property/disk.lisp b/src/property/disk.lisp index 3a966ea..2e6df93 100644 --- a/src/property/disk.lisp +++ b/src/property/disk.lisp @@ -198,11 +198,10 @@ should not attempt to call OPEN-VOLUME on the VOLUME-CONTENTS of VOLUME.")) (defgeneric close-volume (volume) (:documentation "Inverse of OPEN-VOLUME: `kpartx -d`, `cryptsetup luksClose`, etc. -Return values, if any, should be ignored.")) - -(defmethod close-volume ((volume volume)) - "Default implementation: assume there is nothing to close." - (values)) +Return values, if any, should be ignored.") + (:method ((volume volume)) + "Default implementation: assume there is nothing to close." + (values))) (defclass physical-disk (top-level-volume opened-volume) () (:documentation @@ -334,8 +333,7 @@ value in the case of EFI system partitions, for which case use #xEF00.")) (defclass lvm-volume-group (top-level-volume) ((volume-label :documentation "The name of the VG, often starting with \"vg_\".") - ;; (volume-depth - ;; :initform 3) + ;; (volume-depth :initform 3) (volume-contents :type cons :documentation "A list of objects of type LVM-LOGICAL-VOLUME.")) @@ -380,7 +378,7 @@ chroot.") :documentation "When creating the filesystem to accommodate a directory tree whose size is already known, add this many whole mebibytes of extra free space where -possible. Ignored if VOLUME-SIZE is also set.")) +possible. Ignored if VOLUME-SIZE is also bound.")) (:documentation "A block device containing a filesystem, which can be mounted.")) @@ -560,7 +558,7 @@ must not be modified." (defgeneric create-volume-and-contents (volume file) (:documentation "Recursively create VOLUME and its contents, on or at FILE. -**THIS METHOD UNCONDITIONALLY FORMATS DISKS, POTENTIALLY DESTROYING DATA**") +**THIS METHOD UNCONDITIONALLY FORMATS DISKS, POTENTIALLY DESTROYING DATA.**") (:method ((volume volume) file) (let (opened-volumes) (labels @@ -727,7 +725,6 @@ filesystems will be incrementally updated when other properties change." (defprop host-volumes-created :lisp () "Recursively create the volumes as specified by DISK:HAS-VOLUMES. - **THIS PROPERTY UNCONDITIONALLY FORMATS DISKS, POTENTIALLY DESTROYING DATA, EACH TIME IT IS APPLIED.** diff --git a/src/property/fstab.lisp b/src/property/fstab.lisp index a57f8ba..fa573e1 100644 --- a/src/property/fstab.lisp +++ b/src/property/fstab.lisp @@ -78,7 +78,7 @@ if the first field of the existing entry is not \"none\" and the corresponding member of ENTRIES is \"none\", use the existing field value. This makes it easy to update mount options without having to specify the -partition or filesystem UUID in your Consfig." +partition or filesystem UUID in your consfig." (:desc (format nil "fstab entries for ~{~A~^, ~}" (mapcar #'entry->mountpoint entries))) (:apply |