anchor.diff:                  :retrieve-table-column-definitions-by-name)
     (:import-from :integral.table
                   :table-name
  -                :database-column-slots)
  +                :database-column-slots
  +                :dao-table-class)
     (:import-from :integral.column
                   :table-column-name
                   :column-info-for-create-table)
  
positive.code:       (dolist (sql sql-list)
          (multiple-value-bind (sql bind) (yield sql)
            (apply #'dbi:do-sql (get-connection) sql bind))))))
  
negative.code: (in-package :integral.migration)
  
  (cl-syntax:use-syntax :annot)
  
  @export
  (defvar *auto-migrating-mode* nil
    "Whether use auto-migrating mode or not.")
  
  (defun compute-migrate-table-columns (class)
    (let ((column-definitions (retrieve-table-column-definitions-by-name
  