Commit 86f22f03 authored by Francois-Rene Rideau's avatar Francois-Rene Rideau

Tweak message for warning in version-satisfies.

parent 6a10fd80
......@@ -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))
......
......@@ -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)))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment