Commit a1493b94 authored by Robert P. Goldman's avatar Robert P. Goldman
Browse files

Short-circuit checking of NULL version specifications.

parent 7db34d29
Loading
Loading
Loading
Loading
+5 −0
Original line number Diff line number Diff line
@@ -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