From 006d3969bad1f84c0133a36ed9a623b59bd01c0e Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Sun, 3 Apr 2022 09:34:37 -0700 Subject: rename basic propapp accessors Signed-off-by: Sean Whitton --- src/property/lxc.lisp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'src/property/lxc.lisp') diff --git a/src/property/lxc.lisp b/src/property/lxc.lisp index 02575ae..36fbd95 100644 --- a/src/property/lxc.lisp +++ b/src/property/lxc.lisp @@ -56,13 +56,13 @@ and owned by OWNER, defaulting to the current user, is already started." when-user-container-running* (host owner propapp) (macrolet ((check-running (form) `(if (user-container-running-p host owner) ,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-running (propappapply propapp))) + (check-running (apply-propapp propapp))) :unapply (lambda-ignoring-args - (check-running (propappunapply propapp))) + (check-running (unapply-propapp propapp))) :args (cdr propapp)))) (defproplist user-containers-autostart :posix (user) -- cgit v1.2.3