;;;; Authors: Aurelio Bignoli
;;;; Created: Oct 2004
;;;;
-;;;; $Id$
-;;;;
;;;; This file, part of CLSQL, is Copyright (c) 2004 by Aurelio Bignoli
;;;;
;;;; CLSQL users are granted the rights to distribute and use this software
;;;;
;;;; 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))