X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=sql%2Fconditions.lisp;fp=sql%2Fconditions.lisp;h=3ef94122cd93c884652c1d994490bea07eba3421;hp=51c06add66e442afd84b62920eee992b3368f8f5;hb=dc107d34212597ed1272cfa21138d384e71b00d2;hpb=8535462c3fdef182cd226770e6e07160f380acac

diff --git a/sql/conditions.lisp b/sql/conditions.lisp
index 51c06ad..3ef9412 100644
--- a/sql/conditions.lisp
+++ b/sql/conditions.lisp
@@ -134,3 +134,11 @@ connection is no longer usable."))
                      "While accessing database ~A~%  Warning: ~A~%  has occurred."
                      (sql-warning-database c)
                      (sql-warning-message c)))))
+
+(define-condition database-too-strange (sql-user-error)
+  ()
+  (:documentation "Used to signal cases where CLSQL is going to fail at
+    mapping your database correctly"))
+
+(defun signal-database-too-strange (message)
+  (error 'database-too-strange :message message))