X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=db-mysql%2Fmysql-sql.lisp;h=c3bbda1dff00b17da06de53ba52209cebb81290d;hb=53e2f4aeaeb8a3ff843e5438472227d15caf1f09;hp=87b78f3f4f5757414c76976d1a0bcc5d0fcef7b4;hpb=2ae9ee745ff9e17806178e1999b880acc64ab894;p=clsql.git

diff --git a/db-mysql/mysql-sql.lisp b/db-mysql/mysql-sql.lisp
index 87b78f3..c3bbda1 100644
--- a/db-mysql/mysql-sql.lisp
+++ b/db-mysql/mysql-sql.lisp
@@ -412,7 +412,7 @@
 		 (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"