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
f81f2873
Commit
f81f2873
authored
Apr 15, 2010
by
Francois-Rene Rideau
Browse files
Add a slot to make POIU happy.
parent
cd16a497
Changes
1
Hide whitespace changes
Inline
Side-by-side
asdf.lisp
View file @
f81f2873
...
...
@@ -63,7 +63,7 @@
(
remove
"asdf"
excl::*autoload-package-name-alist*
:test
'equalp
:key
'car
))
(
let*
((
asdf-version
;; the 1+ hair is to ensure that we don't do an inadvertent find and replace
(
subseq
"VERSION:1.70
0
"
(
1+
(
length
"VERSION"
))))
(
subseq
"VERSION:1.70
1
"
(
1+
(
length
"VERSION"
))))
(
existing-asdf
(
find-package
:asdf
))
(
versym
'
#:*asdf-version*
)
(
existing-version
(
and
existing-asdf
(
find-symbol
(
string
versym
)
existing-asdf
)))
...
...
@@ -791,6 +791,8 @@ actually-existing directory."
(
version
:accessor
component-version
:initarg
:version
)
(
in-order-to
:initform
nil
:initarg
:in-order-to
:accessor
component-in-order-to
)
;; This one is used by POIU. Maybe in the future by ASDF instead of in-order-to?
(
load-dependencies
:accessor
component-load-dependencies
:initform
nil
)
;; XXX crap name, but it's an official API name!
(
do-first
:initform
nil
:initarg
:do-first
:accessor
component-do-first
)
...
...
@@ -2024,6 +2026,8 @@ Returns the new tree (which probably shares structure with the old one)"
:when
serial
:do
(
setf
*serial-depends-on*
name
))))
(
compute-module-components-by-name
ret
))
(
setf
(
component-load-dependencies
ret
)
depends-on
)
;; Used by POIU
(
setf
(
component-in-order-to
ret
)
(
union-of-dependencies
in-order-to
...
...
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