 
 
 
-(defn delete-from-realtime-update  [ query-key     data-session-id ]
+(defn delete-query-from-realtime-update  [ query-key     data-session-id ]
   (let [client-data-atom         (if server-side-realtime-clients  (get @server-side-realtime-clients  data-session-id))
         response-atom            (if client-data-atom  client-data-atom )
         update-request-atom      (if response-atom  (get @response-atom :update-request ))

      ;(println "SQL::: " sql "," id)
      (sql-1  sql [id])
      )))




                      :order     order)
         ]
     (create-client-cache  data-session-id)
     (delete-query-from-realtime-update  query-key data-session-id)

     (if (get @server-side-cached-queries  query-key)
       nil
