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