projects
/
clsql.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r9199: fold clsql-base and clsql-base-sys into clsql-base
[clsql.git]
/
base
/
conditions.lisp
diff --git
a/base/conditions.lisp
b/base/conditions.lisp
index a84f6546d0c95c2f815f0917154d5e2ddb889631..25d4623605396b0bdbd8b75e39b53f7b9d24e093 100644
(file)
--- a/
base/conditions.lisp
+++ b/
base/conditions.lisp
@@
-18,7
+18,7
@@
;;;; (http://opensource.franz.com/preamble.html), also known as the LLGPL.
;;;; *************************************************************************
;;;; (http://opensource.franz.com/preamble.html), also known as the LLGPL.
;;;; *************************************************************************
-(in-package #:clsql-base
-sys
)
+(in-package #:clsql-base)
;;; Conditions
(define-condition clsql-condition ()
;;; Conditions
(define-condition clsql-condition ()
@@
-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)