anchor.diff:  
     *default-database*)
   
  +(defun default-suites ()
  +  "The default list of tests to run."
  +  (append *rt-internal* *rt-connection* *rt-basic* *rt-fddl* *rt-fdml*
  +	  *rt-ooddl* *rt-oodml* *rt-syntax* *rt-time*))
  +
   
   (defvar *error-count* 0)
   (defvar *error-list* nil)
  
positive.code:     (disconnect)))
  
  
  (defun compute-tests-for-backend (db-type db-underlying-type)
    (let ((test-forms '())
          (skip-tests '()))
      (dolist (test-form (append *rt-internal* *rt-connection* *rt-basic* *rt-fddl* *rt-fdml*
                                 *rt-ooddl* *rt-oodml* *rt-syntax*))
        (let ((test (second test-form)))
          (cond
  	  ((and (not (eql db-underlying-type :mysql))
  
negative.code:               "")
            ))
  
  (defun do-tests-for-backend (db-type spec &key
  			     (suites (default-suites)) )
    (test-connect-to-database db-type spec)
    (unwind-protect
         (multiple-value-bind (test-forms skip-tests)
             (compute-tests-for-backend db-type *test-database-underlying-type* :suites suites)
  
             (write-report-banner "Test Suite" db-type *report-stream*
  				(database-name-from-spec spec db-type))
  
             (regression-test:rem-all-tests)
             (dolist (test-form test-forms)
  