diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2021-09-05 15:38:46 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-09-08 13:09:37 -0700 |
| commit | 210a2d70570792f8fac53960557232de910bff37 (patch) | |
| tree | 4060cbe2298a02426b2df7c31507512c948a6c1e /src/property/crypttab.lisp | |
| parent | a41a42f86145909bafa1d7ce75a2ca3a9944e7fa (diff) | |
| download | consfigurator-210a2d70570792f8fac53960557232de910bff37.tar.gz | |
add dep on Anaphora and use APROG1, ALET & AAND in various places
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/property/crypttab.lisp')
| -rw-r--r-- | src/property/crypttab.lisp | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/src/property/crypttab.lisp b/src/property/crypttab.lisp index a24ac26..28bcaf7 100644 --- a/src/property/crypttab.lisp +++ b/src/property/crypttab.lisp @@ -70,9 +70,8 @@ except that if the second field of the existing entry is not \"none\" and the corresponding member of ENTRIES is \"none\" or \"PLACEHOLDER\", use the existing field value." (:desc - (let ((devices - (loop for entry in entries collect (car (split-string entry))))) - (format nil "crypttab entr~@P for ~{~A~^, ~}" (length devices) devices))) + (alet (loop for entry in entries collect (car (split-string entry))) + (format nil "crypttab entr~@P for ~{~A~^, ~}" (length it) it))) (:apply (file:update-unix-table #P"/etc/crypttab" 1 0 entries))) (defprop entries-for-opened-volumes :posix () |