diff options
Diffstat (limited to 'src/property/libvirt.lisp')
-rw-r--r-- | src/property/libvirt.lisp | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/src/property/libvirt.lisp b/src/property/libvirt.lisp index dea12bc..5362c40 100644 --- a/src/property/libvirt.lisp +++ b/src/property/libvirt.lisp @@ -117,11 +117,9 @@ already running, for a VM which is not always booted, e.g. on a laptop." (:retprop :type (propapptype propapp) :desc (get (car propapp) 'desc) :hostattrs (get (car propapp) 'hostattrs) - :apply (lambda (&rest ignore) - (declare (ignore ignore)) + :apply (lambda-ignoring-args (check-started (propappapply propapp))) - :unapply (lambda (&rest ignore) - (declare (ignore ignore)) + :unapply (lambda-ignoring-args (check-started (propappunapply propapp))) :args (cdr propapp)))) |