Ignore:
Timestamp:
Jul 27, 2010, 1:04:54 AM (9 years ago)
Author:
gz
Message:

assume newer asdf (r13682)

Location:
branches/qres/ccl
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • branches/qres/ccl

  • branches/qres/ccl/level-1/l1-files.lisp

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