From: Kevin M. Rosenberg <kevin@rosenberg.net>
Date: Sun, 11 Apr 2004 10:29:41 +0000 (+0000)
Subject: r8944: fix type
X-Git-Tag: v3.8.6~673
X-Git-Url: http://git.kpe.io/?p=clsql.git;a=commitdiff_plain;h=53e2f4aeaeb8a3ff843e5438472227d15caf1f09

r8944: fix type
---

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"