diff options
author | Andy Patterson <ajpatter@uwaterloo.ca> | 2017-04-03 09:01:20 -0400 |
---|---|---|
committer | Ricardo Wurmus <rekado@elephly.net> | 2017-05-16 15:18:14 +0200 |
commit | bc389c20a91f05cc905d224e83a768a89ecf83b2 (patch) | |
tree | 0f8e63865042e92c042ca361e61b336083a90327 /guix/build/lisp-utils.scm | |
parent | 75e8b3af69dc3b1544c26ddd52bddb225f217d99 (diff) | |
download | guix-patches-bc389c20a91f05cc905d224e83a768a89ecf83b2.tar guix-patches-bc389c20a91f05cc905d224e83a768a89ecf83b2.tar.gz |
build-system/asdf: Rename %install-prefix to %source-install-prefix.
* 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.
Diffstat (limited to 'guix/build/lisp-utils.scm')
-rw-r--r-- | guix/build/lisp-utils.scm | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/guix/build/lisp-utils.scm b/guix/build/lisp-utils.scm index 55a07c7207..47399bc187 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 <ajpatter@uwaterloo.ca> +;;; Copyright © 2016, 2017 Andy Patterson <ajpatter@uwaterloo.ca> ;;; ;;; 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)))) |