r11657: 25 Apr 2007 Kevin Rosenberg <kevin@rosenberg.net>

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

diff --git a/db-sqlite3/sqlite3-api.lisp b/db-sqlite3/sqlite3-api.lisp
index 22d196660d8f407a1748f43c44a8984812301894..856b990d2248b80eea9c70e3ff02816e08cfedc2 100644 (file)
--- 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