X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=db-sqlite3%2Fsqlite3-api.lisp;h=856b990d2248b80eea9c70e3ff02816e08cfedc2;hb=c41d81c0d1233372012a1de93fcdfd6b2a6e5618;hp=22d196660d8f407a1748f43c44a8984812301894;hpb=f7ffd9617ac7b70d330add3ad409128a9dec266f;p=clsql.git

diff --git a/db-sqlite3/sqlite3-api.lisp b/db-sqlite3/sqlite3-api.lisp
index 22d1966..856b990 100644
--- a/db-sqlite3/sqlite3-api.lisp
+++ b/db-sqlite3/sqlite3-api.lisp
@@ -170,6 +170,7 @@
 		     (sqlite3-error-code condition) 
 		     (sqlite3-error-message condition)))))
 
+(defgeneric signal-sqlite3-error (db))
 (defmethod signal-sqlite3-error (db)
   (let ((condition
 	 (make-condition 'sqlite3-error