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; |