From 8edb65a5017727c359ee670d8910fb67a74bd47e Mon Sep 17 00:00:00 2001
From: jgarcia <jgarcia>
Date: Sat, 2 Feb 2008 21:54:43 +0000
Subject: [PATCH] The facility for REQUIREing asdf modules was missing

---
 contrib/asdf/asdf.lisp | 13 +++++++++++++
 1 file changed, 13 insertions(+)

diff --git a/contrib/asdf/asdf.lisp b/contrib/asdf/asdf.lisp
index 878246965..6ef901f17 100644
--- a/contrib/asdf/asdf.lisp
+++ b/contrib/asdf/asdf.lisp
@@ -1309,5 +1309,18 @@ output to *VERBOSE-OUT*.  Returns the shell's exit code."
   (pushnew 'module-provide-asdf sb-ext:*module-provider-functions*)
   (pushnew 'contrib-sysdef-search *system-definition-search-functions*))
 
+;; Hook into ECL's require/provide
+#+ecl
+(progn
+  (defun module-provide-asdf (name)
+    (handler-bind ((style-warning #'muffle-warning))
+      (let* ((*verbose-out* (make-broadcast-stream))
+	     (system (asdf:find-system name nil)))
+	(when system
+	  (asdf:operate 'asdf:load-op name)
+	  t))))
+  #+win32 (push '("asd" . si::load-source) si::*load-hooks*)
+  (pushnew 'module-provide-asdf ext:*module-provider-functions*))
+
 (provide 'asdf)