From f1cdc293b33b673de4813c71dc4a38337edff12e Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Fri, 11 Mar 2022 14:57:29 -0700 Subject: replace uses of CALL-WITH-OS & drop the function Signed-off-by: Sean Whitton --- src/property/chroot.lisp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'src/property/chroot.lisp') diff --git a/src/property/chroot.lisp b/src/property/chroot.lisp index 5b1c9b1..805f676 100644 --- a/src/property/chroot.lisp +++ b/src/property/chroot.lisp @@ -72,9 +72,9 @@ ;; %DEBOOTSTRAP-MANUALLY-INSTALLED for the case where the ;; architectures do not match because ensuring that debootstrap(8) ;; will be able to bootstrap a foreign arch is more involved. - ,@(and (not (call-with-os - #'os:supports-arch-p - (os:linux-architecture (get-hostattrs-car :os host)))) + ,@(and (not (os:supports-arch-p + (get-hostattrs-car :os) (os:linux-architecture + (get-hostattrs-car :os host)))) '((os:etypecase (debianlike (apt:installed "qemu-user-static"))))))))) -- cgit v1.2.3