(destructuring-bind (host name user password) connection-spec
(multiple-value-bind (output status)
(clsql-base-sys:command-output "mysqladmin drop -u~A -p~A -h~A ~A"
(destructuring-bind (host name user password) connection-spec
(multiple-value-bind (output status)
(clsql-base-sys:command-output "mysqladmin drop -u~A -p~A -h~A ~A"