From 29a3ffb44623701c2c24b8e921e23d03dde02a4a Mon Sep 17 00:00:00 2001
From: Andy Patterson <ajpatter@uwaterloo.ca>
Date: Thu, 30 Aug 2018 01:36:29 -0400
Subject: [PATCH] build-system/asdf: Log lisp system invocations.
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit
* guix/build/lisp-system.scm: (lisp-eval-program): Log the arguments to
system*.
Signed-off-by: Ludovic Courtès <ludo@gnu.org>
---
guix/build/lisp-utils.scm | 7 ++++---
1 file changed, 4 insertions(+), 3 deletions(-)
diff --git a/guix/build/lisp-utils.scm b/guix/build/lisp-utils.scm
index 3a7afab43d6..9cf479dac56 100644
--- a/guix/build/lisp-utils.scm
+++ b/guix/build/lisp-utils.scm
@@ -119,9 +119,10 @@ (define (wrap-output-translations translations)
(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
--
GitLab