diff --git a/component.lisp b/component.lisp index 084d61bd7bbc6a9715992e5fea8b6e3e678f4532..28cc30d68993dad36f674dfccd5c437e666b3164 100644 --- a/component.lisp +++ b/component.lisp @@ -286,7 +286,7 @@ another pathname in a degenerate way.")) ;;;; version-satisfies (with-upgradability () (defmethod version-satisfies ((c component) version) - (unless (and version (slot-boundp c '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)) (return-from version-satisfies t))