r8928: add probe-database,create-database,destroy-database

[clsql.git] / base / database.lisp

diff --git a/base/database.lisp b/base/database.lisp
index 7cf45f18485702104768a8ba31bd5b30d23a45d6..92599bb83075be8f92db89df5b42f5d21e9d219a 100644 (file)
--- 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)