X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=db-mysql%2Fmysql-sql.lisp;h=2a0ba822ba9d17e7a95c6981f12595122502571d;hb=6c70be35cc348b559d8aa869ecd0e14e27d5edbc;hp=55918a935600d81aa07c738f2b026f948c04582f;hpb=e5744a78271044484b3399d4fc1d55b3e8808784;p=clsql.git

diff --git a/db-mysql/mysql-sql.lisp b/db-mysql/mysql-sql.lisp
index 55918a9..2a0ba82 100644
--- a/db-mysql/mysql-sql.lisp
+++ b/db-mysql/mysql-sql.lisp
@@ -114,6 +114,7 @@
 		  (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)))))))))
@@ -411,10 +412,10 @@
 		 (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)