projects
/
clsql.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r9411: fix caching of order-by clauses
[clsql.git]
/
sql
/
conditions.lisp
diff --git
a/sql/conditions.lisp
b/sql/conditions.lisp
index 413eae61630bbcddfaed113ad6857d61684df5b9..d708c8a4a8c945a5d521f52b7e6cde5e71023d6c 100644
(file)
--- a/
sql/conditions.lisp
+++ b/
sql/conditions.lisp
@@
-25,7
+25,10
@@
set to :error to signal an error or :ignore/nil to silently ignore the warning."
(define-condition sql-condition ()
())
(define-condition sql-condition ()
())
-(define-condition sql-database-error (simple-error sql-condition)
+(define-condition sql-error (simple-error)
+ ())
+
+(define-condition sql-database-error (sql-error)
((error-id :initarg :error-id
:initform nil
:reader sql-error-error-id)
((error-id :initarg :error-id
:initform nil
:reader sql-error-error-id)
@@
-74,7
+77,7
@@
set to :error to signal an error or :ignore/nil to silently ignore the warning."
(define-condition sql-temporary-error (sql-database-error)
())
(define-condition sql-temporary-error (sql-database-error)
())
-(define-condition sql-user-error (s
imple-error sql-condition
)
+(define-condition sql-user-error (s
ql-error
)
((message :initarg :message
:initform "Unspecified error"
:reader sql-user-error-message))
((message :initarg :message
:initform "Unspecified error"
:reader sql-user-error-message))