[Top][All Lists]

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

[bug#51914] [PATCH 1/2] build-system/asdf: Don't fail in sbcl-package->c

From: Pierre Neidhardt
Subject: [bug#51914] [PATCH 1/2] build-system/asdf: Don't fail in sbcl-package->cl-source-package on non-package inputs.
Date: Wed, 17 Nov 2021 09:33:52 +0100

Inputs can be non-packages, for instance (origin ...).
sbcl-package->cl-source-package used to fail if such inputs were present in
the parent sbcl-* package.

* guix/build-system/asdf.scm (package-with-build-system): Fix
'has-from-build-system?' function.
 guix/build-system/asdf.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/guix/build-system/asdf.scm b/guix/build-system/asdf.scm
index b4e40ee8c2..538812d620 100644
--- a/guix/build-system/asdf.scm
+++ b/guix/build-system/asdf.scm
@@ -162,7 +162,8 @@ (define (transform-package-name name)
   (define (has-from-build-system? pkg)
-    (eq? from-build-system (package-build-system pkg)))
+    (when (package? pkg)
+      (eq? from-build-system (package-build-system pkg))))
   (define (find-input-package pkg)
     (let* ((name (package-name pkg))

reply via email to

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