Commit fcca08c2 authored by Robert P. Goldman's avatar Robert P. Goldman
Browse files

Fix from Fare for 1362875. 

Add missing package use and missing function rename.
parent 4333ab31

footer.lisp

+3 −3
Original line number Diff line number Diff line
@@ -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)))