branch master updated: build: asdf-build-system: Make sbcl-* Lisp packages reproducible.

[guix-commits]

This is an automated email from the git hooks/post-receive script.

glv pushed a commit to branch master
in repository guix.

The following commit(s) were added to refs/heads/master by this push:
     new f98c050  build: asdf-build-system: Make sbcl-* Lisp packages 
reproducible.
f98c050 is described below

commit f98c050c2017be06cff54abf965a8234f6998f76
Author: Guillaume Le Vaillant <address@hidden>
AuthorDate: Wed Jan 8 14:54:01 2020 +0100

    build: asdf-build-system: Make sbcl-* Lisp packages reproducible.
    
    The '*.fasl' files produced by SBCL contain the mtime of the source file 
(see
    commit 72843d7ce32bd615f64a0326cf891658b5724ead of SBCL's code repository).
    As asdf-build-system makes a copy of the source files before compiling them,
    we must set the mtime of these copies to the same date as the originals for
    the build to be reproducible.
    
    * guix/build/asdf-build-system.scm (copy-files-to-output): Keep the
      modification time of the original source files.
---
 guix/build/asdf-build-system.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/guix/build/asdf-build-system.scm b/guix/build/asdf-build-system.scm
index dd6373b..1be2b3c 100644
--- a/guix/build/asdf-build-system.scm
+++ b/guix/build/asdf-build-system.scm
@@ -79,7 +79,7 @@ valid."
   (let ((source (getcwd))
         (target (source-directory out name))
         (system-path (string-append out %system-install-prefix)))
-    (copy-recursively source target)
+    (copy-recursively source target #:keep-mtime? #t)
     (mkdir-p system-path)
     (for-each
      (lambda (file)