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

Hook into ClozureCL's require as well as into SBCL's

(thanks to Gary Byers and R. Matthew Emerson)
parent 775ce5ff
No related branches found
No related tags found
No related merge requests found
......@@ -2895,9 +2895,9 @@ with a different configuration, so the configuration would be re-read then."
(initialize-source-registry)))
;;;; -----------------------------------------------------------------
;;;; SBCL hook into REQUIRE
;;;; SBCL and ClozureCL hook into REQUIRE
;;;;
#+sbcl
#+(or sbcl clozure)
(progn
(defun module-provide-asdf (name)
(handler-bind ((style-warning #'muffle-warning))
......@@ -2906,7 +2906,9 @@ with a different configuration, so the configuration would be re-read then."
(when system
(asdf:operate 'asdf:load-op name)
t))))
(pushnew 'module-provide-asdf sb-ext:*module-provider-functions*))
(pushnew 'module-provide-asdf
#+sbcl sb-ext:*module-provider-functions*
#+clozure ccl::*module-provider-functions*))
;;;; -------------------------------------------------------------------------
;;;; Cleanups after hot-upgrade.
......
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