gistfile1.txt

(defn verify-table [table]
  (sql/with-connection *db*
    (sql/with-query-results results [(str "SELECT node_id, data FROM " table " WHERE data IS NOT NULL")]
      (doseq [r results]
        (try (json/parse-string (:data r))
             (catch Exception e
               (println e)
               (println "table:" table)
               (println "node_id:" (:node_id r))
               (println "data:" (:data r))
               (println "-----------------------")))))))