[bug#54765] [PATCH] gnu: cl-legit: Update to 5f8a2d4.

[jgart via Guix-patches via <guix-patches@gnu.org>]

* gnu/packages/lisp-xyz.scm (cl-legit): Update to 5f8a2d4 and use
revision variable in let block.
[arguments]: Patch git executable.
[inputs]: Add formatting and add missing git input.
---
 gnu/packages/lisp-xyz.scm | 24 +++++++++++++++++++-----
 1 file changed, 19 insertions(+), 5 deletions(-)

diff --git a/gnu/packages/lisp-xyz.scm b/gnu/packages/lisp-xyz.scm
index aa0a744c1c..5f7b2a5190 100644
--- a/gnu/packages/lisp-xyz.scm
+++ b/gnu/packages/lisp-xyz.scm
@@ -101,6 +101,7 @@ (define-module (gnu packages lisp-xyz)
   #:use-module (gnu packages statistics)
   #:use-module (gnu packages tcl)
   #:use-module (gnu packages tls)
+  #:use-module (gnu packages version-control)
   #:use-module (gnu packages video)
   #:use-module (gnu packages web)
   #:use-module (gnu packages webkit)
@@ -16781,10 +16782,11 @@ (define-public cl-simple-inferiors
   (sbcl-package->cl-source-package sbcl-simple-inferiors))
 
 (define-public sbcl-legit
-  (let ((commit "48d50a20d8dcbd941d119683463b7c8257ba6458"))
+  (let ((commit "5f8a2d4c4f5fb8e53340eeef600433ee20e03fbe")
+        (revision "2"))
     (package
       (name "sbcl-legit")
-      (version (git-version "1.0.0" "1" commit))
+      (version (git-version "1.0.0" revision commit))
       (source
        (origin
          (method git-fetch)
@@ -16793,10 +16795,22 @@ (define-public sbcl-legit
                (commit commit)))
          (file-name (git-file-name name version))
          (sha256
-          (base32 "181aqpj4zkfk1aavj5jw8rym6gw4ma3gd64z2h5fpryabgmwk236"))))
+          (base32 "0crr7ya7dg15di7glk3w9sgf6j8dmny347gynmxxrdvjj9pa906m"))))
       (build-system asdf-build-system/sbcl)
-      (inputs
-       (list sbcl-simple-inferiors sbcl-lambda-fiddle sbcl-cl-ppcre
+      (arguments
+             `(#:phases
+               (modify-phases %standard-phases
+                 (add-after 'unpack 'patch-git-executable
+                   (lambda* (#:key inputs #:allow-other-keys)
+                     (substitute* "process.lisp"
+                       (("\"git")
+                        (string-append "\"" (search-input-file inputs
+                                                               "/bin/git")))))))))
+      (inputs
+       (list git
+             sbcl-simple-inferiors
+             sbcl-lambda-fiddle
+             sbcl-cl-ppcre
              sbcl-documentation-utils))
       (home-page "https://shinmera.github.io/legit/")
       (synopsis "Interface to the git binary")
-- 
2.35.1