                     result))
     ))
 
-(defn retrieve-columns-for-table [meta-data table]
+(defn- retrieve-columns-for-table [meta-data table]
                              (let [rs (.getColumns meta-data 
                                                    nil 
                                                    (:schema table) 

                              (read-columns rs [])
                               ))

(defn retrieve-columns [spec tables]
  (let [connection (DriverManager/getConnection (:connection-string spec))
        meta-data (.getMetaData connection)]
    (map (fn [table] 

   result
 ))

(defn- string->boolean [input]
  (case input
    "YES" true
    "NO" false
    nil))

(defn- read-columns [rs result]
  (if (not (.next rs))
    result
    (recur rs (cons { 
