From mboxrd@z Thu Jan 1 00:00:00 1970 Received: from eggs.gnu.org ([2001:4830:134:3::10]:35593) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1fvFdi-0000QH-7D for guix-patches@gnu.org; Thu, 30 Aug 2018 01:37:06 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1fvFdf-0005fW-C7 for guix-patches@gnu.org; Thu, 30 Aug 2018 01:37:06 -0400 Received: from debbugs.gnu.org ([208.118.235.43]:32782) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1fvFdf-0005fB-87 for guix-patches@gnu.org; Thu, 30 Aug 2018 01:37:03 -0400 Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1fvFdf-00076c-4D for guix-patches@gnu.org; Thu, 30 Aug 2018 01:37:03 -0400 Subject: [bug#32582] [PATCH 2/5] build-system/asdf: Log lisp system invocations. Resent-Message-ID: From: Andy Patterson Date: Thu, 30 Aug 2018 01:36:29 -0400 Message-Id: <20180830053632.26414-2-ajpatter@uwaterloo.ca> In-Reply-To: <20180830012813.7830cfc6@uwaterloo.ca> References: <20180830012813.7830cfc6@uwaterloo.ca> List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guix-patches-bounces+kyle=kyleam.com@gnu.org Sender: "Guix-patches" To: 32582@debbugs.gnu.org * guix/build/lisp-system.scm: (lisp-eval-program): Log the arguments to system*. --- 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 3a7afab43..9cf479dac 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 -- 2.18.0