diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2022-04-27 18:20:38 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2022-04-28 16:06:55 -0700 |
commit | c6c6f60334a63c1cf539c374342e7bf2c1f9197a (patch) | |
tree | f4ad92817a13192439bf2e5c1564095b86c4099c /src/property/u-boot.lisp | |
parent | eaba54b7f31acdfda8278ccce66b09291c58ac82 (diff) | |
download | consfigurator-c6c6f60334a63c1cf539c374342e7bf2c1f9197a.tar.gz |
replace RUNNING-ON-TARGET parameters with contained factors
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/property/u-boot.lisp')
-rw-r--r-- | src/property/u-boot.lisp | 10 |
1 files changed, 4 insertions, 6 deletions
diff --git a/src/property/u-boot.lisp b/src/property/u-boot.lisp index 467c062..4ca9546 100644 --- a/src/property/u-boot.lisp +++ b/src/property/u-boot.lisp @@ -23,9 +23,8 @@ ;; these available instead. (defmethod install-bootloader-propspec - ((type (eql 'install-rockchip)) volume running-on-target - &rest args &key &allow-other-keys) - `(installed-rockchip ,volume ,running-on-target ,@args)) + ((type (eql 'install-rockchip)) volume &rest args &key &allow-other-keys) + `(installed-rockchip ,volume ,@args)) (defmethod install-bootloader-binaries-propspec ((type (eql 'install-rockchip)) volume &key &allow-other-keys) @@ -33,15 +32,14 @@ (debianlike (apt:installed "u-boot-rockchip")))) -(defprop installed-rockchip :posix (volume running-on-target &key target) +(defprop installed-rockchip :posix (volume &key target) (:desc "Installed U-Boot using Debian scripts") (:hostattrs (os:required 'os:debianlike) - (or running-on-target target + (or (container:contained-p :physical-disks) target (inapplicable-property "Must specify TARGET for u-boot-install-rockchip(8) unless running on device."))) (:apply - (declare (ignore running-on-target)) (let ((args (list "u-boot-install-rockchip" (device-file volume)))) (if target (apply #'mrun :env `(:TARGET ,target) args) |