From b01f7a7f57819c5fec2e919fa79a308c17e4ba5f Mon Sep 17 00:00:00 2001
From: Francois-Rene Rideau <tunes@google.com>
Date: Thu, 7 Nov 2013 10:23:20 -0500
Subject: [PATCH] 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.

---
 component.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/component.lisp b/component.lisp
index 084d61bd..28cc30d6 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))
-- 
GitLab