diff --git a/component.lisp b/component.lisp index 28cc30d68993dad36f674dfccd5c437e666b3164..83f13edecdca8ae62c119c2a18a8c1b1217816a8 100644 --- a/component.lisp +++ b/component.lisp @@ -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)) diff --git a/test/test-utilities.script b/test/test-utilities.script index b24d52bca6cc1801e2e9e1e0db5b49d66d0b8b86..32243e4ec7b6aa0a76cdb521a53170f61eeb0207 100644 --- a/test/test-utilities.script +++ b/test/test-utilities.script @@ -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)))