 
 (defn select-one
   []
-  (DSL/selectOne))
+  (defer (DSL/selectOne)))
 
 (defn select-zero
   []

  (table* [t] t)

  org.jooq.TableLike
  (table* [t] (.asTable t)))

(extend-protocol IName
  java.lang.String
  (name [s]
    (-> (into-array String [s])
        (DSL/name)))

  clojure.lang.Keyword
  (name [kw] (name (clojure.core/name kw))))

(extend-protocol ICondition
  java.lang.String


(defn truncate
  [t]
  (defer
    (-> (table* t)
        (DSL/truncate))))

(defn alter-table
  [t]
  (defer
    (-> (table* t)
        (DSL/alterTable))))

(defn- datatype-transformer
  [opts ^org.jooq.DataType acc attr]
