diff options
| author | Andy Patterson <ajpatter@uwaterloo.ca> | 2018-08-30 01:36:29 -0400 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2018-09-19 18:25:28 +0200 |
| commit | 29a3ffb44623701c2c24b8e921e23d03dde02a4a (patch) | |
| tree | 814a0d77bf2ed393e6994e9a732df64d81a42170 | |
| parent | 7b6b7cdcc5d50cb25c140145b30028c5569c62af (diff) | |
| download | guix-29a3ffb44623701c2c24b8e921e23d03dde02a4a.tar.gz | |
build-system/asdf: Log lisp system invocations.
* guix/build/lisp-system.scm: (lisp-eval-program): Log the arguments to system*. Signed-off-by: Ludovic Courtès <ludo@gnu.org>
| -rw-r--r-- | guix/build/lisp-utils.scm | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/guix/build/lisp-utils.scm b/guix/build/lisp-utils.scm index 3a7afab43d..9cf479dac5 100644 --- a/guix/build/lisp-utils.scm +++ b/guix/build/lisp-utils.scm @@ -119,9 +119,10 @@ name of an ASD system, and asd-file is the full path to its definition." (define (lisp-eval-program program) "Evaluate PROGRAM with a given LISP implementation." - (unless (zero? (apply system* - (lisp-invocation program))) - (error "lisp-eval-program failed!" (%lisp) program))) + (define invocation (lisp-invocation program)) + (format #t "Invoking ~a: ~{~s ~}~%" (%lisp-type) invocation) + (unless (zero? (apply system* invocation)) + (error "lisp-eval-program failed!" invocation))) (define (spread-statements program argument-name) "Return a list with the statements from PROGRAM spread between |