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