[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
04/04: gnu: cl-tripod: Fix build.
From: |
guix-commits |
Subject: |
04/04: gnu: cl-tripod: Fix build. |
Date: |
Fri, 3 Mar 2023 05:09:35 -0500 (EST) |
glv pushed a commit to branch master
in repository guix.
commit 98cac9dcabbf15b156240876f5bd36707ea3f574
Author: Guillaume Le Vaillant <glv@posteo.net>
AuthorDate: Fri Mar 3 10:38:41 2023 +0100
gnu: cl-tripod: Fix build.
* gnu/packages/lisp-xyz.scm (sbcl-tripod)[arguments]: Use the 'assoc-ref'
form
for the bin output.
(cl-tripod)[outputs]: Remove bin.
(ecl-tripod)[outputs]: Remove bin.
[arguments]: Remove 'build-program' phase.
---
gnu/packages/lisp-xyz.scm | 21 ++++++++++++++++++---
1 file changed, 18 insertions(+), 3 deletions(-)
diff --git a/gnu/packages/lisp-xyz.scm b/gnu/packages/lisp-xyz.scm
index dcc0778975..a8792dee52 100644
--- a/gnu/packages/lisp-xyz.scm
+++ b/gnu/packages/lisp-xyz.scm
@@ -1047,7 +1047,11 @@ Features:
#~(modify-phases %standard-phases
(add-after 'create-asdf-configuration 'build-program
(lambda* (#:key outputs #:allow-other-keys)
- (build-program (string-append #$output:bin "/bin/tripod")
+ ;; FIXME: Using #$output:bin here prevents cl-tripod and
+ ;; ecl-tripod from building, but using assoc-ref works.
+ (build-program (string-append ;; #$output:bin
+ (assoc-ref outputs "bin")
+ "/bin/tripod")
outputs
#:entry-program '((tripod:entry-point))
#:compress? #t))))))
@@ -1071,10 +1075,21 @@ and Gopher website hosting.")
(license license:bsd-2))))
(define-public cl-tripod
- (sbcl-package->cl-source-package sbcl-tripod))
+ ;; No "bin" output for the source package.
+ (let ((pkg (sbcl-package->cl-source-package sbcl-tripod)))
+ (package/inherit pkg
+ (outputs '("out")))))
(define-public ecl-tripod
- (sbcl-package->ecl-package sbcl-tripod))
+ ;; FIXME: Making a standalone binary doesn't work with ECL.
+ (let ((pkg (sbcl-package->ecl-package sbcl-tripod)))
+ (package/inherit pkg
+ (outputs '("out"))
+ (arguments
+ (substitute-keyword-arguments (package-arguments pkg)
+ ((#:phases phases)
+ #~(modify-phases #$phases
+ (delete 'build-program))))))))
(define-public sbcl-trivial-timeout
(let ((commit "feb869357f40f5e109570fb40abad215fb370c6c")