Hello,
Since commit 9939677d15592acb8663162af8eab3d33f4831db, which changed
handling of Qemu options in `/gnu/system/vm.scm`, `guix system vm` fails
if the `--share` option is used.
```console
$ mkdir -p /tmp/share
$ guix time-machine --commit=9939677d15592acb8663162af8eab3d33f4831db --
system vm --share=/tmp/share /tmp/config.scm
Backtrace:
17 (primitive-load "/home/user/.cache/guix/inferiors/oljja…")
In guix/ui.scm:
2332:7 16 (run-guix . _)
2295:10 15 (run-guix-command _ . _)
In ice-9/boot-9.scm:
1752:10 14 (with-exception-handler _ _ #:unwind? _ # _)
In guix/status.scm:
859:3 13 (_)
839:4 12 (call-with-status-report _ _)
In guix/scripts/system.scm:
1332:4 11 (_)
In ice-9/boot-9.scm:
1752:10 10 (with-exception-handler _ _ #:unwind? _ # _)
In guix/store.scm:
690:37 9 (thunk)
1331:8 8 (call-with-build-handler #<procedure 7fae0ff885d0 at g…> …)
2212:25 7 (run-with-store #<store-connection 256.99 7fae0ff61910> …)
In guix/scripts/system.scm:
859:2 6 (_ _)
739:8 5 (_ #<store-connection 256.99 7fae0ff61910>)
In gnu/system/vm.scm:
309:17 4 (system-qemu-image/shared-store-script _ #:system _ # _ …)
235:8 3 (common-qemu-options _ ("/gnu/store" "/tmp/share") # _ # …)
In unknown file:
2 (concatenate (#<gexp ("-virtfs" (format #f "local,pa…> …))
In ice-9/boot-9.scm:
1685:16 1 (raise-exception _ #:continuable? _)
1685:16 0 (raise-exception _ #:continuable? _)
ice-9/boot-9.scm:1685:16: In procedure raise-exception:
In procedure append: Wrong type argument in position 1 (expecting empty
list): #<gexp ("-virtfs" (format #f
"local,path=~a,security_model=none,mount_tag=~a" #<gexp-input
"/gnu/store":out> #<gexp-input "TAGjoptajej2oynju6yvboauz7pl6uj":out>))
gnu/system/vm.scm:221:4 7fae13a4d630>
```
Using the following `config.scm`:
```scm
(use-modules (gnu bootloader))
(use-modules (gnu bootloader grub))
(use-modules (gnu system file-systems))
(operating-system
(bootloader (bootloader-configuration
(bootloader grub-bootloader)
(targets '("/dev/vda"))
(terminal-inputs '(console serial))
(terminal-outputs '(console serial))
(timeout 1)))
(file-systems (cons (file-system
(mount-point "/")
(device "/dev/vda1")
(type "ext4")) %base-file-systems))
(host-name "guix")
(kernel-arguments (cons "console=ttyS0" %default-kernel-arguments))
(locale "en_US.utf8"))
```
Thanks,
Owen
