diff options
Diffstat (limited to 'src/property/fstab.lisp')
| -rw-r--r-- | src/property/fstab.lisp | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/src/property/fstab.lisp b/src/property/fstab.lisp index a4eaf98..5a8feef 100644 --- a/src/property/fstab.lisp +++ b/src/property/fstab.lisp @@ -85,10 +85,8 @@ member of ENTRIES is \"none\", or \"PLACEHOLDER\", 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." - (:desc - (let ((mount-points (mapcar (compose #'cadr #'words) entries))) - (format nil "fstab entr~@P for ~{~A~^, ~}" - (length mount-points) mount-points))) + (:desc (alet (mapcar (compose #'cadr #'words) entries) + (format nil "fstab entr~@P for ~{~A~^, ~}" (length it) it))) (:apply (file:update-unix-table #P"/etc/fstab" 0 1 entries))) (defprop entries-for-volumes :posix (&optional volumes) |