From c232375340354f5f137b7495a85ed1df1e0f74c5 Mon Sep 17 00:00:00 2001 From: Guillaume Le Vaillant Date: Wed, 3 Aug 2022 11:46:17 +0200 Subject: 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. --- guix/build/asdf-build-system.scm | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) (limited to 'guix/build/asdf-build-system.scm') diff --git a/guix/build/asdf-build-system.scm b/guix/build/asdf-build-system.scm index 0a3c55c6c4..92154e7d34 100644 --- a/guix/build/asdf-build-system.scm +++ b/guix/build/asdf-build-system.scm @@ -1,6 +1,6 @@ ;;; GNU Guix --- Functional package management for GNU ;;; Copyright © 2016, 2017 Andy Patterson -;;; Copyright © 2020, 2021 Guillaume Le Vaillant +;;; Copyright © 2020, 2021, 2022 Guillaume Le Vaillant ;;; Copyright © 2022 Pierre Neidhardt ;;; ;;; This file is part of GNU Guix. @@ -181,7 +181,7 @@ if it's present in the native-inputs." (setenv "XDG_CONFIG_DIRS" (string-append out "/etc"))) #t) -(define* (build #:key outputs inputs asd-systems +(define* (build #:key outputs inputs asd-systems asd-operation #:allow-other-keys) "Compile the system." (let* ((out (library-output outputs)) @@ -193,7 +193,9 @@ if it's present in the native-inputs." (setenv "ASDF_OUTPUT_TRANSLATIONS" (replace-escaped-macros (format #f "~S" translations))) (setenv "HOME" out) ; ecl's asdf sometimes wants to create $HOME/.cache - (compile-systems asd-systems (lisp-source-directory out system-name))) + (compile-systems asd-systems + (lisp-source-directory out system-name) + asd-operation)) #t) (define* (check #:key tests? outputs inputs asd-test-systems -- cgit v1.2.3