diff options
| author | Guillaume Le Vaillant <glv@posteo.net> | 2022-08-03 11:46:17 +0200 |
|---|---|---|
| committer | Guillaume Le Vaillant <glv@posteo.net> | 2022-08-03 16:45:54 +0200 |
| commit | c232375340354f5f137b7495a85ed1df1e0f74c5 (patch) | |
| tree | fc05112a0d2c733a371e461066bf00643f5c6845 /guix/build-system | |
| parent | 369377a0fb113b0f26fb518c7f8653cbd997e23a (diff) | |
build-system: asdf: Add asd-operation parameter.
The 'asd-operation' parameter can be used to specify the ASDF operation to use
in the build phase. It's default value is "load-system".
* guix/build-system/asdf.scm (package-with-build-system, asdf-build): Add
'asd-operation' parameter.
* guix/build/asdf-buid-system.scm (build): Add 'asd-operation' parameter and
use it.
* guix/build/lisp-utils.scm (compile-systems): Add 'asd-operation' parameter
and use it.
Diffstat (limited to 'guix/build-system')
| -rw-r--r-- | guix/build-system/asdf.scm | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/guix/build-system/asdf.scm b/guix/build-system/asdf.scm index 46b0742f6e..74a3e47da1 100644 --- a/guix/build-system/asdf.scm +++ b/guix/build-system/asdf.scm @@ -1,6 +1,6 @@ ;;; GNU Guix --- Functional package management for GNU ;;; Copyright © 2016, 2017 Andy Patterson <ajpatter@uwaterloo.ca> -;;; Copyright © 2019, 2020, 2021 Guillaume Le Vaillant <glv@posteo.net> +;;; Copyright © 2019, 2020, 2021, 2022 Guillaume Le Vaillant <glv@posteo.net> ;;; Copyright © 2021 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2022 Pierre Neidhardt <mail@ambrevar.xyz> ;;; @@ -203,7 +203,7 @@ set up using CL source package conventions." (define base-arguments (if target-is-source? (strip-keyword-arguments - '(#:tests? #:lisp #:asd-systems #:asd-test-systems) + '(#:tests? #:lisp #:asd-systems #:asd-test-systems #:asd-operation) (package-arguments pkg)) (package-arguments pkg))) @@ -273,6 +273,7 @@ set up using CL source package conventions." (tests? #t) (asd-systems ''()) (asd-test-systems ''()) + (asd-operation "load-system") (phases '%standard-phases) (search-paths '()) (system (%current-system)) @@ -309,6 +310,7 @@ set up using CL source package conventions." #:source #+source #:asd-systems #$systems #:asd-test-systems #$test-systems + #:asd-operation #$asd-operation #:system #$system #:tests? #$tests? #:phases #$phases |