diff options
Diffstat (limited to 'src/property/libvirt.lisp')
-rw-r--r-- | src/property/libvirt.lisp | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/property/libvirt.lisp b/src/property/libvirt.lisp index fff40d1..8ce80e1 100644 --- a/src/property/libvirt.lisp +++ b/src/property/libvirt.lisp @@ -120,13 +120,13 @@ already running, for a VM which is not always booted, e.g. on a laptop." (macrolet ((check-started (form) `(if (host-domain-started-p host) ,form :no-change))) - (:retprop :type (propapptype propapp) + (:retprop :type (propapp-type propapp) :desc (get (car propapp) 'desc) :hostattrs (get (car propapp) 'hostattrs) :apply (lambda-ignoring-args - (check-started (propappapply propapp))) + (check-started (apply-propapp propapp))) :unapply (lambda-ignoring-args - (check-started (propappunapply propapp))) + (check-started (unapply-propapp propapp))) :args (cdr propapp)))) ;; Another possible approach would be to convert DISK:VOLUME values to --disk |