 
 
 
-       (log "Client realtime records: " )
+       ;(log "Client realtime records: " )
        (doseq [the-table    list-of-tables]
          (let [list-of-ids      (keys (get (-> realtime-update-check-response :records) the-table))]
          (doseq [id     list-of-ids]

                                  records
                                  ))
                    (get @query-atom :values))))))


    ; -----------------------------------------------
    ; load the records in
    ; -----------------------------------------------
    (let [
          list-of-ids         (map
                                  (fn[id] (get (@query-atom :values) id))
                                   list-of-record-positions)
          ]

      (doall
       (map
        (fn [ record-id ] (load-record  query-key  record-id))
        list-of-ids
        )
       (update-all-data-windows-for-query    query-key)


      (do
        (reset!  query-atom
                 (assoc @query-atom :values {}))

        ;(log "list-of-record-positions: " list-of-record-positions)
        ;(log "records: " records)
        ;(log "(get @query-atom :values): " (get @query-atom :values))

        (reset!  query-atom
                 (assoc @query-atom :values
                   (merge
