Commit 7db34d29 authored by Robert P. Goldman's avatar Robert P. Goldman
Browse files

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.
parent 0117d8ca

component.lisp

+1 −1
Original line number Diff line number Diff line
@@ -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)