summaryrefslogtreecommitdiff
path: root/guix
diff options
context:
space:
mode:
authorGuillaume Le Vaillant <glv@posteo.net>2020-09-15 22:00:29 +0200
committerGuillaume Le Vaillant <glv@posteo.net>2020-09-15 22:00:29 +0200
commite0d9103f416d5c6e6c0c230f08dc9392bb8e8df1 (patch)
tree6534be3958fb609affebb1e92a398e127ede0197 /guix
parent12df8b7b88554cdc73eb10090eb07dfdfd1f5788 (diff)
build-system: asdf: Improve install phase for CL source packages.
* guix/build/asdf-build-system.scm (install)[parent-source]: Add support for package names not containing a hyphen.
Diffstat (limited to 'guix')
-rw-r--r--guix/build/asdf-build-system.scm13
1 files changed, 8 insertions, 5 deletions
diff --git a/guix/build/asdf-build-system.scm b/guix/build/asdf-build-system.scm
index 26d295e083..6ad855cab2 100644
--- a/guix/build/asdf-build-system.scm
+++ b/guix/build/asdf-build-system.scm
@@ -124,9 +124,10 @@ if it's present in the native-inputs."
(package-name->name+version
(strip-store-file-name output)))
(define (no-prefix pkgname)
- (if (string-index pkgname #\-)
- (string-drop pkgname (1+ (string-index pkgname #\-)))
- pkgname))
+ (let ((index (string-index pkgname #\-)))
+ (if index
+ (string-drop pkgname (1+ index))
+ pkgname)))
(define parent
(match (assoc package-name inputs
(lambda (key alist-car)
@@ -142,8 +143,10 @@ if it's present in the native-inputs."
(define parent-source
(and parent
(string-append parent "/share/common-lisp/"
- (string-take parent-name
- (string-index parent-name #\-)))))
+ (let ((index (string-index parent-name #\-)))
+ (if index
+ (string-take parent-name index)
+ parent-name)))))
(define (first-subdirectory directory) ; From gnu-build-system.
"Return the file name of the first sub-directory of DIRECTORY."