X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=base%2Fdatabase.lisp;h=92599bb83075be8f92db89df5b42f5d21e9d219a;hp=7cf45f18485702104768a8ba31bd5b30d23a45d6;hb=e5744a78271044484b3399d4fc1d55b3e8808784;hpb=c4da3cfcbb955395d8a556e1f89aadad696302b7

diff --git a/base/database.lisp b/base/database.lisp
index 7cf45f1..92599bb 100644
--- a/base/database.lisp
+++ b/base/database.lisp
@@ -219,7 +219,7 @@ of full is NIL."
 (defun destroy-database (connection-spec &key database-type)
   (when (stringp connection-spec)
     (setq connection-spec (string-to-list-connection-spec connection-spec)))
-  (database-destory connection-spec database-type))
+  (database-destroy connection-spec database-type))
 
 
 (defmacro with-database ((db-var connection-spec &rest connect-args) &body body)