Skip to content
Snippets Groups Projects
Commit 1bd188b5 authored by Francois-Rene Rideau's avatar Francois-Rene Rideau
Browse files

Update comments in footer.lisp

parent ac543b76
No related branches found
No related tags found
No related merge requests found
...@@ -25,6 +25,7 @@ ...@@ -25,6 +25,7 @@
;;;; Hook ASDF into the implementation's REQUIRE and other entry points. ;;;; Hook ASDF into the implementation's REQUIRE and other entry points.
#+(or abcl clasp clisp clozure cmucl ecl mkcl sbcl) #+(or abcl clasp clisp clozure cmucl ecl mkcl sbcl)
(with-upgradability () (with-upgradability ()
;; Hook into CL:REQUIRE.
#-clisp (pushnew 'module-provide-asdf *module-provider-functions*) #-clisp (pushnew 'module-provide-asdf *module-provider-functions*)
#+clisp (if-let (x (and #+clisp (find-symbol* '#:*module-provider-functions* :custom nil))) #+clisp (if-let (x (and #+clisp (find-symbol* '#:*module-provider-functions* :custom nil)))
(eval `(pushnew 'module-provide-asdf ,x))) (eval `(pushnew 'module-provide-asdf ,x)))
...@@ -61,15 +62,17 @@ ...@@ -61,15 +62,17 @@
;;;; Done! ;;;; Done!
(with-upgradability () (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*) (when (boundp 'excl:*warn-on-nested-reader-conditionals*)
(setf excl:*warn-on-nested-reader-conditionals* uiop/common-lisp::*acl-warn-save*)) (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*)) (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 both lowercase and uppercase, to satisfy more people, especially LispWorks users.
(provide "asdf") (provide "ASDF") (provide "asdf") (provide "ASDF")
;; Finally, call a function that will cleanup in case this is an upgrade of an older ASDF.
(cleanup-upgraded-asdf)) (cleanup-upgraded-asdf))
(when *load-verbose* (when *load-verbose*
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment