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/crypttab.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/crypttab.lisp')
-rw-r--r-- | src/property/crypttab.lisp | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/property/crypttab.lisp b/src/property/crypttab.lisp index 744361b..4229cbf 100644 --- a/src/property/crypttab.lisp +++ b/src/property/crypttab.lisp @@ -54,7 +54,7 @@ (defmethod ct-options ((volume opened-luks-container)) (or (crypttab-options volume) '("none"))) -(defmethod volume->entry ((volume opened-luks-container)) +(defmethod volume-to-entry ((volume opened-luks-container)) (format nil "~A ~A ~A ~{~A~^,~}" (ct-target volume) (ct-source volume) (ct-keyfile volume) (ct-options volume))) @@ -82,6 +82,6 @@ This is used when building disk images and installing operating systems." (:hostattrs (os:required 'os:linux)) (:apply (apply #'has-entries - (mapcar #'volume->entry + (mapcar #'volume-to-entry (mapcan (curry #'subvolumes-of-type 'opened-luks-container) (get-connattr :opened-volumes)))))) |