 
 
 
+; ----------------------------------------------------------------
+;
+; ----------------------------------------------------------------
 (defn create-client-cache [client-realtime-id]
   (let [client-cache     (get @realtime-clients  client-realtime-id)
         ]
     (if (nil? client-cache)
       (swap! realtime-clients assoc client-realtime-id (atom {:queries (atom {})    :records (atom {})    :update-request (atom {})})))))
+
+
+
+
 
 
 


        existing-query     (get @cached-queries   query)

        ]
    (do
      (println (str "    " ))



      (let [the-query        (get @cached-queries   query)
            clients-atom     (:clients @the-query)
            ]
        (swap! the-query assoc  :records       result-id-vector)
        (swap! the-query assoc  :count         record-count)
        (swap! the-query assoc  :timestamp     query-time)


        (println (str "    clients: " @clients-atom))
        (doall (for [client @clients-atom]
              (println (str "    Client: " client))
              ))

