diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2022-04-01 18:09:50 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2022-04-01 18:09:50 -0700 |
| commit | ed8c76f566de8f6c10cdace515b3d076026258f0 (patch) | |
| tree | faf5beb60bd63094a77d45b9bd807075bf2dfc91 /src/property/fstab.lisp | |
| parent | 3d66b5420d42c47ba0c9b33e97d5ced79ce6dd3e (diff) | |
| download | consfigurator-ed8c76f566de8f6c10cdace515b3d076026258f0.tar.gz | |
replace some Scheme-style names
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/property/fstab.lisp')
| -rw-r--r-- | src/property/fstab.lisp | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/property/fstab.lisp b/src/property/fstab.lisp index f684316..34f1d04 100644 --- a/src/property/fstab.lisp +++ b/src/property/fstab.lisp @@ -67,7 +67,7 @@ Other properties might fill it in." (if (eql #P"/" (mount-point volume)) 1 2)) -(defmethod volume->entry ((volume filesystem) parent) +(defmethod volume-to-entry ((volume filesystem) parent) (format nil "~A ~A ~A ~{~A~^,~} ~A ~A" (fs-spec volume parent) (fs-file volume) (fs-vfstype volume) (fs-mntops volume) @@ -95,7 +95,7 @@ specified with DISK:HAS-VOLUMES." (:desc (format nil "fstab entries for ~:[~;host's ~]volumes" volumes)) (:hostattrs (os:required 'os:linux)) (:apply (apply #'has-entries - (apply #'mapcar #'volume->entry + (apply #'mapcar #'volume-to-entry (multiple-value-list (multiple-value-mapcan (curry #'subvolumes-of-type 'filesystem) @@ -109,7 +109,7 @@ This is used when building disk images and installing operating systems." (:hostattrs (os:required 'os:linux)) (:apply (apply #'has-entries - (apply #'mapcar #'volume->entry + (apply #'mapcar #'volume-to-entry (multiple-value-list (multiple-value-mapcan (curry #'subvolumes-of-type 'mounted-filesystem) |