X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=db-sqlite%2Fsqlite-sql.lisp;h=d6352e965dbcddf23b9e877574d1655c5bb08121;hb=3a3ccc7a171dc4c6c10bc7e3fea8461fca6dc51b;hp=8e1798bb99e11da5fbe166984ce4212cd44fe097;hpb=a56b464f5cd084bb8cc493a150b49a6033f48143;p=clsql.git

diff --git a/db-sqlite/sqlite-sql.lisp b/db-sqlite/sqlite-sql.lisp
index 8e1798b..d6352e9 100644
--- a/db-sqlite/sqlite-sql.lisp
+++ b/db-sqlite/sqlite-sql.lisp
@@ -162,9 +162,10 @@
   (handler-case
       (sqlite:sqlite-finalize (sqlite-result-set-vm result-set))
     (sqlite:sqlite-error (err)
-      (error 'clsql-simple-error
-	     :format-control "Error finalizing SQLite VM: ~A"
-	     :format-arguments (list (sqlite:sqlite-error-message err))))))
+      (error 'sql-database-error
+	     :message
+	     (format nil "Error finalizing SQLite VM: ~A"
+		     (sqlite:sqlite-error-message err))))))
 
 (defmethod database-store-next-row (result-set (database sqlite-database) list)
   (let ((n-col (sqlite-result-set-n-col result-set))
@@ -184,12 +185,12 @@
 			(return-from database-store-next-row nil)
 			(setf row new-row)))
 		(sqlite:sqlite-error (err)
-		  (error 'clsql-simple-error
-			 :format-control "Error in sqlite-step: ~A"
-			 :format-arguments
-			 (list (sqlite:sqlite-error-message err)))))
+		  (error 'sql-database-error
+			 :message
+			 (format nil "Error in sqlite-step: ~A"
+				 (sqlite:sqlite-error-message err)))))
 
-	      ;; Use the row previously read by database-query-result-set.
+	    ;; Use the row previously read by database-query-result-set.
 	      (setf (sqlite-result-set-first-row result-set)
 		    (sqlite:make-null-row)))
 	  (loop for i = 0 then (1+ i)