From a1493b943afdaf86398a653bb19505214510b030 Mon Sep 17 00:00:00 2001 From: "Robert P. Goldman" <rpgoldman@gmail.com> Date: Tue, 15 Apr 2014 09:04:03 -0500 Subject: [PATCH] Short-circuit checking of NULL version specifications. --- component.lisp | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/component.lisp b/component.lisp index e023646f..39260794 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 -- GitLab