From cd5d044673d810beb01a92a69117e61ff4238093 Mon Sep 17 00:00:00 2001
From: Francois-Rene Rideau <tunes@google.com>
Date: Sat, 4 Jan 2014 21:31:38 -0500
Subject: [PATCH] Export primary-system-name.

---
 interface.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/interface.lisp b/interface.lisp
index 18eca7a4..cf8000d6 100644
--- a/interface.lisp
+++ b/interface.lisp
@@ -18,7 +18,7 @@
    :asdf/backward-internals :asdf/backward-interface :asdf/package-system)
   ;; TODO: automatically generate interface with reexport?
   (:export
-   #:defsystem #:find-system #:locate-system #:coerce-name
+   #:defsystem #:find-system #:locate-system #:coerce-name #:primary-system-name
    #:oos #:operate #:make-plan #:perform-plan #:sequential-plan
    #:system-definition-pathname #:with-system-definitions
    #:search-for-system-definition #:find-component #:component-find-path
-- 
GitLab