From 006d3969bad1f84c0133a36ed9a623b59bd01c0e Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Sun, 3 Apr 2022 09:34:37 -0700 Subject: rename basic propapp accessors Signed-off-by: Sean Whitton --- src/property/installer.lisp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'src/property/installer.lisp') diff --git a/src/property/installer.lisp b/src/property/installer.lisp index 60c17d7..bad2255 100644 --- a/src/property/installer.lisp +++ b/src/property/installer.lisp @@ -57,7 +57,7 @@ BOOTLOADER-TYPE to VOLUME.")) %install-bootloaders (running-on-target &rest propapps) (:retprop :type :lisp - :hostattrs (lambda () (mapc #'propappattrs propapps)) + :hostattrs (lambda () (mapc #'propapp-attrs propapps)) :apply (lambda () (mapc #'consfigure @@ -160,10 +160,10 @@ using a combinator like ON-CHANGE, or applied manually with DEPLOY-THESE." ;;; the definition of SERVICES:WITHOUT-STARTING-SERVICES to *AT-END-FUNCTIONS* ;;; in a closure. We'd also want %CONSFIGURE to use UNWIND-PROTECT to ensure ;;; that the AT-END functions get run even when there's a nonlocal exit from -;;; %CONSFIGURE's call to PROPAPPAPPLY; perhaps we could pass a second +;;; %CONSFIGURE's call to APPLY-PROPAPP; perhaps we could pass a second ;;; argument to the AT-END functions indicating whether there was a non-local ;;; transfer of control. REBOOT:REBOOTED-AT-END might only reboot when there -;;; was a normal return from PROPAPPAPPLY, whereas the cleanup forms from +;;; was a normal return from APPLY-PROPAPP, whereas the cleanup forms from ;;; SERVICES:WITHOUT-STARTING-SERVICES would always be evaluated. (defprop %root-filesystems-flipped :lisp (new-os old-os) -- cgit v1.2.3