From mboxrd@z Thu Jan 1 00:00:00 1970 Received: from eggs.gnu.org ([2001:4830:134:3::10]:57728) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1cv1dV-00062H-L1 for guix-patches@gnu.org; Mon, 03 Apr 2017 09:03:10 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1cv1dP-00017S-LQ for guix-patches@gnu.org; Mon, 03 Apr 2017 09:03:09 -0400 Received: from debbugs.gnu.org ([208.118.235.43]:60038) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1cv1dP-00017O-I9 for guix-patches@gnu.org; Mon, 03 Apr 2017 09:03:03 -0400 Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1cv1dP-0007Vf-Bd for guix-patches@gnu.org; Mon, 03 Apr 2017 09:03:03 -0400 Subject: bug#26346: [PATCH 03/17] build-system/asdf: Rename %install-prefix to %source-install-prefix. Resent-Message-ID: From: Andy Patterson Date: Mon, 3 Apr 2017 09:01:20 -0400 Message-Id: <20170403130134.18881-3-ajpatter@uwaterloo.ca> In-Reply-To: <20170403130134.18881-1-ajpatter@uwaterloo.ca> References: <20170403003732.1c3b8afb@uwaterloo.ca> <20170403130134.18881-1-ajpatter@uwaterloo.ca> MIME-Version: 1.0 In-Reply-To: <20170403003732.1c3b8afb@uwaterloo.ca> References: <20170403003732.1c3b8afb@uwaterloo.ca> Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guix-patches-bounces+kyle=kyleam.com@gnu.org Sender: "Guix-patches" To: 26346@debbugs.gnu.org * guix/build/lisp-utils.scm (%install-prefix): Rename to %source-install-prefix. (build-install-prefix): Use it. * guix/build/asdf-build-system.scm (source-install-prefix) (%system-install-prefix, source-directory, copy-source): Likewise. --- guix/build/asdf-build-system.scm | 10 +++++----- guix/build/lisp-utils.scm | 10 ++++++---- 2 files changed, 11 insertions(+), 9 deletions(-) diff --git a/guix/build/asdf-build-system.scm b/guix/build/asdf-build-system.scm index 085d073de..c6770c41d 100644 --- a/guix/build/asdf-build-system.scm +++ b/guix/build/asdf-build-system.scm @@ -1,5 +1,5 @@ ;;; GNU Guix --- Functional package management for GNU -;;; Copyright © 2016 Andy Patterson +;;; Copyright © 2016, 2017 Andy Patterson ;;; ;;; This file is part of GNU Guix. ;;; @@ -43,10 +43,10 @@ (define %object-prefix "/lib") (define (source-install-prefix lisp) - (string-append %install-prefix "/" lisp "-source")) + (string-append %source-install-prefix "/" lisp "-source")) (define %system-install-prefix - (string-append %install-prefix "/systems")) + (string-append %source-install-prefix "/systems")) (define (output-path->package-name path) (package-name->name+version (strip-store-file-name path))) @@ -59,7 +59,7 @@ (string-append output (source-install-prefix lisp) "/" name)) (define (source-directory output name) - (string-append output %install-prefix "/source/" name)) + (string-append output %source-install-prefix "/source/" name)) (define (library-directory output lisp) (string-append output %object-prefix @@ -103,7 +103,7 @@ before any compiling so that the compiled source locations will be valid." "Copy the source to \"out\"." (let* ((out (assoc-ref outputs "out")) (name (remove-lisp-from-name (output-path->package-name out) lisp)) - (install-path (string-append out %install-prefix))) + (install-path (string-append out %source-install-prefix))) (copy-files-to-output outputs "out" name) ;; Hide the files from asdf (with-directory-excursion install-path diff --git a/guix/build/lisp-utils.scm b/guix/build/lisp-utils.scm index 55a07c720..47399bc18 100644 --- a/guix/build/lisp-utils.scm +++ b/guix/build/lisp-utils.scm @@ -1,5 +1,5 @@ ;;; GNU Guix --- Functional package management for GNU -;;; Copyright © 2016 Andy Patterson +;;; Copyright © 2016, 2017 Andy Patterson ;;; ;;; This file is part of GNU Guix. ;;; @@ -24,7 +24,7 @@ #:use-module (srfi srfi-26) #:use-module (guix build utils) #:export (%lisp - %install-prefix + %source-install-prefix lisp-eval-program compile-system test-system @@ -54,10 +54,12 @@ ;; File name of the Lisp compiler. (make-parameter "lisp")) -(define %install-prefix "/share/common-lisp") +;; The common parent for Lisp source files, as will as the symbolic +;; link farm for system definition (.asd) files. +(define %source-install-prefix "/share/common-lisp") (define (bundle-install-prefix lisp) - (string-append %install-prefix "/" lisp "-bundle-systems")) + (string-append %source-install-prefix "/" lisp "-bundle-systems")) (define (remove-lisp-from-name name lisp) (string-drop name (1+ (string-length lisp)))) -- 2.11.1