X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=db-sqlite%2Fsqlite-sql.lisp;h=17e8ff81dbf70dfac2a521060abcccf224f4b1e1;hp=3c6d31ea7e70d46e44e7e912c98afdfa706d29eb;hb=e622ee6f4bf2b9fe81af59d566e651c983a4833b;hpb=21ae7203d719886a1f044992e463d5f463727ac0

diff --git a/db-sqlite/sqlite-sql.lisp b/db-sqlite/sqlite-sql.lisp
index 3c6d31e..17e8ff8 100644
--- a/db-sqlite/sqlite-sql.lisp
+++ b/db-sqlite/sqlite-sql.lisp
@@ -62,7 +62,7 @@
 	  (sqlite:sqlite-get-table (sqlite-db database) sql-expression)
 	(sqlite:sqlite-free-table data)
 	(unless (= row-n 0)
-	  (error 'clsql-simple-warning
+	  (error 'sql-warning
 		 :format-control
 		 "Result set not empty: ~@(~A~) row~:P, ~@(~A~) column~:P "
 		 :format-arguments (list row-n col-n))))