   )
 
 
-;; 
-
-#_(defn apply-predicate [pred val]
-  (l/project
-   [pred]
-   (l/pred val (fn [v] (boolean (apply-pred pred v))))))
-
 
 ;; spiking on yet another way of analyzing a configuration for errors
 

            (ref-schema 'D)
            (ref-schema 'DD))
   (spec 'D {:now 3}))
  (doall (parents-for-type 'D)))

(defn get-paths-for-type [root typ]
  (vec

  ([simple-exp]
   (pred-type-help simple-exp nil)))







#_(with-schema
  (index-spec
