(defun destroy-database (connection-spec &key database-type)
(when (stringp connection-spec)
(setq connection-spec (string-to-list-connection-spec connection-spec)))
(defun destroy-database (connection-spec &key database-type)
(when (stringp connection-spec)
(setq connection-spec (string-to-list-connection-spec connection-spec)))