             (ref-schema 'D)
             (ref-schema 'DD))
    (spec 'D {:now 3}))
-  (doall (parents-for-type 'D)))
+    #_(doall (ancestor-typs 'D))
+  (doall (parents-for-type2 'D)))
 
 (defn get-paths-for-type [root typ]
   (vec

            (ref-schema 'D)
            (ref-schema 'DD))
   (spec 'D {:now 3}))
  (doall (decendent-typs 'B)))

(defn all-predicates [parent-type]
  (keep leaf-pred? (cons parent-type (decendent-typs parent-type))))

#_(with-schema (index-spec (spec 'Integer integer?)
                         (spec 'AnotherInt string?)

  )



;; spiking on yet another way of analyzing a configuration for errors

