01/03: gnu: sbcl-lparallel: Modify system definition to require sb-cltl2.

[guix-commits]

glv pushed a commit to branch master
in repository guix.

commit 388a89750ec60a320dd7b6a0b0f174cbed4f50c6
Author: Katherine Cox-Buday <cox.katherine.e@gmail.com>
AuthorDate: Sat Jun 6 11:18:00 2020 -0500

    gnu: sbcl-lparallel: Modify system definition to require sb-cltl2.
    
    * gnu/packages/lisp-xyz.scm (sbcl-lparallel)[arguments]: Add 
'fix-dependency'
      phase to modify system definition to require sb-cltl2.
    
    Signed-off-by: Guillaume Le Vaillant <glv@posteo.net>
---
 gnu/packages/lisp-xyz.scm | 11 +++++++++++
 1 file changed, 11 insertions(+)

diff --git a/gnu/packages/lisp-xyz.scm b/gnu/packages/lisp-xyz.scm
index e92fd0b..d8009c2 100644
--- a/gnu/packages/lisp-xyz.scm
+++ b/gnu/packages/lisp-xyz.scm
@@ -3197,6 +3197,17 @@ WebKit browsing engine.")
      `(("alexandria" ,sbcl-alexandria)
        ("bordeaux-threads" ,sbcl-bordeaux-threads)
        ("trivial-garbage" ,sbcl-trivial-garbage)))
+    (arguments
+     `(#:phases
+       (modify-phases %standard-phases
+         (add-after 'unpack 'fix-dependency
+           ;; lparallel loads a SBCL specific system in its asd file. This is
+           ;; not carried over into the fasl which is generated. In order for
+           ;; it to be carried over, it needs to be listed as a dependency.
+           (lambda _
+             (substitute* "lparallel.asd"
+               ((":depends-on \\(:alexandria" all)
+                (string-append all " #+sbcl :sb-cltl2"))))))))
     (home-page "https://lparallel.org/";)
     (synopsis "Parallelism for Common Lisp")
     (description