From 1bd188b57d821df5f0d8561831995710d3860cfa Mon Sep 17 00:00:00 2001 From: Francois-Rene Rideau <fare@tunes.org> Date: Mon, 19 Sep 2016 01:20:32 -0400 Subject: [PATCH] Update comments in footer.lisp --- footer.lisp | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/footer.lisp b/footer.lisp index 161feba0d..c167095ed 100644 --- a/footer.lisp +++ b/footer.lisp @@ -25,6 +25,7 @@ ;;;; Hook ASDF into the implementation's REQUIRE and other entry points. #+(or abcl clasp clisp clozure cmucl ecl mkcl sbcl) (with-upgradability () + ;; Hook into CL:REQUIRE. #-clisp (pushnew 'module-provide-asdf *module-provider-functions*) #+clisp (if-let (x (and #+clisp (find-symbol* '#:*module-provider-functions* :custom nil))) (eval `(pushnew 'module-provide-asdf ,x))) @@ -61,15 +62,17 @@ ;;;; Done! (with-upgradability () - #+allegro + #+allegro ;; restore *w-o-n-r-c* setting as saved in uiop/common-lisp (when (boundp 'excl:*warn-on-nested-reader-conditionals*) (setf excl:*warn-on-nested-reader-conditionals* uiop/common-lisp::*acl-warn-save*)) + ;; Advertise the features we provide. (dolist (f '(:asdf :asdf2 :asdf3 :asdf3.1 :asdf-package-system)) (pushnew f *features*)) ;; Provide both lowercase and uppercase, to satisfy more people, especially LispWorks users. (provide "asdf") (provide "ASDF") + ;; Finally, call a function that will cleanup in case this is an upgrade of an older ASDF. (cleanup-upgraded-asdf)) (when *load-verbose* -- GitLab