anchor.diff:  (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
  
positive.code:       (dolist (sql sql-list)
          (multiple-value-bind (sql bind) (yield sql)
            (apply #'dbi:do-sql (get-connection) sql bind))))))
  
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)
  