From 19d02c44af576e8c43229091308f5ef218917c28 Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Fri, 28 May 2021 14:17:47 -0700 Subject: add optional HOST arg to some accessors for hostattrs Signed-off-by: Sean Whitton --- src/property/disk.lisp | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) (limited to 'src/property/disk.lisp') diff --git a/src/property/disk.lisp b/src/property/disk.lisp index 29e163d..f82460e 100644 --- a/src/property/disk.lisp +++ b/src/property/disk.lisp @@ -851,15 +851,13 @@ least the following: Unless REBUILD, the image will not be repartitioned even if the specification of the host's volumes changes, although the contents of the image's filesystems will be incrementally updated when other properties change." - (:desc (declare (ignore options rebuild)) - (let ((hostname (car (getf (hostattrs host) :hostname)))) - #?"Built image for ${hostname} @ ${image-pathname}")) + (:desc #?"Built image for ${(get-hostname host)} @ ${image-pathname}") (let ((chroot (ensure-directory-pathname (strcat (unix-namestring image-pathname) ".chroot"))) (volumes (loop with found - for volume in (getf (hostattrs (preprocess-host host)) :volumes) + for volume in (get-hostattrs :volumes (preprocess-host host)) for physical-disk-p = (subtypep (type-of volume) 'physical-disk) if (and physical-disk-p (not found) (slot-boundp volume 'volume-contents)) -- cgit v1.2.3