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
Didier Verna
asdf
Commits
86f22f03
Commit
86f22f03
authored
Nov 07, 2013
by
Francois-Rene Rideau
Browse files
Tweak message for warning in version-satisfies.
parent
6a10fd80
Changes
2
Hide whitespace changes
Inline
Side-by-side
component.lisp
View file @
86f22f03
...
...
@@ -288,7 +288,7 @@ another pathname in a degenerate way."))
(
defmethod
version-satisfies
((
c
component
)
version
)
(
unless
(
and
version
(
slot-boundp
c
'version
)
(
component-version
c
))
(
when
version
(
warn
"Requested version ~S but
component
~S has no version"
version
c
))
(
warn
"Requested version ~S but ~S has no version"
version
c
))
(
return-from
version-satisfies
t
))
(
version-satisfies
(
component-version
c
)
version
))
...
...
test/test-utilities.script
View file @
86f22f03
...
...
@@ -35,7 +35,7 @@
(handler-case (version-satisfies (find-system :test-asdf) "666")
(simple-warning (c)
(assert-equal (simple-condition-format-control c)
"Requested version ~S but
component
~S has no version"))
"Requested version ~S but ~S has no version"))
(:no-error (x)
(error "version-satisfies must warn when given component without version")))
(assert (version<= "2.0" (asdf-version)))
...
...
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