Commit b01f7a7f authored by Francois-Rene Rideau's avatar Francois-Rene Rideau
Browse files

Fix a bug in version-satisfies, found by stassats,

when a component has a NIL version.
The :initform nil was added in asdf 2.27, so we must handle this case,
but reset-system still drops the version
so we must still check for slot-boundp.
parent 0079d25f
...@@ -286,7 +286,7 @@ another pathname in a degenerate way.")) ...@@ -286,7 +286,7 @@ another pathname in a degenerate way."))
;;;; version-satisfies ;;;; version-satisfies
(with-upgradability () (with-upgradability ()
(defmethod version-satisfies ((c component) version) (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 (when version
(warn "Requested version ~S but component ~S has no version" version c)) (warn "Requested version ~S but component ~S has no version" version c))
(return-from version-satisfies t)) (return-from version-satisfies t))
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment