allow pathnames as well as strings in sqlite3 connection specs

[clsql.git] / db-sqlite3 / sqlite3-api.lisp

diff --git a/db-sqlite3/sqlite3-api.lisp b/db-sqlite3/sqlite3-api.lisp
index d5b515381baad428ad13afeaf821c2a530a74fba..942246e57a02ae40b34e1c41d1f20f6396b0ed89 100644 (file)
--- a/db-sqlite3/sqlite3-api.lisp
+++ b/db-sqlite3/sqlite3-api.lisp
@@ -289,7 +289,10 @@
 ;;;;
 ;;;; wrapper functions.
 ;;;;
-(defun sqlite3-open (db-name &optional (mode 0))
+(defun sqlite3-open (db &optional (mode 0)
+                     &aux (db-name (etypecase db
+                                     (pathname (namestring db))
+                                     (string db))))
   (declare (ignore mode) (type string db-name))
   (let ((dbp (allocate-foreign-object 'sqlite3-db)))
     (declare (type sqlite3-db-ptr-type dbp))