GNU bug report logs - #32582
[PATCH 0/5] Fix slynk on sbcl.

Previous Next

Full log

Message #11 received at 32582 <at> debbugs.gnu.org (full text, mbox):

From: Andy Patterson <ajpatter <at> uwaterloo.ca>
To: 32582 <at> debbugs.gnu.org
Cc: Andy Patterson <ajpatter <at> uwaterloo.ca>
Subject: [PATCH 2/5] build-system/asdf: Log lisp system invocations.
Date: Thu, 30 Aug 2018 01:36:29 -0400

* 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

Previous Next

GNU bug tracking system
Copyright (C) 1999 Darren O. Benham, 1997,2003 nCipher Corporation Ltd, 1994-97 Ian Jackson.