(defun load-necessary-systems (specs)
(dolist (db-type +all-db-types+)
(when (db-type-spec db-type specs)
(defun load-necessary-systems (specs)
(dolist (db-type +all-db-types+)
(when (db-type-spec db-type specs)
(incf *error-count* (length remaining))))
(let ((sexp-error (list db-type
*test-database-underlying-type*
(get-universal-time)
(length test-forms)
(incf *error-count* (length remaining))))
(let ((sexp-error (list db-type
*test-database-underlying-type*
(get-universal-time)
(length test-forms)