diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2021-06-03 12:55:30 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-06-03 13:18:22 -0700 |
commit | 413c43607b48db350d11458da8018d7ae2c5a452 (patch) | |
tree | bef17ab563aabd537ac3012cfb7d7bf743871ef8 | |
parent | 8e0b19cb751c3d9976d0a6414cffe9c733652f73 (diff) | |
download | consfigurator-413c43607b48db350d11458da8018d7ae2c5a452.tar.gz |
LIBVIRT::VIRSH-GET-COLUMNS: use WORDS
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
-rw-r--r-- | src/property/libvirt.lisp | 4 |
1 files changed, 1 insertions, 3 deletions
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; |