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

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))