diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2022-03-11 15:27:00 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2022-03-11 16:40:08 -0700 |
commit | 4e0a4c107e4a2ee708e6e7a9f3edf189fe858f14 (patch) | |
tree | b8e51af43f895a98ebd943580c51c1da38151bdf /src/property/libvirt.lisp | |
parent | f2ba47b7ef017a01a4b6c13982ff43a67cc6abd5 (diff) | |
download | consfigurator-4e0a4c107e4a2ee708e6e7a9f3edf189fe858f14.tar.gz |
replace ESCAPE-SH-TOKEN and ESCAPE-SH-COMMAND with new SH-ESCAPE
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/property/libvirt.lisp')
-rw-r--r-- | src/property/libvirt.lisp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/property/libvirt.lisp b/src/property/libvirt.lisp index 967d76c..fff40d1 100644 --- a/src/property/libvirt.lisp +++ b/src/property/libvirt.lisp @@ -87,7 +87,7 @@ subcommand of virsh(1) to convert the running domain into a transient domain." nil "virt-install --print-xml -n ~A~:[~; --os-variant=~:*~A~]~{ ~A~} >~S" (get-hostname host) (os-variant host) - (mapcar #'escape-sh-token arguments) file)) + (mapcar #'sh-escape arguments) file)) (mrun "virsh" "define" file))) (:unapply (declare (ignore arguments)) |