                                        (get found-packages id))]
                                (cond
                                  (and (not (= conflict-strat :inclusive))
-                                           (not (nil? present-package)))
+                                      (not (nil? present-package)))
                                  (if (or (= conflict-strat :prioritized)
                                          (and (= status :absent)
                                               (not (safe-spec-call spec present-package)))

                 allow-alternatives true}}]
  (let [safe-spec-call (make-spec-call compare)
        cull (case strategy
                 :thorough
                 cull-nothing
                 :fast
                 cull-all-but-first
                 (throw
                  (ex-info (str
                            "Invalid strategy `"
                            strategy
                            "`.")
                           {:strategy strategy})))
        cull-alternatives
        (if allow-alternatives
          cull-nothing

(def ^:private nil-safe-spec-call
  (fnil spec-call (fn [v] true)))

(defn- successful? [result]
  (and (sequential? result)
       (= (first result) :successful)))

(defn- first-successful
  [result]
  (if (successful? result)
    result
    nil))

