From 413c43607b48db350d11458da8018d7ae2c5a452 Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Thu, 3 Jun 2021 12:55:30 -0700 Subject: LIBVIRT::VIRSH-GET-COLUMNS: use WORDS Signed-off-by: Sean Whitton --- src/property/libvirt.lisp | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) (limited to 'src') diff --git a/src/property/libvirt.lisp b/src/property/libvirt.lisp index 31aadd8..534a875 100644 --- a/src/property/libvirt.lisp +++ b/src/property/libvirt.lisp @@ -297,9 +297,7 @@ your preferred VM networking setup and corresponding DEPLOYS propapp." (defun virsh-get-columns (&rest arguments) "Run a virsh command that is expected to yield tabular output, with the given list of ARGUMENTS, and return the rows." - (mapcar (lambda (row) - (delete "" (split-string row) :test #'string=)) - (cddr (nbutlast (runlines "virsh" arguments))))) + (mapcar #'words (cddr (nbutlast (runlines "virsh" arguments))))) (defun host-domain-started-p (host) ;; The "State" column in the output of 'virsh list' is to be ignored here; -- cgit v1.2.3