From f2ba47b7ef017a01a4b6c13982ff43a67cc6abd5 Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Fri, 11 Mar 2022 15:14:39 -0700 Subject: drop SYSTEM and add simpler code in a FLET where it's needed Signed-off-by: Sean Whitton --- src/property/installer.lisp | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) (limited to 'src/property/installer.lisp') 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") -- cgit v1.2.3