~ruther/guix-local

56db786591f14488656b099aef04539a90821993 — Pierre Neidhardt 4 years ago ad9b5cd 
build-system/asdf: Don't fail in sbcl-package->cl-source-package on non-package inputs.

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.
patch browse .tar.gz .zip 
1 files changed, 2 insertions(+), 1 deletions(-)

M guix/build-system/asdf.scm

M guix/build-system/asdf.scm => guix/build-system/asdf.scm +2 -1
@@ 162,7 162,8 @@ set up using CL source package conventions."
        name))

  (define (has-from-build-system? pkg)
    (eq? from-build-system (package-build-system pkg)))
    (and (package? pkg)
         (eq? from-build-system (package-build-system pkg))))

  (define (find-input-package pkg)
    (let* ((name (package-name pkg))