                found-packages
                absent-specs
                clauses]
+;;               parent
+;;               package-graph]
               (if (empty? clauses)
                 [:successful (set (flatten (vals found-packages)))]
                 (let [fclause (first clauses)

   []
   coll))

;; does one of the present packages already
;; satisfy criteria?
(defn- present-packages-satisfies?
  [present-id-packages
   spec

                                   alternative
                                   present-id-packages
                                   (or (get present-packages id)
                                                (get found-packages id))
                                   present-package
                                   (when (not (nil? present-id-packages))
                                     (if (= conflict-strat :prioritized)
                                       (first present-id-packages)
                                       (present-packages-satisfies?
                                        present-id-packages
                                        spec
                                        safe-spec-call
                                        status)))]
                               (cond
                                  (not
                                   (nil? present-package))
                                   (resolve-deps
                                    repo
                                    present-packages
