             (let [children (filter
                              #(and
                                 (not (get already-visited %))
+                                (not (exclude %))
                                 (not (get parents %)))
                              (get package-graph children-of))]
               (if (empty? children)

  (let [r (resolve-dependencies-deluxe requirements query options)]
    (if (= (:result r) :successful)
           [:successful (:packages r)]
           [(:result r) r])))


                               present-packages)))
           (list-packages
             (second result)
             :list-strat list-strat
             :exclude (reduce (fn [c [k v]] (into c v))
                                #{}
                               present-packages)))
         :install-graph
         (make-install-graph
           (second result)
