me/guix
Archived
1
0
Fork 0
Code Activity

gnu: ecl-slynk: Fix package definition.

Browse source 
* gnu/packages/lisp-xyz.scm (ecl-slynk)[arguments]: Don't use 'union-build',
  just remove the 'build-image' phase.
This commit is contained in:
Guillaume Le Vaillant 2020-10-05 16:07:54 +02:00
parent 87c079d9b5
commit b6c55a723f
No known key found for this signature in database
GPG key ID: 6BE8208ADF21FE3F
1 changed files with 10 additions and 24 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -730,32 +730,18 @@ multiple inspectors with independent history.")
(properties `((cl-source-variant . ,(delay cl-slynk))))))) (properties `((cl-source-variant . ,(delay cl-slynk)))))))
(define-public cl-slynk (define-public cl-slynk
(package (sbcl-package->cl-source-package sbcl-slynk))
(inherit (sbcl-package->cl-source-package sbcl-slynk))
(name "cl-slynk")))
(define-public ecl-slynk (define-public ecl-slynk
(package (let ((pkg (sbcl-package->ecl-package sbcl-slynk)))
(inherit sbcl-slynk) (package
(name "ecl-slynk") (inherit pkg)
(inputs (outputs '("out"))
(map (match-lambda (arguments
((name pkg . _) (substitute-keyword-arguments (package-arguments pkg)
(list name (sbcl-package->ecl-package pkg)))) ((#:phases phases)
(package-inputs sbcl-slynk))) `(modify-phases ,phases
(native-inputs '()) (delete 'build-image))))))))
(outputs '("out"))
(arguments
'(#:modules ((guix build union))
#:builder
(begin
(use-modules (ice-9 match)
(guix build union))
(match %build-inputs
(((names . paths) ...)
(union-build (assoc-ref %outputs "out")
paths)
#t)))))))
(define-public sbcl-parse-js (define-public sbcl-parse-js
(let ((commit "fbadc6029bec7039602abfc06c73bb52970998f6") (let ((commit "fbadc6029bec7039602abfc06c73bb52970998f6")