bug#48855: Segfault while attempting to use --with-git-url

[Maxim Cournoyer]

Hi,

Trying to build our latest ppsspp package using:

$ ./pre-inst-env guix build ppsspp \
  --with-git-url=ppsspp=https://github.com/hrydgard/ppsspp

I get either

--8<---------------cut here---------------start------------->8---
updating submodule 'ext/SPIRV-Cross'...
indexing objects  91% 
[##########################################################################################################################################################################
                 ]Segmentation fault
--8<---------------cut here---------------end--------------->8---

or

--8<---------------cut here---------------start------------->8---
updating checkout of 'https://github.com/hrydgard/ppsspp'...
updating submodule 'dx9sdk'...
updating submodule 'ext/SPIRV-Cross'...
updating submodule 'ext/armips'...
receiving objects  73% 
[########################################################################################################################################
                                                  ]Illegal instruction
--8<---------------cut here---------------end--------------->8---

or

--8<---------------cut here---------------start------------->8---
updating checkout of 'https://github.com/hrydgard/ppsspp'...
updating submodule 'dx9sdk'...
updating submodule 'ext/SPIRV-Cross'...
updating submodule 'ext/armips'...
updating submodule 'ext/discord-rpc'...
updating submodule 'ext/glslang'...
updating submodule 'ext/miniupnp'...
updating submodule 'ext/native/tools/prebuilt'...
updating submodule 'ext/rapidjson'...
updating submodule 'thirdparty/gtest'...
Backtrace:
In guix/packages.scm:
  1244:18 19 (_)
In guix/store.scm:
  2068:24 18 (run-with-store #<store-connection 256.99 7fe81af09910> _ 
#:guile-for-build _ #:system _ #:target _)
   1902:8 17 (_ _)
In guix/gexp.scm:
   256:18 16 (_ _)
In ice-9/boot-9.scm:
  1747:15 15 (with-exception-handler #<procedure 7fe80c6ed060 at 
ice-9/boot-9.scm:1831:7 (exn)> _ #:unwind? _ #:unwind-for-type _)
In guix/git.scm:
   574:16 14 (_)
    473:8 13 (latest-repository-commit #<store-connection 256.99 7fe81af09910> 
"https://github.com/hrydgard/ppsspp"; #:recursive? _ #:log-port _ 
#:cache-directory _ #:ref _)
    403:7 12 (update-cached-checkout _ #:ref _ #:recursive? _ #:check-out? _ 
#:starting-commit _ #:log-port _ #:cache-directory _)
In srfi/srfi-1.scm:
    634:9 11 (for-each #<procedure 7fe80c6f3db0 at guix/git.scm:289:12 (name)> 
_)
In guix/git.scm:
   301:20 10 (_ _)
In srfi/srfi-1.scm:
    634:9  9 (for-each #<procedure 7fe80c499a20 at guix/git.scm:289:12 (name)> 
("thirdparty/gtest"))
In guix/git.scm:
   293:16  8 (_ _)
In git/submodule.scm:
   204:14  7 (_ . _)
In unknown file:
Exception thrown while printing backtrace:
In procedure primitive-call-ip: Wrong type argument in position 1 (expecting 
PRIMITIVE_P): #<procedure 7fe80b9a4fc0 (_ _ _)>

ice-9/boot-9.scm:1685:16: In procedure raise-exception:
In procedure scm_from_stringn: NULL string pointer
--8<---------------cut here---------------end--------------->8---

It seems there's a bug in guile-git.

Thank you,

Maxim