 (defmacro dbg2 [body]
   `(let [x# ~body]
      (println "dbg:" '~body "=" x#)
-x#))
+     x#))
 
 (def ^:private relation-strings
   {:greater-than ">"

                                             :reason :package-rejected
                                             :package-id id}]}]
                                         (let [candidate-results
                                               (map
                                                #(resolve-deps
                                                  repo
                                                  present-packages

                                                   :found-packages found-packages
                                                   :present-packages present-packages
                                                   :absent-specs absent-specs}]}])))
                           successful?
                           ;; Hoisting
                           (hoist (cull-alternatives
                                   fclause)
                                  absent-specs
                                  found-packages
                                  present-packages))]
