X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=db-sqlite3%2Fsqlite3-api.lisp;fp=db-sqlite3%2Fsqlite3-api.lisp;h=942246e57a02ae40b34e1c41d1f20f6396b0ed89;hp=d5b515381baad428ad13afeaf821c2a530a74fba;hb=a407cdf939e54eb440f9ec5a975ad81858e86610;hpb=473a27dcb4e53143e7480f7f73278cc920cab965

diff --git a/db-sqlite3/sqlite3-api.lisp b/db-sqlite3/sqlite3-api.lisp
index d5b5153..942246e 100644
--- 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))