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
e4bd17dc
Commit
e4bd17dc
authored
Sep 23, 2013
by
Francois-Rene Rideau
Browse files
Introduce load-systems* as a variant of load-systems that allows for keyword arguments.
parent
285a61e9
Changes
3
Hide whitespace changes
Inline
Side-by-side
defsystem.lisp
View file @
e4bd17dc
...
...
@@ -222,7 +222,7 @@
(
defsystem-dependencies
(
loop
:for
spec
:in
defsystem-depends-on
:collect
(
resolve-dependency-spec
nil
spec
))))
(
setf
(
gethash
name
*systems-being-defined*
)
system
)
(
apply
'
load-systems
defsystem-dependencies
)
(
load-systems
*
defsystem-dependencies
)
;; We change-class AFTER we loaded the defsystem-depends-on
;; since the class might be defined as part of those.
(
let
((
class
(
class-for-type
nil
class
)))
...
...
interface.lisp
View file @
e4bd17dc
...
...
@@ -22,7 +22,7 @@
#:oos
#:operate
#:make-plan
#:perform-plan
#:sequential-plan
#:system-definition-pathname
#:with-system-definitions
#:search-for-system-definition
#:find-component
#:component-find-path
#:compile-system
#:load-system
#:load-systems
#:compile-system
#:load-system
#:load-systems
#:load-systems*
#:require-system
#:test-system
#:clear-system
#:operation
#:make-operation
#:find-operation
#:upward-operation
#:downward-operation
#:sideway-operation
#:selfward-operation
...
...
operate.lisp
View file @
e4bd17dc
...
...
@@ -10,7 +10,8 @@
#:operate
#:oos
#:*systems-being-operated*
#:build-system
#:load-system
#:load-systems
#:compile-system
#:test-system
#:require-system
#:load-system
#:load-systems
#:load-systems*
#:compile-system
#:test-system
#:require-system
#:*load-system-operation*
#:module-provide-asdf
#:component-loaded-p
#:already-loaded-systems
))
(
in-package
:asdf/operate
)
...
...
@@ -120,9 +121,13 @@ for how to load or compile stuff")
(
apply
'operate
*load-system-operation*
system
keys
)
t
)
(
defun
load-systems*
(
systems
&rest
keys
)
"Loading multiple systems at once."
(
dolist
(
s
systems
)
(
apply
'load-system
s
keys
)))
(
defun
load-systems
(
&rest
systems
)
"Loading multiple systems at once."
(
map
()
'
load-system
systems
))
(
load-system
s*
systems
))
(
defun
compile-system
(
system
&rest
args
&key
force
force-not
verbose
version
&allow-other-keys
)
"Shorthand for `(asdf:operate 'asdf:compile-op system)`. See OPERATE for details."
...
...
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