From fcca08c2e69a04fe2918f4c8328805a25da5d216 Mon Sep 17 00:00:00 2001
From: "Robert P. Goldman" <rpgoldman@gmail.com>
Date: Fri, 29 Aug 2014 11:13:09 -0500
Subject: [PATCH] Fix from Fare for 1362875.

Add missing package use and missing function rename.
---
 footer.lisp | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/footer.lisp b/footer.lisp
index f90c8ef47..f78a76354 100644
--- a/footer.lisp
+++ b/footer.lisp
@@ -3,7 +3,8 @@
 
 (uiop/package:define-package :asdf/footer
   (:recycle :asdf/footer :asdf)
-  (:use :uiop/common-lisp :uiop :asdf/upgrade :asdf/operate :asdf/bundle))
+  (:use :uiop/common-lisp :uiop
+        :asdf/upgrade :asdf/find-system :asdf/operate :asdf/bundle))
 (in-package :asdf/footer)
 
 ;;;; Hook ASDF into the implementation's REQUIRE and other entry points.
@@ -33,7 +34,7 @@
                 (if (eq f 'module-provide-asdf) f
                     #'(lambda (name)
                         (let ((l (multiple-value-list (funcall f name))))
-                          (and (first l) (register-pre-built-system (coerce-name name)))
+                          (and (first l) (register-preloaded-system (coerce-name name)))
                           (values-list l))))))))
 
 #+cmu ;; Hook into the CMUCL herald.
@@ -58,4 +59,3 @@
 
 (when *load-verbose*
   (asdf-message ";; ASDF, version ~a~%" (asdf-version)))
-
-- 
GitLab