 
         existing-query     (get @cached-queries   query)
 
+        query-time         (quot (System/currentTimeMillis) 1000)
         ]
     (do
       (println (str "    " ))

    ;(println (str "      " (keys @realtime-clients)))
    (println (str "      " client-data-atom))
    (println (str "      response: " (if response-atom  @response-atom  [])))
     (if response-atom  @response-atom  [])
    )

    )


(+ 1 1 )


@realtime-clients




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







