       (swap! server-side-realtime-clients assoc client-realtime-id (atom {:queries (atom {})    :records (atom {})    :update-request (atom {})})))))
 
 
+(defn clear-client-cache [client-realtime-id]
+  (let [client-cache     (get @server-side-realtime-clients  client-realtime-id)
+        ]
+    (if client-cache
+      (swap! server-side-realtime-clients assoc client-realtime-id (atom {:queries (atom {})    :records (atom {})    :update-request (atom {})})))))
+
 
 
 

          ]

      (do
        (println (str "!getfilecontents        id: "        id))
        (println (str "!getfilecontents  app-schema-id: "   app-schema-id))
        (println (str "" ))




(defn !getfilecontents [{:keys [id  app-session-id]}]
  (if id
    (let [content-records   (cond
