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