diff --git a/component.lisp b/component.lisp index e023646f602c71a912292d18f67fb3fb82d955a2..392607943f2745381e91a61b60ff96a646c0b202 100644 --- a/component.lisp +++ b/component.lisp @@ -272,6 +272,11 @@ children."))) ;;;; version-satisfies (with-upgradability () + ;; short-circuit testing of null version specifications. + ;; this is an all-pass + (defmethod version-satisfies :around ((c t) (version null)) + (declare (ignorable c version)) + t) (defmethod version-satisfies ((c component) version) (unless (and version (slot-boundp c 'version) (component-version c)) (when version