gnu: sbcl-static-dispatch: Update to 0.3-1.6243afc.

* gnu/packages/lisp-xyz.scm (sbcl-static-dispatch): Update to 0.3-1.6243afc.
  [propagated-inputs]: Remove cl-environment.
  [inputs]: Add sbcl-cl-environment.
  [arguments]: Remove workaround for arrows.

Signed-off-by: Guillaume Le Vaillant <glv@posteo.net>

gnu/packages/lisp-xyz.scm

@@ -12412,56 +12412,35 @@ CLTL2 environment access API.")
   (sbcl-package->ecl-package sbcl-cl-environments))
 
 (define-public sbcl-static-dispatch
-  (package
+  (let ((commit "6243afcd152854c52ba33daef7394367b657d9c6")
-    (name "sbcl-static-dispatch")
+        (revision "1"))
-    (version "0.3")
+    (package
-    (source
+      (name "sbcl-static-dispatch")
-     (origin
+      (version (git-version "0.3" revision commit))
-       (method git-fetch)
+      (source
-       (uri (git-reference
+       (origin
-             (url "https://github.com/alex-gutev/static-dispatch")
+         (method git-fetch)
-             (commit (string-append "v" version))))
+         (uri (git-reference
-       (file-name (git-file-name name version))
+               (url "https://github.com/alex-gutev/static-dispatch")
-       (sha256
+               (commit commit)))
-        (base32 "1wp5yz8liqqic3yifqf33qhccd755pd7ycvsq1j4i7k3f1wm18i0"))))
+         (file-name (git-file-name "static-dispatch" version))
-    (build-system asdf-build-system/sbcl)
+         (sha256
-    (inputs
+          (base32 "1lli9ar1xbnhkgb5d01rlw4pvfylg2arrw68np2c07fpkkafimg7"))))
-     `(("agutil" ,sbcl-agutil)
+      (build-system asdf-build-system/sbcl)
-       ("alexandria" ,sbcl-alexandria)
+      (native-inputs
-       ("anaphora" ,sbcl-anaphora)
+       `(("prove" ,sbcl-prove)))
-       ("arrows" ,sbcl-arrows)
+      (inputs
-       ("closer-mop" ,sbcl-closer-mop)
+       `(("agutil" ,sbcl-agutil)
-       ("iterate" ,sbcl-iterate)
+         ("alexandria" ,sbcl-alexandria)
-       ("trivia" ,sbcl-trivia)))
+         ("anaphora" ,sbcl-anaphora)
-    (propagated-inputs
+         ("arrows" ,sbcl-arrows)
-     ;; FIXME: `sbcl-cl-environments' input fails with
+         ("cl-environments" ,sbcl-cl-environments)
-     ;;
+         ("closer-mop" ,sbcl-closer-mop)
-     ;; compiling #<CL-SOURCE-FILE "collectors" "collectors">
+         ("iterate" ,sbcl-iterate)
-     ;; Unhandled SB-INT:SIMPLE-FILE-ERROR in thread #<SB-THREAD:THREAD "main thread" RUNNING
+         ("trivia" ,sbcl-trivia)))
-     ;; {1008238213}>:
+      (home-page "https://github.com/alex-gutev/static-dispatch")
-     ;; Error opening #P"/.../cl-environments/src/common/package-tmp5GEXGEG5.fasl":
+      (synopsis "Static generic function dispatch for Common Lisp")
-     ;; Permission denied
+      (description "Static dispatch is a Common Lisp library, inspired by
-     `(("cl-environments" ,cl-environments)))
-    (native-inputs
-     `(("prove" ,sbcl-prove)))
-    (arguments
-     `(#:phases
-       (modify-phases %standard-phases
-         ;; Use `arrows' instead of cl-arrows which is abandoned and unlicensed.
-         ;; https://github.com/nightfly19/cl-arrows/issues/5
-         (add-after 'unpack 'use-arrows-instead-of-cl-arrows
-           (lambda _
-             (for-each
-              (lambda (file)
-                (substitute* file
-                  ((":cl-arrows") ":arrows")))
-              '("static-dispatch.asd"
-                "src/package.lisp"
-                "test/methods.lisp"
-                "test/test.lisp")))))))
-    (home-page "https://github.com/alex-gutev/static-dispatch")
-    (synopsis "Static generic function dispatch for Common Lisp")
-    (description "Static dispatch is a Common Lisp library, inspired by
 @code{inlined-generic-function}, which allows standard Common Lisp generic
 function dispatch to be performed statically (at compile time) rather than
 dynamically (runtime).  This is similar to what is known as \"overloading\" in
@@ -12473,7 +12452,7 @@ functions, such as adding/removing methods at runtime are not required.  An
 example of such a case is a generic equality comparison function.  Currently
 generic functions are considered far too slow to implement generic arithmetic
 and comparison operations when used heavily in numeric code.")
-    (license license:expat)))
+      (license license:expat))))
 
 (define-public cl-static-dispatch
   (sbcl-package->cl-source-package sbcl-static-dispatch))