02/02: gnu: sbcl-trivial-backtrace: Fix build reproducibility.

[guix-commits]

glv pushed a commit to branch master
in repository guix.

commit 8dc2af3ba541141d8320e860cec31090d5b69dc0
Author: Guillaume Le Vaillant <address@hidden>
AuthorDate: Sun Jan 12 11:40:22 2020 +0100

    gnu: sbcl-trivial-backtrace: Fix build reproducibility.
    
    * gnu/packages/lisp.scm (sbcl-trivial-backtrace)[arguments]: Add
      'delete-test-results' phase.
---
 gnu/packages/lisp-xyz.scm | 13 +++++++++++++
 1 file changed, 13 insertions(+)

diff --git a/gnu/packages/lisp-xyz.scm b/gnu/packages/lisp-xyz.scm
index 8d9cf53..cffd43c 100644
--- a/gnu/packages/lisp-xyz.scm
+++ b/gnu/packages/lisp-xyz.scm
@@ -3376,6 +3376,19 @@ client and server.")
      (build-system asdf-build-system/sbcl)
      (inputs
       `(("sbcl-lift" ,sbcl-lift)))
+     (arguments
+      `(#:phases
+        (modify-phases %standard-phases
+          (add-after 'check 'delete-test-results
+            (lambda* (#:key outputs #:allow-other-keys)
+              (let ((test-results (string-append (assoc-ref outputs "out")
+                                                 "/share/common-lisp/"
+                                                 (%lisp-type) "-source"
+                                                 "/trivial-backtrace"
+                                                 "/test-results")))
+                (when (file-exists? test-results)
+                  (delete-file-recursively test-results)))
+              #t)))))
      (home-page "https://common-lisp.net/project/trivial-backtrace/";)
      (synopsis "Portable simple API to work with backtraces in Common Lisp")
      (description