map-table.clj

(defn table [cols vals]
  (->> vals
       (partition (count cols))
       (map (partial zipmap cols))))

(defn table2 [cols & rest]
  (map (partial zipmap cols) rest))

(table
 [:this :that :another]
 [1     2     3
  4     5     6])

(table2
  [:this :that :another]
  [1     2     3]
  [4     5     6])