 
 
 
-
+; ----------------------------------------------------------------
+; This is called whenever there has been an update of a realtime
+; query.
+; ----------------------------------------------------------------
 (defn update-query-in-cache [query]
   (let [
         record-count       (get-count   (get query :db-table)  (get query :where)   (get query :params))

        result-id-vector   (into [] (map :id results))

        existing-query     (get @cached-queries   query)
        ]
    (do
      (println (str "    " query))

      (if (not existing-query)
        (swap! cached-queries assoc  query (atom {:clients  (atom #{})})))


  )
  )









