diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2021-05-07 18:38:58 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-05-09 12:21:56 -0700 |
commit | 8fa130526050c4d3bdfa5465e06180f813a71f3c (patch) | |
tree | 820ead2c6b33e12337bc6d3e453ff7b2c4b2f8bf /src/property.lisp | |
parent | 9cc2fd8af9b974c28534aaa40c736503bdef98d6 (diff) | |
download | consfigurator-8fa130526050c4d3bdfa5465e06180f813a71f3c.tar.gz |
rework bootloader installation so can use property-defining macros
It is better to have the code which installs bootloaders to volumes in
property definitions rather than in plain functions, as then we can specify
that it's :POSIX or :LISP, specify the OS required for it to run, and similar.
This commit enables that by replacing INSTALL-BOOTLOADER with a different
generic which returns propspecs.
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/property.lisp')
-rw-r--r-- | src/property.lisp | 9 |
1 files changed, 1 insertions, 8 deletions
diff --git a/src/property.lisp b/src/property.lisp index 497b2f1..49e1a6a 100644 --- a/src/property.lisp +++ b/src/property.lisp @@ -279,14 +279,7 @@ parsing FORMSV and pushing SETPROP keyword argument pairs to plist SLOTSV." ;; in this way, so issue a warning. ,@(and (getf ,slotsv :hostattrs) '((programmatic-apply-hostattrs))) - (%consfigure - nil - (make-host - :hostattrs (hostattrs *host*) - :propspec - (with-*host*-*consfig* - (make-propspec - :propspec (cons ',,name args)))))))))))))))) + (consfigure (cons ',,name args))))))))))))) (define-condition programmatic-apply-hostattrs (simple-warning) ()) |