From d835070f706e341cb3dd3daee5cb7a7d31c0c4da Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Fri, 18 Jun 2021 11:40:24 -0700 Subject: replace APT:USE-PARENT-MIRROR with APT:USE-PARENT-MIRRORS Signed-off-by: Sean Whitton --- src/property/apt.lisp | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) (limited to 'src/property/apt.lisp') diff --git a/src/property/apt.lisp b/src/property/apt.lisp index dbdcbf2..cb62df4 100644 --- a/src/property/apt.lisp +++ b/src/property/apt.lisp @@ -162,10 +162,12 @@ only upgrade Debian stable." (:hostattrs (pushnew-hostattrs :apt.mirror uri))) -(defproplist uses-parent-mirror :posix () - (:desc #?"Uses parent's apt mirror") - (mirror (or (get-parent-hostattrs-car :apt.mirror) - (failed-change "Parent has no apt mirror")))) +(defpropspec uses-parent-mirrors :posix () + (:desc #?"Uses parent's apt mirror(s), if any") + (let ((mirrors (get-parent-hostattrs :apt-mirror))) + (and mirrors + `(eseqprops + ,@(loop for mirror in mirrors collect `(mirror ,mirror)))))) (defprop proxy :posix (uri) (:desc #?"${uri} apt proxy selected") -- cgit v1.2.3