Commit c44e68fa authored by Robert Goldman's avatar Robert Goldman
Browse files

Untabify.

parent eade9642
...@@ -9,8 +9,8 @@ ...@@ -9,8 +9,8 @@
;; Happily, all those implementations all have the same module-provider hook interface. ;; Happily, all those implementations all have the same module-provider hook interface.
#+(or abcl clasp cmucl clozure ecl mezzano mkcl sbcl) #+(or abcl clasp cmucl clozure ecl mezzano mkcl sbcl)
(:import-from #+abcl :sys #+(or clasp cmucl ecl) :ext #+clozure :ccl #+mkcl :mk-ext #+sbcl sb-ext #+mezzano :sys.int (:import-from #+abcl :sys #+(or clasp cmucl ecl) :ext #+clozure :ccl #+mkcl :mk-ext #+sbcl sb-ext #+mezzano :sys.int
#:*module-provider-functions* #:*module-provider-functions*
#+ecl #:*load-hooks*) #+ecl #:*load-hooks*)
#+(or clasp mkcl) (:import-from :si #:*load-hooks*)) #+(or clasp mkcl) (:import-from :si #:*load-hooks*))
(in-package :asdf/footer) (in-package :asdf/footer)
...@@ -44,15 +44,15 @@ ...@@ -44,15 +44,15 @@
(setf (gethash 'module-provide-asdf *wrapped-module-provider*) 'module-provide-asdf) (setf (gethash 'module-provide-asdf *wrapped-module-provider*) 'module-provide-asdf)
(defun wrap-module-provider (provider name) (defun wrap-module-provider (provider name)
(let ((results (multiple-value-list (funcall provider name)))) (let ((results (multiple-value-list (funcall provider name))))
(when (first results) (register-preloaded-system (coerce-name name))) (when (first results) (register-preloaded-system (coerce-name name)))
(values-list results))) (values-list results)))
(defun wrap-module-provider-function (provider) (defun wrap-module-provider-function (provider)
(ensure-gethash provider *wrapped-module-provider* (ensure-gethash provider *wrapped-module-provider*
(constantly (constantly
#'(lambda (module-name) #'(lambda (module-name)
(wrap-module-provider provider module-name))))) (wrap-module-provider provider module-name)))))
(setf *module-provider-functions* (setf *module-provider-functions*
(mapcar #'wrap-module-provider-function *module-provider-functions*)))) (mapcar #'wrap-module-provider-function *module-provider-functions*))))
#+cmucl ;; Hook into the CMUCL herald. #+cmucl ;; Hook into the CMUCL herald.
(with-upgradability () (with-upgradability ()
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment