diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2022-04-16 14:48:26 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2022-04-16 14:48:26 -0700 |
commit | d3cde571f3bf9375d51fedce895fb400bd0304db (patch) | |
tree | 06a0152e9eab5e31bae27b698a5fea10a00313cb | |
parent | 3d0237b89b4f18c2a01aaccb8b0077cac746e3a7 (diff) | |
download | consfigurator-d3cde571f3bf9375d51fedce895fb400bd0304db.tar.gz |
CONSFIGURATOR.PROPERTY.U-BOOT: drop U-BOOT- prefix from symbols
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
-rw-r--r-- | src/package.lisp | 4 | ||||
-rw-r--r-- | src/property/u-boot.lisp | 9 |
2 files changed, 6 insertions, 7 deletions
diff --git a/src/package.lisp b/src/package.lisp index 98418f8..6713e36 100644 --- a/src/package.lisp +++ b/src/package.lisp @@ -731,8 +731,8 @@ #:consfigurator.property.installer) (:local-nicknames (#:os #:consfigurator.property.os) (#:apt #:consfigurator.property.apt)) - (:export #:u-boot-install-rockchip - #:u-boot-installed-rockchip)) + (:export #:install-rockchip + #:installed-rockchip)) (package :consfigurator.property.hostname (:local-nicknames (#:cmd #:consfigurator.property.cmd) diff --git a/src/property/u-boot.lisp b/src/property/u-boot.lisp index c9cb72c..467c062 100644 --- a/src/property/u-boot.lisp +++ b/src/property/u-boot.lisp @@ -23,18 +23,17 @@ ;; these available instead. (defmethod install-bootloader-propspec - ((type (eql 'u-boot-install-rockchip)) volume running-on-target + ((type (eql 'install-rockchip)) volume running-on-target &rest args &key &allow-other-keys) - `(u-boot-installed-rockchip ,volume ,running-on-target ,@args)) + `(installed-rockchip ,volume ,running-on-target ,@args)) (defmethod install-bootloader-binaries-propspec - ((type (eql 'u-boot-install-rockchip)) volume &key &allow-other-keys) + ((type (eql 'install-rockchip)) volume &key &allow-other-keys) '(os:etypecase (debianlike (apt:installed "u-boot-rockchip")))) -(defprop u-boot-installed-rockchip :posix - (volume running-on-target &key target) +(defprop installed-rockchip :posix (volume running-on-target &key target) (:desc "Installed U-Boot using Debian scripts") (:hostattrs (os:required 'os:debianlike) |