projects
/
clsql.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r9034: Automated commit for Debian build of clsql upstream-version-2.7.3
[clsql.git]
/
base
/
conditions.lisp
diff --git
a/base/conditions.lisp
b/base/conditions.lisp
index a84f6546d0c95c2f815f0917154d5e2ddb889631..81a1226bfe48b02a2fbf1456f4bf3ed210303726 100644
(file)
--- a/
base/conditions.lisp
+++ b/
base/conditions.lisp
@@
-36,6
+36,12
@@
(define-condition clsql-simple-warning (simple-condition clsql-warning)
())
(define-condition clsql-simple-warning (simple-condition clsql-warning)
())
+(define-condition clsql-generic-error (clsql-error)
+ ((message :initarg :message
+ :reader clsql-generic-error-message))
+ (:report (lambda (c stream)
+ (format stream (clsql-generic-error-message c)))))
+
(define-condition clsql-invalid-spec-error (clsql-error)
((connection-spec :initarg :connection-spec
:reader clsql-invalid-spec-error-connection-spec)
(define-condition clsql-invalid-spec-error (clsql-error)
((connection-spec :initarg :connection-spec
:reader clsql-invalid-spec-error-connection-spec)