Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
Jan Moringen
asdf
Commits
c44e68fa
Commit
c44e68fa
authored
Mar 07, 2018
by
Robert Goldman
Browse files
Untabify.
parent
eade9642
Changes
1
Hide whitespace changes
Inline
Side-by-side
footer.lisp
View file @
c44e68fa
...
...
@@ -9,8 +9,8 @@
;; Happily, all those implementations all have the same module-provider hook interface.
#+
(
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
#:*module-provider-functions*
#+
ecl
#:*load-hooks*
)
#:*module-provider-functions*
#+
ecl
#:*load-hooks*
)
#+
(
or
clasp
mkcl
)
(
:import-from
:si
#:*load-hooks*
))
(
in-package
:asdf/footer
)
...
...
@@ -44,15 +44,15 @@
(
setf
(
gethash
'module-provide-asdf
*wrapped-module-provider*
)
'module-provide-asdf
)
(
defun
wrap-module-provider
(
provider
name
)
(
let
((
results
(
multiple-value-list
(
funcall
provider
name
))))
(
when
(
first
results
)
(
register-preloaded-system
(
coerce-name
name
)))
(
values-list
results
)))
(
when
(
first
results
)
(
register-preloaded-system
(
coerce-name
name
)))
(
values-list
results
)))
(
defun
wrap-module-provider-function
(
provider
)
(
ensure-gethash
provider
*wrapped-module-provider*
(
constantly
#'
(
lambda
(
module-name
)
(
wrap-module-provider
provider
module-name
)))))
(
constantly
#'
(
lambda
(
module-name
)
(
wrap-module-provider
provider
module-name
)))))
(
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.
(
with-upgradability
()
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment