anchor.diff:        (dolist (sql sql-list)
           (multiple-value-bind (sql bind) (yield sql)
             (apply #'dbi:do-sql (get-connection) sql bind))))))
  +
  +(defmethod initialize-instance :after ((class dao-table-class) &key)
  +  (when *auto-migrating-mode*
  +    (migrate-table-using-class class)))
  +
  +(defmethod reinitialize-instance :after ((class dao-table-class) &key)
  +  (when *auto-migrating-mode*
  +    (migrate-table-using-class class)))
  
positive.code: (in-package :integral.migration)
  
  (cl-syntax:use-syntax :annot)
  
  (defun compute-migrate-table-columns (class)
    (let ((column-definitions (retrieve-table-column-definitions-by-name
  
negative.code:                 :retrieve-table-column-definitions-by-name)
    (:import-from :integral.table
                  :table-name
                  :database-column-slots
                  :dao-table-class)
    (:import-from :integral.column
                  :table-column-name
                  :column-info-for-create-table)
  