Changeset 500

Timestamp:

Feb 7, 2004, 5:00:38 PM (21 years ago)

Author:

Gary Byers

Message:

Add a doc string for *MODULE-PROVIDER-FUNCTIONS*; reference it in the
error message if REQUIRE fails.

File:

• trunk/ccl/level-1/l1-files.lisp (modified) (2 diffs)

trunk/ccl/level-1/l1-files.lisp

@@ -1171 +1171 @@
 
 (defparameter *loading-modules* () "Internal. Prevents circularity")
-(defparameter *module-provider-functions* '(module-provide-search-path))
+(defparameter *module-provider-functions* '(module-provide-search-path)
+  "A list of functions called by REQUIRE to satisfy an unmet dependency.
+Each function receives a module name as a single argument; if the function knows how to load that module, it should do so, add the module's name as a string to *MODULES* (perhaps by calling PROVIDE) and return non-NIL."
+  )
 
 (defun module-provide-search-path (module)
@@ -1200 +1203 @@
           (unless (some (lambda (p) (funcall p module))
                         *module-provider-functions*)
-            (error "Don't know how to load ~A" module)))))
+            (error "Module ~A was not provided by any function on" module '*module-provider-functions*)))))
     (values module
             (set-difference *modules* original-modules))))