? ecl.diff
Index: asdf.lisp
===================================================================
RCS file: /cvsroot/cclan/asdf/asdf.lisp,v
retrieving revision 1.86
diff -u -r1.86 asdf.lisp
--- asdf.lisp	19 Jul 2004 21:18:07 -0000	1.86
+++ asdf.lisp	25 Feb 2005 15:57:58 -0000
@@ -1099,4 +1099,16 @@
   
   (pushnew 'module-provide-asdf sb-ext:*module-provider-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))))
+  (pushnew 'module-provide-asdf ext:*module-provider-functions*))
+
 (provide 'asdf)
