From 7db34d2940949683e6bd727be85cd209e64ceeae Mon Sep 17 00:00:00 2001
From: "Robert P. Goldman" <rpgoldman@gmail.com>
Date: Tue, 15 Apr 2014 08:51:23 -0500
Subject: [PATCH] Fix default behavior of VERSION-SATISFIES.

Previously, if a component's version slot was unbound, it would match
*all* version specifications.  This is obviously wrong, because it means
you can't detect when a system goes from unversioned to versioned.
Changed this to an interpretation that an unbound version slot matches
NO version specifications.
---
 component.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/component.lisp b/component.lisp
index ac1c206d..e023646f 100644
--- a/component.lisp
+++ b/component.lisp
@@ -276,7 +276,7 @@ children.")))
     (unless (and version (slot-boundp c 'version) (component-version c))
       (when version
         (warn "Requested version ~S but ~S has no version" version c))
-      (return-from version-satisfies t))
+      (return-from version-satisfies nil))
     (version-satisfies (component-version c) version))
 
   (defmethod version-satisfies ((cver string) version)
-- 
GitLab