 
 
 
+; ----------------------------------------------------------------
+;
+; ----------------------------------------------------------------
 (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 {})})))))
+
+
+
+
 
 
 



      (let [the-query        (get @cached-queries   query)
            ;clients         @(:clients @existing-query)
            ]
        (swap! the-query assoc  :records       result-id-vector)
        (swap! the-query assoc  :count         record-count)
        (swap! the-query assoc  :timestamp    (quot (System/currentTimeMillis) 1000))


        ;(println (str "    clients: " clients))
        (comment do (for [client clients]
              (println (str "    Client: " client))
              ))



        existing-query     (get @cached-queries   query)

        query-time         (quot (System/currentTimeMillis) 1000)
        ]
    (do
      (println (str "    " ))
