db-drop-create-tables.clj

(in-db db
      (println "** Dropping tables **")
      (try
        (drop-table blog-entry-meta)
        (catch Exception e
          (println (str "Error dropping table " (:name blog-entry-meta) ": "
                     (.getMessage e) " [Ignored]"))))
      (try
        (drop-table entry-comment-meta)
        (catch Exception e
          (println (str "Error dropping table " (:name entry-comment-meta) ": "
                     (.getMessage e) " [Ignored]"))))
      (println "** Creating tables **")
      (create-table entry-comment-meta)
      (create-table blog-entry-meta))