(make-instance 'mysql-database
:name (database-name-from-spec connection-spec
database-type)
+ :database-type :mysql
:connection-spec connection-spec
:mysql-ptr mysql-ptr))
(when error-occurred (mysql-close mysql-ptr)))))))))
(format nil "database-create failed: ~A" output))
t))))
-(defmethod database-destory (connection-spec (type (eql :mysql)))
+(defmethod database-destroy (connection-spec (type (eql :mysql)))
(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"
+ (clsql-base-sys:command-output "mysqladmin drop -f -u~A -p~A -h~A ~A"
user password
(if host host "localhost")
name)