                                                       (do [%2])
                                                       (conj %1 %2))
                                                    candidate)))
+                                    conj
                                     successful?
                                     filtered-query-results)]
                               (or

                                    :reason :seek-package-logic-error
                                    :package-id id}]}]))
                            )))))
successful?
;; Hoisting
(hoist (cull-alternatives

      (let [fclause (first clauses)
            rclauses (rest clauses)
            {:keys [clause parent]}
            fclause
            mkerror (partial make-error
                             present-packages
                             found-packages
                             absent-specs
                             clause)]
        (if (empty? clause)
          (mkerror :empty-alternative-set)
          (let [clause-result
                (first-found
                  (fn try-alternative
