diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2022-03-11 15:14:39 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2022-03-11 16:25:36 -0700 |
commit | f2ba47b7ef017a01a4b6c13982ff43a67cc6abd5 (patch) | |
tree | cbc2819dd7dc4ab41ff3f94b148ffed2290b63f8 /src/property | |
parent | bd133225c65902d162d8bfe20257eb0f739487aa (diff) | |
download | consfigurator-f2ba47b7ef017a01a4b6c13982ff43a67cc6abd5.tar.gz |
drop SYSTEM and add simpler code in a FLET where it's needed
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/property')
-rw-r--r-- | src/property/installer.lisp | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/src/property/installer.lisp b/src/property/installer.lisp index 63d8c63..5a120f9 100644 --- a/src/property/installer.lisp +++ b/src/property/installer.lisp @@ -186,7 +186,13 @@ using a combinator like ON-CHANGE, or applied manually with DEPLOY-THESE." ;; This we make use of below. #P"/old-run/")) efi-system-partition-mount-args) - (flet ((preservedp (pathname) + (flet ((system (&rest args) + (alet (loop for arg in args + if (pathnamep arg) + collect (unix-namestring arg) + else collect arg) + (foreign-funcall "system" :string (escape-sh-command it) :int))) + (preservedp (pathname) (member pathname preserved-directories :test #'pathname-equal))) (mount:assert-devtmpfs-udev-/dev) (unless (remote-mount-point-p "/run") |