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
asdf
asdf
Commits
0e27f08f
Commit
0e27f08f
authored
Sep 15, 2016
by
Francois-Rene Rideau
Browse files
Let mark-component-preloaded accept any component designator.
Also remove an extraneous assertion.
parent
b12a48c5
Changes
1
Hide whitespace changes
Inline
Side-by-side
operate.lisp
View file @
0e27f08f
...
...
@@ -212,10 +212,9 @@ the implementation's REQUIRE rather than by internal ASDF mechanisms."))
;; but must check whether we can use find-system and short-circuit cl:require.
;; Otherwise, calling cl:require could result in nasty reentrant calls between
;; cl:require and asdf:operate that could potentially blow up the stack.
(
let*
((
module
(
car
arguments
))
(
let*
((
module
(
car
arguments
))
;; NB: we already checked that it was not null
(
name
(
string-downcase
module
))
(
system
(
find-system
name
nil
)))
(
assert
module
)
(
or
system
(
let
((
system
(
make-instance
'require-system
:name
name
)))
(
register-system
system
)
system
))))
...
...
@@ -259,10 +258,11 @@ the implementation's REQUIRE rather than by internal ASDF mechanisms."))
;; It is defined here to resolve what would otherwise be forward package references.
(
defun
mark-component-preloaded
(
component
)
"Mark a component as preloaded."
;; Recurse to children, so asdf/plan will hopefully be happy.
(
map
()
'mark-component-preloaded
(
component-children
component
))
;; Mark the timestamps of the common lisp-action operations as 0.
(
let
((
times
(
component-operation-times
component
)))
(
dolist
(
o
'
(
load-op
compile-op
prepare-op
))
(
setf
(
gethash
o
times
)
0
)))))
(
let
((
component
(
find-component
component
nil
:registered
t
)))
;; Recurse to children, so asdf/plan will hopefully be happy.
(
map
()
'mark-component-preloaded
(
component-children
component
))
;; Mark the timestamps of the common lisp-action operations as 0.
(
let
((
times
(
component-operation-times
component
)))
(
dolist
(
o
'
(
load-op
compile-op
prepare-op
))
(
setf
(
gethash
o
times
)
0
))))))
François-René Rideau
@frideau
mentioned in commit
8c10cdbc
·
Sep 16, 2016
mentioned in commit
8c10cdbc
mentioned in commit 8c10cdbc6a08b4d35ca2272d7864a4d912de2b60
Toggle commit list
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