[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
04/07: build-system/asdf: Log lisp system invocations.
From: |
Ludovic Courtès |
Subject: |
04/07: build-system/asdf: Log lisp system invocations. |
Date: |
Wed, 19 Sep 2018 12:25:39 -0400 (EDT) |
civodul pushed a commit to branch master
in repository guix.
commit 29a3ffb44623701c2c24b8e921e23d03dde02a4a
Author: Andy Patterson <address@hidden>
Date: Thu Aug 30 01:36:29 2018 -0400
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 <address@hidden>
---
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 3a7afab..9cf479d 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
- branch master updated (4d67925 -> 1d98b44), Ludovic Courtès, 2018/09/19
- 01/07: services: udev: Simplify 'start' method., Ludovic Courtès, 2018/09/19
- 03/07: build-system/asdf: Handle all asdf dependency specifications., Ludovic Courtès, 2018/09/19
- 02/07: services: networking: Remove unbound variable reference in 'stop'., Ludovic Courtès, 2018/09/19
- 04/07: build-system/asdf: Log lisp system invocations.,
Ludovic Courtès <=
- 05/07: build-system/asdf: Use invoke., Ludovic Courtès, 2018/09/19
- 06/07: build-system/asdf: Adopt asdf conventions., Ludovic Courtès, 2018/09/19
- 07/07: gnu: sbcl-slynk: Fix the build., Ludovic Courtès, 2018/09/19