From ed8c76f566de8f6c10cdace515b3d076026258f0 Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Fri, 1 Apr 2022 18:09:50 -0700 Subject: replace some Scheme-style names Signed-off-by: Sean Whitton --- src/property/fstab.lisp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'src/property/fstab.lisp') 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) -- cgit v1.2.3