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