anchor.diff:    (:use :cl)
     (:import-from :integral.connection
                   :get-connection
  +                :connected-p
                   :database-type
                   :with-quote-char
                   :retrieve-table-column-definitions-by-name)
  
positive.code:     (unless generate-slots
        (setf (initializedp class) t))
      (when (and *auto-migration-mode*
                 (not generate-slots))
        (funcall (symbol-function (intern #.(string :migrate-table) (find-package :integral.migration)))
                 class))))
  
  
negative.code:       (when generate-slots
          (setf (initializedp class) nil))
        (when (and *auto-migration-mode*
                   (not generate-slots)
                   (connected-p))
          (funcall (symbol-function (intern #.(string :migrate-table) (find-package :integral.migration)))
                   class)))))
  
  