diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2021-12-13 15:58:57 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-12-13 16:17:00 -0700 |
commit | eda14d77dab39e05f69fef5fef2b5fb25482f215 (patch) | |
tree | 3cc600dd718b41d224ac2f0e7905145c53079185 /src/property/libvirt.lisp | |
parent | 96363fc7741377ff40133c2656ebd93025a48a81 (diff) | |
download | consfigurator-eda14d77dab39e05f69fef5fef2b5fb25482f215.tar.gz |
rename combinator UNAPPLY->UNAPPLIED and add new UNAPPLY macro
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/property/libvirt.lisp')
-rw-r--r-- | src/property/libvirt.lisp | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/src/property/libvirt.lisp b/src/property/libvirt.lisp index e7e5009..967d76c 100644 --- a/src/property/libvirt.lisp +++ b/src/property/libvirt.lisp @@ -303,10 +303,11 @@ your preferred VM networking setup and corresponding DEPLOYS propapp." ,@(and autostart `((started ,host))) :unapply (destroyed ,host*) - (unapply (defined ,host*)) - (unapply (with-flagfile ,flagfile - (chroot:os-bootstrapped-for - ,chroot-options ,chroot ,host ,additional-properties)))))) + (unapplied (defined ,host*)) + (unapplied + (with-flagfile ,flagfile + (chroot:os-bootstrapped-for + ,chroot-options ,chroot ,host ,additional-properties)))))) (defproplist kvm-boots-chroot :lisp (options properties) "Like LIBVIRT:KVM-BOOTS-CHROOT-FOR but define a new host using PROPERTIES." |