                    (string-to-requirement vetted-str-req)))
                requirements))
        present-packages
-       (t/spy :msg "present-packages"
-              (reduce
-               (fn package-aggregate
-                 [c [name pkg]]
-                 (update-in c [name]
-                    conj
-                    pkg))
+       (reduce
+        (fn package-aggregate
+          [c [name pkg]]
+          (update-in c [name]
+                     conj
+                     pkg))
         {}
         (map
          (fn [str-pkg]


(defn query-repo!
  [options arguments]
  (let [{:keys [repositories query index-strat package-system]} options
        aggregate-repo
        (aggregate-repositories
          index-strat
          package-system
          repositories)
        req (first (string-to-requirement query))
        {:keys [id spec]} req
        spec-call (make-spec-call
                   (get-in package-systems
                           [package-system :vercmp]))
        results (filter
                 #(spec-call spec %)
                 (aggregate-repo id))]

               search-strat
               present-packages
               requirements
               package-system
               version-comparison]}
       options
       version-comparator
       (get version-comparators version-comparison)
       requirement-data
       (into []
             (map
