From 86f22f03e46ca47ec6c91b68f77aa96d2a7794ca Mon Sep 17 00:00:00 2001 From: Francois-Rene Rideau <tunes@google.com> Date: Thu, 7 Nov 2013 10:38:03 -0500 Subject: [PATCH] Tweak message for warning in version-satisfies. --- component.lisp | 2 +- test/test-utilities.script | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/component.lisp b/component.lisp index 28cc30d6..83f13ede 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 b24d52bc..32243e4e 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))) -- GitLab