From 64aa88ea90010e458786ec10c3330c0e0ac0b4e4 Mon Sep 17 00:00:00 2001 From: Francois-Rene Rideau <fare@tunes.org> Date: Wed, 17 Mar 2010 22:21:10 -0400 Subject: [PATCH] Hook into ClozureCL's require as well as into SBCL's (thanks to Gary Byers and R. Matthew Emerson) --- asdf.lisp | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/asdf.lisp b/asdf.lisp index 0c97f34e..04451d9e 100644 --- a/asdf.lisp +++ b/asdf.lisp @@ -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. -- GitLab