guix-commits
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

branch master updated: guix: build: Fix asdf-build-system/ecl.


From: guix-commits
Subject: branch master updated: guix: build: Fix asdf-build-system/ecl.
Date: Wed, 01 Jul 2020 10:15:05 -0400

This is an automated email from the git hooks/post-receive script.

glv pushed a commit to branch master
in repository guix.

The following commit(s) were added to refs/heads/master by this push:
     new cdf34ee  guix: build: Fix asdf-build-system/ecl.
cdf34ee is described below

commit cdf34eed3302951fec198c1e5ac26d36d91d2440
Author: Guillaume Le Vaillant <glv@posteo.net>
AuthorDate: Wed Jul 1 15:49:39 2020 +0200

    guix: build: Fix asdf-build-system/ecl.
    
    * guix/build/lisp-utils.scm (make-asd-file): Fix value of 'component?'
      parameter when using ECL.
---
 guix/build/lisp-utils.scm | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/guix/build/lisp-utils.scm b/guix/build/lisp-utils.scm
index 5bb3d81..f6d9168 100644
--- a/guix/build/lisp-utils.scm
+++ b/guix/build/lisp-utils.scm
@@ -327,8 +327,12 @@ system to find its dependencies, as described by 
GENERATE-DEPENDENCY-LINKS."
                  #:version version
                  #:dependencies dependencies
                  ;; Some .asd don't have components, and thus they don't 
generate any .fasl.
-                 #:component? (pair?
-                               (find-files (dirname asd-file) 
"--system\\.fasl$")))
+                 #:component? (match (%lisp-type)
+                                ("sbcl" (pair? (find-files (dirname asd-file)
+                                                           
"--system\\.fasl$")))
+                                ("ecl" (pair? (find-files (dirname asd-file)
+                                                          "\\.fasb$")))
+                                (_ (error "The LISP provided is not supported 
at this time."))))
                 (generate-dependency-links registry system)))
        port))))
 



reply via email to

[Prev in Thread] Current Thread [Next in Thread]