   [step name & [{:keys [type default null length] :as opts}]]
   (defer
     (let [step (-> (-unwrap step)
-                   (.alter (field* name)))]
+                   (.alter (-field name)))]
       (when (clojure.core/and (clojure.core/or null length) (clojure.core/not type))
         (throw (IllegalArgumentException.
                 "For change null or length you should specify type.")))

  [step name & [type]]
  (defer
    (let [step (-> (-unwrap step)
                   (.drop (field* name)))]
      (case type
        :cascade (.cascade step)
        :restrict (.restrict step)


  clojure.lang.PersistentVector
  (-sort-field ^org.jooq.SortField [v]
    (let [^org.jooq.Field field (-field (first v))
          ^org.jooq.SortField field (case (second v)
                                      :asc (.asc field)
                                      :desc (.desc field))]
