aboutsummaryrefslogtreecommitdiff
path: root/src/property/installer.lisp
diff options
context:
space:
mode:
authorSean Whitton <spwhitton@spwhitton.name>2022-04-23 14:01:48 -0700
committerSean Whitton <spwhitton@spwhitton.name>2022-04-23 14:34:07 -0700
commitc487ae071d19d099c05e6a66029ba4641f43f23b (patch)
tree479034bd59a96de4248fc550d64fba93d8ffdcf9 /src/property/installer.lisp
parent16072787a88b8fdddda4c0e238f2c9570186321e (diff)
downloadconsfigurator-c487ae071d19d099c05e6a66029ba4641f43f23b.tar.gz
rename to INSTALLER:CHROOT-INSTALLED-TO-VOLUMES-FOR
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/property/installer.lisp')
-rw-r--r--src/property/installer.lisp12
1 files changed, 6 insertions, 6 deletions
diff --git a/src/property/installer.lisp b/src/property/installer.lisp
index 26bcd8b..ff74a4d 100644
--- a/src/property/installer.lisp
+++ b/src/property/installer.lisp
@@ -48,11 +48,11 @@ BOOTLOADER-TYPE to VOLUME."))
;; At :HOSTATTRS time we don't have the OPENED-VOLUME values required by the
;; :APPLY subroutines which actually install the bootloaders. So we call
-;; GET-PROPSPECS twice: (in CHROOT-INSTALLED-TO-VOLUMES) at :HOSTATTRS time to
-;; generate propspecs for the sake of running :HOSTATTRS subroutines, and then
-;; at :APPLY time where we can get at the OPENED-VOLUME values, we ignore the
-;; previously generated propspecs and call GET-PROPSPECS again. This approach
-;; should work for any sensible VOLUME<->OPENED-VOLUME pairs.
+;; GET-PROPSPECS twice: (in CHROOT-INSTALLED-TO-VOLUMES-FOR) at :HOSTATTRS
+;; time to generate propspecs for the sake of running :HOSTATTRS subroutines,
+;; and then at :APPLY time where we can get at the OPENED-VOLUME values, we
+;; ignore the previously generated propspecs and call GET-PROPSPECS again.
+;; This approach should work for any sensible VOLUME<->OPENED-VOLUME pairs.
(define-function-property-combinator
%install-bootloaders (running-on-target &rest propapps)
(:retprop
@@ -80,7 +80,7 @@ BOOTLOADER-TYPE to VOLUME."))
(strcat (unix-namestring chroot) "/")
(strcat (unix-namestring target) "/"))))
-(defpropspec chroot-installed-to-volumes :lisp
+(defpropspec chroot-installed-to-volumes-for :lisp
(host chroot volumes &key running-on-target)
"Where CHROOT contains the root filesystem of HOST and VOLUMES is a list of
volumes, recursively open the volumes and rsync in the contents of CHROOT.