                                              :reason :package-rejected
                                              :package-id id}]}]
                                          (let [candidate-results
-                                               (map
+                                               (first-found
                                                 #(resolve-deps
                                                   repo
                                                   present-packages

                                                   :found-packages found-packages
                                                   :present-packages present-packages
                                                   :absent-specs absent-specs}]}])))
                           ;; Hoisting
                           (hoist (cull-alternatives
                                    fclause)
                                  absent-specs
                                  found-packages
                                  present-packages))]

                 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
