Skip to content
Snippets Groups Projects
Commit 86f22f03 authored by Francois-Rene Rideau's avatar Francois-Rene Rideau
Browse files

Tweak message for warning in version-satisfies.

parent 6a10fd80
No related branches found
No related tags found
No related merge requests found
...@@ -288,7 +288,7 @@ another pathname in a degenerate way.")) ...@@ -288,7 +288,7 @@ another pathname in a degenerate way."))
(defmethod version-satisfies ((c component) version) (defmethod version-satisfies ((c component) version)
(unless (and version (slot-boundp c 'version) (component-version c)) (unless (and version (slot-boundp c 'version) (component-version c))
(when version (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)) (return-from version-satisfies t))
(version-satisfies (component-version c) version)) (version-satisfies (component-version c) version))
......
...@@ -35,7 +35,7 @@ ...@@ -35,7 +35,7 @@
(handler-case (version-satisfies (find-system :test-asdf) "666") (handler-case (version-satisfies (find-system :test-asdf) "666")
(simple-warning (c) (simple-warning (c)
(assert-equal (simple-condition-format-control 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) (:no-error (x)
(error "version-satisfies must warn when given component without version"))) (error "version-satisfies must warn when given component without version")))
(assert (version<= "2.0" (asdf-version))) (assert (version<= "2.0" (asdf-version)))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment