diff --git a/guix/build/asdf-build-system.scm b/guix/build/asdf-build-system.scm
index 085d073dea..c6770c41d1 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 <ajpatter@uwaterloo.ca>
+;;; Copyright © 2016, 2017 Andy Patterson <ajpatter@uwaterloo.ca>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -43,10 +43,10 @@ (define-module (guix build asdf-build-system)
 (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 @@ (define (lisp-source-directory output lisp name)
   (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 @@ (define* (copy-source #:key outputs lisp #:allow-other-keys)
   "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 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 @@ (define-module (guix build lisp-utils)
   #: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 @@ (define %lisp
   ;; 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))))