futurile/guix-play
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

build-system/asdf: Log lisp system invocations.

Browse Source 
* guix/build/lisp-system.scm: (lisp-eval-program): Log the arguments to
system*.

Signed-off-by: Ludovic Courtès <ludo@gnu.org>
This commit is contained in:
Andy Patterson 2018-08-30 01:36:29 -04:00 committed by Ludovic Courtès
parent 7b6b7cdcc5
commit 29a3ffb446
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
guix/build/lisp-utils.scm
View File

@ -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