 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
 (defrecord Graph [id indices triples])
-
-
 
 (defprotocol GraphContainer
   (id       [this])

;; specific Graph implementation.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(defn supplied-constituents [graph subj pred obj] 
  (vec (conj (for [c [subj pred obj]]
               (not (nil? c)))
         (class graph))))

(defmulti query supplied-constituents)


             (graph [this]
               (get @db this)))

;; (assert (= (graph *context*) (graph nil) (graph uuid/+null+)))

;; (graph #{[1 2 3]})
;;  => #<Graph 2d1b48b0-723d-1195-8101-7831c1bbb832 (1 triples)>
