Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
asdf
asdf
Commits
dfd6b4af
Commit
dfd6b4af
authored
May 05, 2010
by
Francois-Rene Rideau
Browse files
1.718: add module provider hook for CMUCL, ECL.
Cleanup a few methods on ECL (moderately tested with cl-launch).
parent
9d0f83b7
Changes
2
Hide whitespace changes
Inline
Side-by-side
asdf.lisp
View file @
dfd6b4af
...
...
@@ -70,7 +70,7 @@
:test
'equalp
:key
'car
))
(
let*
((
asdf-version
;; the 1+ helps the version bumping script discriminate
(
subseq
"VERSION:1.71
7
"
(
1+
(
length
"VERSION"
))))
(
subseq
"VERSION:1.71
8
"
(
1+
(
length
"VERSION"
))))
(
existing-asdf
(
find-package
:asdf
))
(
vername
'
#:*asdf-version*
)
(
versym
(
and
existing-asdf
...
...
@@ -1661,9 +1661,10 @@ recursive calls to traverse.")
(
defmethod
perform
:after
((
o
compile-op
)
(
c
cl-source-file
))
;; Note how we use OUTPUT-FILES to find the binary locations
;; This allows the user to override the names.
(
let*
((
input
(
output-files
o
c
))
(
output
(
compile-file-pathname
(
lispize-pathname
(
first
input
))
:type
:fasl
)))
(
c:build-fasl
output
:lisp-files
(
remove
"fas"
input
:key
#'
pathname-type
:test
#'
string=
))))
(
let*
((
files
(
output-files
o
c
))
(
object
(
first
files
))
(
fasl
(
second
files
)))
(
c:build-fasl
fasl
:lisp-files
(
list
object
))))
(
defmethod
perform
:after
((
operation
operation
)
(
c
component
))
(
setf
(
gethash
(
type-of
operation
)
(
component-operation-times
c
))
...
...
@@ -1699,8 +1700,7 @@ recursive calls to traverse.")
(
declare
(
ignorable
operation
))
(
let
((
p
(
lispize-pathname
(
component-pathname
c
))))
#-
:broken-fasl-loader
(
list
#-
ecl
(
compile-file-pathname
p
)
#+
ecl
(
compile-file-pathname
p
:type
:object
)
(
list
(
compile-file-pathname
p
#+
ecl
:type
#+
ecl
:object
)
#+
ecl
(
compile-file-pathname
p
:type
:fasl
))
#+
:broken-fasl-loader
(
list
p
)))
...
...
@@ -3281,9 +3281,9 @@ with a different configuration, so the configuration would be re-read then."
(
initialize-source-registry
)))
;;;; -----------------------------------------------------------------
;;;; Hook into REQUIRE for
S
BCL, ClozureCL and
A
BCL
;;;; Hook into REQUIRE for
A
BCL, ClozureCL
, CMUCL, ECL
and
S
BCL
;;;;
#+
(
or
s
bcl
clozure
a
bcl
)
#+
(
or
a
bcl
clozure
cmu
ecl
s
bcl
)
(
progn
(
defun
module-provide-asdf
(
name
)
(
handler-bind
...
...
@@ -3298,9 +3298,11 @@ with a different configuration, so the configuration would be re-read then."
(
load-system
name
)
t
))))
(
pushnew
'module-provide-asdf
#+
s
bcl
s
b-ext
:*module-provider-functions*
#+
a
bcl
s
ys:
:*module-provider-functions*
#+
clozure
ccl::*module-provider-functions*
#+
abcl
sys::*module-provider-functions*
))
#+
cmu
ext:*module-provider-functions*
#+
ecl
si:*module-provider-functions*
#+
sbcl
sb-ext:*module-provider-functions*
))
;;;; -------------------------------------------------------------------------
;;;; Cleanups after hot-upgrade.
...
...
doc/asdf.texinfo
View file @
dfd6b4af
...
...
@@ -552,7 +552,7 @@ by evaluating the following Lisp form:
(asdf:load-system :@var
{
foo
}
)
@end example
On some implementations (namely ABCL, Clozure CL and SBCL),
On some implementations (namely ABCL, Clozure CL
, CMUCL, ECL
and SBCL),
ASDF hooks into the @code
{
CL:REQUIRE
}
facility
and you can just use:
...
...
@@ -2788,7 +2788,7 @@ if you allow such configuration.
@item
If your system provides a mechanism to hook into @code
{
CL:REQUIRE
}
,
then it would be nice to add ASDF to this hook the same way that
S
BCL, CCL and
A
BCL do it.
A
BCL, CCL
, CMUCL, ECL
and
S
BCL do it.
@item
You may, like SBCL, have ASDF be implicitly used to require systems
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a 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