amaharaneko/guix-mirrors
1
1
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2025-10-02 02:15:12 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: cl-tripod: Fix build.

Browse source 
* 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.
This commit is contained in:
Guillaume Le Vaillant 2023-03-03 10:38:41 +01:00
parent a359b744ce
commit 98cac9dcab
No known key found for this signature in database
GPG key ID: 6BE8208ADF21FE3F
1 changed files with 18 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

21
gnu/packages/lisp-xyz.scm
View file

@ -1047,7 +1047,11 @@ Features:
#~(modify-phases %standard-phases #~(modify-phases %standard-phases
(add-after 'create-asdf-configuration 'build-program (add-after 'create-asdf-configuration 'build-program
(lambda* (#:key outputs #:allow-other-keys) (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 outputs
#:entry-program '((tripod:entry-point)) #:entry-program '((tripod:entry-point))
#:compress? #t)))))) #:compress? #t))))))
@ -1071,10 +1075,21 @@ and Gopher website hosting.")
(license license:bsd-2)))) (license license:bsd-2))))
(define-public cl-tripod (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 (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 (define-public sbcl-trivial-timeout
(let ((commit "feb869357f40f5e109570fb40abad215fb370c6c") (let ((commit "feb869357f40f5e109570fb40abad215fb370c6c")