From 6b8f7c397aa9c8b3f078153b1b6a90db3bb0b79e Mon Sep 17 00:00:00 2001 From: Guillaume Le Vaillant Date: Sun, 12 Jan 2020 14:29:41 +0100 Subject: build: asdf-build-system: Improve reproducibility. * guix/build/asdf-build-system.scm (copy-files-to-output): Reset timestamps of source files before compiling. --- guix/build/asdf-build-system.scm | 9 +++++++++ 1 file changed, 9 insertions(+) (limited to 'guix/build') diff --git a/guix/build/asdf-build-system.scm b/guix/build/asdf-build-system.scm index 1be2b3c5f0..f3f4b49bcf 100644 --- a/guix/build/asdf-build-system.scm +++ b/guix/build/asdf-build-system.scm @@ -79,6 +79,15 @@ valid." (let ((source (getcwd)) (target (source-directory out name)) (system-path (string-append out %system-install-prefix))) + ;; SBCL keeps the modification time of the source file in the compiled + ;; file, and the source files might just have been patched by a custom + ;; phase. Therefore we reset the modification time of all the source + ;; files before compiling. + (for-each (lambda (file) + (let ((s (lstat file))) + (unless (eq? (stat:type s) 'symlink) + (utime file 0 0 0 0)))) + (find-files source #:directories? #t)) (copy-recursively source target #:keep-mtime? #t) (mkdir-p system-path) (for-each -- cgit v1.2.3