GNU bug report logs - #77119
guix system vm run error with --share argument.

Previous Next

To reply to this bug, email your comments to 77119 AT debbugs.gnu.org.

Toggle the display of automated, internal messages from the tracker.

Message #5 received at submit <at> debbugs.gnu.org (full text, mbox):

From: Feng Shu <tumashu <at> 163.com>
To: "guix-bug" <bug-guix <at> gnu.org>
Subject: guix system vm run error with --share argument.
Date: Wed, 19 Mar 2025 22:37:33 +0800

When I use guix system vm with --share argument, the below error will be
showed.

--------------------------------------------------------------------


feng <at> Guix ~$ guix system vm -e "(@ (geesystem webvm) os)" --share=/home/feng/.config/webvm/guest=/home/guest
Backtrace:
          17 (primitive-load "/home/feng/.config/guix/current/bin/gu…")
In guix/ui.scm:
   2352:7 16 (run-guix . _)
  2315: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 7f63b2fdf3c0 at g…> …)
  2212:25  7 (run-with-store #<store-connection 256.100 7f63b2fc3b90> …)
In guix/scripts/system.scm:
    859:2  6 (_ _)
    739:8  5 (_ #<store-connection 256.100 7f63b2fc3b90>)
In gnu/system/vm.scm:
   312:17  4 (system-qemu-image/shared-store-script _ #:system _ # _ …)
    238:8  3 (common-qemu-options _ ("/gnu/store" "/home/feng/.co…") …)
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:224:4 7f63bf4b3fc0>



-- 

Message #8 received at 77119 <at> debbugs.gnu.org (full text, mbox):

From: Feng Shu <tumashu <at> 163.com>
To: 77119 <at> debbugs.gnu.org
Subject: guix system vm --share do not work
Date: Thu, 27 Mar 2025 14:59:58 +0800

Maybe this commit?

 https://git.savannah.gnu.org/cgit/guix.git/commit/?id=9939677d15592acb8663162af8eab3d33f4831db

-- 

Message #11 received at 77119 <at> debbugs.gnu.org (full text, mbox):

From: tumashu <at> 163.com
To: 77119 <at> debbugs.gnu.org
Cc: Feng Shu <tumashu <at> 163.com>
Subject: [PATCH] gnu: Fix guix system vm --share argument error.
Date: Sat, 29 Mar 2025 15:48:26 +0800

From: Feng Shu <tumashu <at> 163.com>

* gnu/system/vm.scm (common-qemu-options): Fix guix system vm --share argument error.

Change-Id: I4182e2dbe1b54e6eec2fb6ca53f9345f6d396f14
---
 gnu/system/vm.scm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/gnu/system/vm.scm b/gnu/system/vm.scm
index 4f2a27daf7..d4a15257d3 100644
--- a/gnu/system/vm.scm
+++ b/gnu/system/vm.scm
@@ -221,9 +221,9 @@ (define* (common-qemu-options image shared-fs
 with '-virtfs' options for the host file systems listed in SHARED-FS."
 
   (define (virtfs-option fs)
-    #~("-virtfs"
-       (format #f "local,path=~a,security_model=none,mount_tag=~a"
-               #$fs #$(file-system->mount-tag fs))))
+    (list "-virtfs"
+          #~(format #f "local,path=~a,security_model=none,mount_tag=~a"
+                    #$fs #$(file-system->mount-tag fs))))
 
   #~(;; Only enable kvm if we see /dev/kvm exists.
      ;; This allows users without hardware virtualization to still use these

base-commit: eb30f5ecbea896e9cf93722bf97681d208f1a7be
prerequisite-patch-id: bf4dc4ac71657f46ae15fd5276f0cf882999576f
prerequisite-patch-id: 30c2435b1842ca1237c080977588adffe8b8264e
prerequisite-patch-id: 5d5b3f4c24683b5014cd6f5d603e29d8012d27fe
-- 
2.49.0

Previous Next

GNU bug tracking system
Copyright (C) 1999 Darren O. Benham, 1997,2003 nCipher Corporation Ltd, 1994-97 Ian Jackson.