    []
    coll))
 
-;; does one of the present packages already
-;; satisfy criteria?
+;; Does one of the present packages already
+;; satisfy criteria? If so, return it.
 (defn- present-packages-satisfies?
   [present-id-packages
    spec

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

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