Changeset 13682 for trunk/source/level-1


Ignore:
Timestamp:
May 6, 2010, 2:39:36 AM (9 years ago)
Author:
rme
Message:

Back out r12260 (use ASDF to provide modules). ASDF now does this itself.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-1/l1-files.lisp

    r13385 r13682  
    13841384
    13851385(defparameter *loading-modules* () "Internal. Prevents circularity")
    1386 (defparameter *module-provider-functions* '(module-provide-search-path module-provide-asdf)
     1386(defparameter *module-provider-functions* '(module-provide-search-path)
    13871387  "A list of functions called by REQUIRE to satisfy an unmet dependency.
    13881388Each 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."
     
    14451445                  (return path)))))))
    14461446
    1447 (defun module-provide-asdf (module)
    1448   (let* ((asdf-package (find-package "ASDF")))
    1449     (when asdf-package
    1450       (let* ((verbose-out (find-symbol "*VERBOSE-OUT*" asdf-package))
    1451              (find-system (find-symbol "FIND-SYSTEM" asdf-package))
    1452              (operate (find-symbol "OPERATE" asdf-package))
    1453              (load-op (find-symbol "LOAD-OP" asdf-package)))
    1454         (when (and verbose-out find-system operate load-op)
    1455           (progv (list verbose-out) (list (make-broadcast-stream))
    1456             (let* ((system (funcall find-system module nil)))
    1457               (when system
    1458                 (funcall operate load-op module)
    1459                 t))))))))
    1460 
    14611447(defun wild-pathname-p (pathname &optional field-key)
    14621448  "Predicate for determining whether pathname contains any wildcards."
Note: See TracChangeset for help on using the changeset viewer.