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
1
Issues
1
List
Boards
Labels
Service Desk
Milestones
Merge Requests
0
Merge Requests
0
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
Hugo Ishimaru
asdf
Commits
4d4b5222
Commit
4d4b5222
authored
Sep 15, 2016
by
Robert Goldman
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Minor docstring typos.
parent
bf5ada67
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
10 additions
and
9 deletions
+10
-9
find-system.lisp
find-system.lisp
+4
-3
operate.lisp
operate.lisp
+6
-6
No files found.
find-system.lisp
View file @
4d4b5222
...
...
@@ -95,9 +95,10 @@ The value returned if true is a pair of a timestamp and a system object."
(
gethash
(
coerce-name
name
)
*defined-systems*
))
(
defun
registered-system
(
name
)
"Return a system of given NAME was registered already.
NAME is a system designator, to be normalized by COERCE-NAME.
The value returned is a system object, or NIL if not found."
"Return a system of given NAME that was registered already,
if such a system exists. NAME is a system designator, to be
normalized by COERCE-NAME. The value returned is a system object,
or NIL if not found."
(
cdr
(
system-registered-p
name
)))
(
defun
registered-systems*
()
...
...
operate.lisp
View file @
4d4b5222
...
...
@@ -165,7 +165,7 @@ to load it in current image."
;; only tries to load its specified target if it's not loaded yet.
(
with-upgradability
()
(
defun
component-loaded-p
(
component
)
"Has given COMPONENT been successfully loaded in the current image (yet)?
"Has
the
given COMPONENT been successfully loaded in the current image (yet)?
Note that this returns true even if the component is not up to date."
(
if-let
((
component
(
find-component
component
()
:registered
t
)))
(
action-already-done-p
nil
(
make-instance
'load-op
)
component
)))
...
...
@@ -175,7 +175,7 @@ Note that this returns true even if the component is not up to date."
(
mapcar
'coerce-name
(
remove-if-not
'component-loaded-p
(
registered-systems*
))))
(
defun
require-system
(
system
&rest
keys
&key
&allow-other-keys
)
"Ensure the specified SYSTEM is loaded, passing the KEYS to OPERATE, but
skip any update to
the
"Ensure the specified SYSTEM is loaded, passing the KEYS to OPERATE, but
do not update
the
system or its dependencies if they have already been loaded."
(
unless
(
component-loaded-p
system
)
(
apply
'load-system
system
:force-not
(
already-loaded-systems
)
keys
))))
...
...
@@ -202,7 +202,7 @@ the implementation's REQUIRE rather than by internal ASDF mechanisms."))
(
defmethod
resolve-dependency-combination
(
component
(
combinator
(
eql
:require
))
arguments
)
(
unless
(
and
(
length=n-p
arguments
1
)
(
typep
(
car
arguments
)
'
(
or
string
(
and
symbol
(
not
null
)))))
(
typep
(
car
arguments
)
'
(
or
string
(
and
symbol
(
not
null
)))))
(
error
(
compatfmt
"~@<Bad dependency ~S for ~S. ~S takes one argument, a string or non-null symbol~@:>"
)
(
cons
combinator
arguments
)
component
combinator
))
;; :require must be prepared for some implementations providing modules using ASDF,
...
...
@@ -234,9 +234,9 @@ the implementation's REQUIRE rather than by internal ASDF mechanisms."))
((
style-warning
#'
muffle-warning
)
(
missing-component
(
constantly
nil
))
(
fatal-condition
#'
(
lambda
(
e
)
(
format
*error-output*
(
compatfmt
"~@<ASDF could not load ~(~A~) because ~A.~@:>~%"
)
name
e
))))
#'
(
lambda
(
e
)
(
format
*error-output*
(
compatfmt
"~@<ASDF could not load ~(~A~) because ~A.~@:>~%"
)
name
e
))))
(
let
((
*verbose-out*
(
make-broadcast-stream
)))
(
let
((
system
(
find-system
module
nil
)))
(
when
system
...
...
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