Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
A
asdf
Project overview
Project overview
Details
Activity
Releases
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Issues
15
Issues
15
List
Boards
Labels
Service Desk
Milestones
Merge Requests
8
Merge Requests
8
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Operations
Operations
Incidents
Environments
Analytics
Analytics
CI / CD
Repository
Value Stream
Wiki
Wiki
Snippets
Snippets
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
asdf
asdf
Commits
e4bd17dc
Commit
e4bd17dc
authored
Sep 23, 2013
by
Francois-Rene Rideau
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
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
Showing
3 changed files
with
9 additions
and
4 deletions
+9
-4
defsystem.lisp
defsystem.lisp
+1
-1
interface.lisp
interface.lisp
+1
-1
operate.lisp
operate.lisp
+7
-2
No files found.
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-systems*
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