01/22: guix: build: Switch from asdf:compile-system to asdf:load-system.

[guix-commits]

glv pushed a commit to branch master
in repository guix.

commit 6b5ef03a2582ab23228478018fd356e17db1daea
Author: Pierre Neidhardt <mail@ambrevar.xyz>
AuthorDate: Fri Jul 1 16:37:44 2022 +0200

    guix: build: Switch from asdf:compile-system to asdf:load-system.
    
    According to the ASDF manual:
    
    This will make sure all the files in the system are compiled, but not
    necessarily load any of them in the current image; on most systems, it
    will _not_ load all compiled files in the current image.  This function
    exists for symmetry with 'load-system' but is not recommended unless you
    are writing build scripts and know what you're doing.
    
    * guix/build/lisp-utils.scm (compile-systems): Switch from 
asdf:compile-system
      to asdf:load-system.
    
    Signed-off-by: Guillaume Le Vaillant <glv@posteo.net>
---
 guix/build/lisp-utils.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/guix/build/lisp-utils.scm b/guix/build/lisp-utils.scm
index 17d2637f87..8403c94cb5 100644
--- a/guix/build/lisp-utils.scm
+++ b/guix/build/lisp-utils.scm
@@ -1,6 +1,7 @@
 ;;; GNU Guix --- Functional package management for GNU
 ;;; Copyright © 2016, 2017 Andy Patterson <ajpatter@uwaterloo.ca>
 ;;; Copyright © 2020 Guillaume Le Vaillant <glv@posteo.net>
+;;; Copyright © 2022 Pierre Neidhardt <mail@ambrevar.xyz>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -116,7 +117,7 @@ Load ASD-FILES first."
               `(asdf:load-asd (truename ,asd-file)))
             asd-files)
      ,@(map (lambda (system)
-              `(asdf:compile-system ,system))
+              `(asdf:load-system ,system))
             systems))))
 
 (define (test-system system asd-files test-asd-file)