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